changer de dossier de sauvegarde

[bpol]

bonjour,
j'ai une macro qui enregistre une feuille d'un classeur comme nouveau fichier mais dans le même dossier où le classeur "source" se trouve comment faire pour enregistrer dans un autre dossier

Dim NomFeuille As String, i As Byte, Ligne As Integer
Sheets("facture TVA").Copy '
Onglet = Range("C9").Value
ActiveSheet.Name = Onglet 'Nouvelle feuille =
Classdest = Range("C9") & " " & Range("A1") & ".xls "
ActiveSheet.Shapes("Bouton 1").Delete
ActiveSheet.Shapes("Bouton 3").Delete
ActiveSheet.Shapes("Bouton 6").Delete
ActiveSheet.Shapes("Bouton 4").Delete
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Classdest

ActiveWorkbook.Close


Merci

Bpol

 

[Pierrot93]

Re : changer de dossier de sauvegarde

Bonjour bpol

essaye peut être ainsi :

ActiveWorkbook.SaveAs Filename:="Z:\AutreRepertoire\Excel2\" & Classdest

bonne journée
@+

 

[bpol]

Re : changer de dossier de sauvegarde

bonjour pierrot,

et merci pour ta solution qui me convient parfaitement

A+
Bpol