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
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