macro de sauvegarde, chemin predefinnis.

[ninanani]

Bonjour (bonsoir pour chez moi)

Alors voila, j ai une macro de sauvegarde qui fonctionne, seulement j aimerais predefinnir un chemin pour la sauvegarde. Que l on est pas besoin de le faire a chaque sauvegarde. Voila ma macro :

Sub Save_Sheet()

Dim strNom As Variant

[COLOR="Red"]ChDir "C:\Documents and Settings\Administrator\Desktop\nina\Paid invoices"[/COLOR]

toto = Name & Range("B10") & Format(Range("G5"), " yyyy-mm-dd")
strNom = Application.GetSaveAsFilename(toto, "Simple Invoice (*.xls),*.xls")


If strNom <> False Then
ActiveSheet.Copy
ActiveWorkbook.SaveAs strNom
ActiveWorkbook.Close
End If


End Sub

En rouge ma direction, seulement que dois je rajouter pour cela parte dans cette direction?

Merci a vous.

 

[Gael]

Re : macro de sauvegarde, chemin predefinnis.

Bonjour Ninanani,

Normalement tu ne devrais rien rajouter puisque chdir va changer le répertoire par défaut, la fenêtre de sauvegarde devrait te proposer directement le répertoire défini par chdir.

@+

Gael

 

[bomagicmusic]

Re : macro de sauvegarde, chemin predefinnis.

Bonjour,

J'ai essayé la macro proposé (je recherche la même chose) et effectivement le chemin n'est pas noté, que faut-il faire?

 

[Gael]

Re : macro de sauvegarde, chemin predefinnis.

Bonsoir à tous,

Lorsque le chemin n'est pas précisé, XL propose la sauvegarde dans le dossier par défaut.

L'instruction "Chdir" permet de définir un nouveau dossier par défaut et XL proposera la sauvegarde dans ce nouveau dossier.

Pour tester la procédure, il suffit de mettre un chemin valable pour chdir et un nom quelconque pour "toto". la fenêtre de sauvegarde doit afficher le dossier défini dans chdir.

"Chdir" ne permet pas de changer le lecteur par défaut. Pour passer d'un C:\Test à un D:\Essai, il faut aussi utiliser "Chdrive" pour passer de "C:" en "D:".

@+

Gael