Bonjour à tous...
Tout d'abord un grand merci à Developpez et tout ceux qui l'accompagne, grâce à vous je commence à me débrouiller en VBA...

Mais je bloc encore lol

Voilà mon petit souci, j'ai crée un bouton me permettant d'ouvrire la boite de dialogue Enregistrer sous et de précharger le nom du fichier avant la sauvegarde à partir de mon contenu dans excel.

jusque ici tout va bien. Je souhaiterai maintenant modifier le chemin par défaut de la boite de dialogue et c'est là que je bloc...

Voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub CommandButton5_Click()
 
'Chemin où devra être sauvé le fichier Excel
chemin_sauvegarde = ThisWorkbook.Path & "\Sauvegarde mesure à vide\"
 
'création du nom de la sauvegarde avec date caractéristique
a = Sheets("Fiche technicien").Range("date").Value
b = Sheets("Fiche technicien").Range("nomdelessai").Value
C = Sheets("Fiche technicien").Range("puissance").Value
d = Sheets("Fiche technicien").Range("U").Value
Nom_sauvegarde = a & "_" & b & "_" & C & "kW" & "_ " & d & "V"
 
'J'ai essayer avec Chdir mais ça ne fonctionne pas...
ChDir "C:\Documents and Settings\BODET\Bureau\Dossier Moteur à Vide\Sauvegarde mesure à vide\"
 
'Ouvrire la boite de dialogue "Enregistrer sous" + nom de sauvegarde
Application.Dialogs(xlDialogSaveAs).Show (Nom_sauvegarde & ".xls")
 
End Sub
Merci pour votre aide...