Discussion :

[VELO1222]

bonjour le forum,
Est-il possible de copier des feuilles exemple les feuilles: B, C, D vers un dossier dont le chemin se trouverai en A1 de la feuille A et le nom du fichier en enregistrer en A2 de la feuille A
d'avance merci de votre aide

[mercatog]

en A1 de Feuil1, le chemin: C:\Users\user\Desktop
en B1 de Feuil1, le nom: TEST.xls
enregistre Feuil2 et Fuil3 sous le nom et chemin ci-dessus

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim fichier As String
 
With Sheets("Feuil1")
   fichier = .Range("A1").Value & "\" & .Range("B1").Value
End With
 
Sheets(Array("Feuil2", "Feuil3")).Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs fichier
Application.DisplayAlerts = True
ActiveWorkbook.Close

[VELO1222]

Merci beaucoup, super
bon dimanche a vous
sincerement
tony