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:
Merci pour votre aide...
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
Partager