Bonjour,
Je suis novice en VBA et je suis à la recherche d'un code pour le problème suivant:
J'ai un fichier source avec plusieurs onglets et je veux créer un fichier par onglet mais que pour certains onglets.
J'ai trouvé un code qui fonctionne pas trop mal :
"Sub CopieOnglets()
Dim ceFichier As Workbook
Set ceFichier = ActiveWorkbook
Dim nouveauFichier As Workbook
For Each fsheet In ceFichier.Worksheets
Workbooks.Add
Set nouveauFichier = ActiveWorkbook
fsheet.Copy Before:=nouveauFichier.Sheets(1)
nouveauFichier.SaveAs Filename:=chemin & "\" & fsheet.Name, FileFormat:=xlNormal
Next
ceFichier.Activate
End Sub"
Cependant j'ai plusieurs soucis :
- Je ne souhaite pas recopier tous les onglets
- J'ai un message d'avertissement :
- Le fichier ne s'enregistre pas mais je sais qu'il n'y a pas de lignes de code pour cette étape. Je voudrais qu'ils s'enregistrent à l'endroit où mon fichier source est car tous les mois, il est enregistrer dans un nouveau dossier.
Pourriez-vous m'aider ?
Je vous en remercie.
Bon week-end à vous
Audrey