Sauvegarde dans un dossier précis

[AzoR]

Bonjour,
J'ai un petit programme qui me permet de sauvegarder une feuille excel.
Le problème est que la sauvegarde se fait automatiquement dans "Mes documents" alors que je voudrais que ceci se sauvegarde dans un autre dossier.
Voici le programme de base:

Option Explicit

Private Sub CommandButton1_Click()
Dim nom As String
Dim rep As String
nom = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & Hour(Time) & "h" & Minute(Time) & "_" & ActiveWorkbook.Name
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & nom
rep = MsgBox("Votre base de données est sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")

End Sub

Je ne sais pas si on peut diriger la sauvegarde dans un dossier précis
Merci

 

[Pierrot93]

Re : Sauvegarde dans un dossier précis

Bonjour,

peut être comme ceci, enfin si j'ai bien compris... pas sur...

ActiveWorkbook.SaveCopyAs "C:\Temp\Excel\" & nom

bon après midi
@+

 

[AzoR]

Re : Sauvegarde dans un dossier précis

Merci beaucoup ça marche nickel !!!!