Onglet Excel -> découpe pls files
Onglet Excel -> découpe pls files - VB/VBA/VBS - Programmation
Marsh Posté le 16-01-2007 à 19:00:10
Bonsoir,
à tester: (pas VBS)
Windows("fichier1.xls" ).Activate
Set wb = ActiveWorkbook
For Each ss In wb.Sheets
Application.CutCopyMode = False
ss.Copy
ActiveWorkbook.SaveAs Filename:= _
"Mettre ici le chemin" & ss.Name & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Windows("fichier1.xls" ).Activate
Next
End Sub
Cordialement
Message édité par seniorpapou le 16-01-2007 à 21:35:23
Marsh Posté le 23-01-2007 à 15:17:41
Parfait, ça fonctionne... il faut juste rajouter subxxxx au début... je suis d'accord normalement c'est instinctif 
Merci bcp pour ce code...
Message édité par TheFreeMarmote le 23-01-2007 à 15:18:19
Sujets relatifs:
- [VBS]Ouverture d'un classeur excel
- [Macro Excel] Comment récupérer le nom du fichier?
- [résolu] passage d'excel 2003 à excel 2000
- Comment avoir un timer sous le VBA d'Excel ?
- Créer un fichier excel avec des checkbox en php(PHP/PEAR)
- [VBA][Excel] Barre de formulaires, case d'option : définir la fonte ?
- [VBA] piloter word depuis une macro excel -- Chercher remplacer
- (VBA excel) lire les données d'une macro complementaire
- Fonction ALEA() et fonction de répartition sous Excel
- Alternative au générateur de nombres aléatoires Excel
Marsh Posté le 16-01-2007 à 15:14:15
Bonjour, voici mon problème,
Je voudrais savoir s'il existe un code VBS permettant de créer plusieurs fichiers à partir d'un fichier excel à plusieurs onglets...
Je m'explique... ex : fichier1.xls (onglets : feuil1, feuil2, feuil3)
A la sortie du VBS je voudrais avoir ça : feuil1.xls, feuil2.xls, feuil3.xls...
Possible ça ???
merci