Macro défaillante

Bonjour,

J'ai un fichier dont j'affecte une marco :

Sub SaveTableau()

Dim extension As String

Dim chemin As String, nomfichier As String

Dim style As Integer

Application.ScreenUpdating = False

ThisWorkbook.ActiveSheet.Copy

extension = ".xls"

chemin = "xx\xxx\xxxx"

nomfichier = "XXX" & ActiveSheet.Range("B5") & " " & Range("G2") & extension

With ActiveWorkbook

.SaveAs Filename:=chemin & nomfichier

.Close

End With

End Sub

Cependant, lors de la sauvegarde, la feuille de mon excel s'enrengistre n'importe où et ne suis pas le chemin determiner dans le code.

Help please !!

bonjour,

mets en place un

Msgbox chemin & nomfichier

avant ton SaveAs Filename pour voir ou tu arrives

M12

bonjour,

n'oublie pas de mettre le nom du disque dans ton chemin

c:\xx\xxx\xx

Re,

@M12

la boite de message me dit où est ce que le fichier à été enrengistré

Mais lorsque je vais sur le dossier d'enrengistrement, le fichier enrengistrer n'apparaît pas

@h2so4

Oui le premier xx est enfait C:

rebonjour,

n'oublie pas non plus de mettre un "\" à la fin de ton chemin ou au début de ton nom de fichier.

h2so4 a écrit :

rebonjour,

n'oublie pas non plus de mettre un "\" à la fin de ton chemin ou au début de ton nom de fichier.

Merci beaucoup c'était l'erreur

Bonne journée