Sauvegarder feuille Excel ailleurs

Question

J'ai une une macro pour copier une feuille de mon fichier excel dans un endroit bien précis. Au départ tout marchais bien' mais depuis peu ça ne fonctionne plus. Il m'apparait une erreur 400.

Voici ma macro:

Sub Archiver()

Dim extension As String

Dim chemin As String, NomFichier As String

Dim style As Integer

Application.ScreenUpdating = False

ThisWorkbook.ActiveSheet.Copy

extension = ".xlsx"

chemin = "V:\SAV EXCEL\FORMULAIRE CORRECTIFS\Rapports correctifs 2012\"

NomFichier = ActiveSheet.Range("D3") & " " & ActiveSheet.Range("D4") & " " & ActiveSheet.Range("D5") & extension

With ActiveWorkbook

.SaveAs Filename:=chemin & NomFichier

.Close

End With

End Sub

Raja · Answer

Je te préconise de joindre ton fichier avec la macro. Tu as plus de chances de recevoir une réponse...