Sauve, pourquoi dans mes documents ?
Bonsoir à tous,
J'ai un fichier dans un dossier sur mon bureau.
J'ai donc une macro "Sauve" qui sauvegarde mon fichier avec le nom, la date et l'heure.
Pourquoi elle sauvegarde dans mes documents ?
Sub Sauve()
Dim strDate As String
Count = Len(ActiveWorkbook.Name)
nom = Left(ActiveWorkbook.Name, Count - 4)
strDate = Format(Date, " dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ThisWorkbook.SaveCopyAs Filename:=Dossier & nom & strDate & ".xlsm"
End Sub
Je veux qu'il me sauve le fichier dans mon dossier (ou il se trouve)
Je fais une erreur, mais ou
Si quelqu'un veut bien m'expliquer j'en serais ravie.
Junot a écrit :ThisWorkbook.SaveCopyAs Filename:=Dossier & nom...
Dossier n'est pas défini dan cette macro ou défini ailleurs...
Dossier doit contenir le Path du dossier d'enregistrement.
A+
Bonsoir Galopin,
Nous avons déjà travaillé ensemble,
galopin01 a écrit :Junot a écrit :ThisWorkbook.SaveCopyAs Filename:=Dossier & nom...
Dossier n'est pas défini dan cette macro ou défini ailleurs...
Dossier doit contenir le Path du dossier d'enregistrement.
A+
merci pour la réponse mais je le Path dans ma macro ?
Marie
Bonsoir,
Personne pour me dire ou je mets le Path
dans ma macro ci-dessus.
On se calme ! A mon âge, après le repas on fait des petites siestes...
ça peut te donner quelque chose comme ça :
Sub Sauve()
Dim strDate$, Chemin$
Chemin = ThisWorkbook.Path
Count = Len(ActiveWorkbook.Name)
nom = Left(ActiveWorkbook.Name, Count - 4)
strDate = Format(Date, " dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ThisWorkbook.SaveCopyAs Filename:=Chemin & "\" & nom & strDate & ".xlsm"
End SubA+
Bonjour Galopin,
A 21h25, vu mon âge j'étais déjà allongée.
Merci beaucoup.