Discussion :

[HIGGUINS]

Bonjour,

J'ai un code qui me permet d'enregistrer directement mon fichier dans un dossier en fonction du nom du fichier. Il marche ça va. Maintenant je souhaiterai avant qu'il enregistre me faire apparaître la boite de dialogue "enregistrer sous".

Voici le 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
21
Private Sub Enregistrerimprimer_Click()
 
Dim Chemin As String
Dim mondossier As String
Dim Fichier As String
 
' Nom du chemin
Chemin = "C:\Users\POSTE1\Documents\Essai devis\"
 
'Nom du dossier
mondossier = Range("J6").Value
 
'nom du fichier
Fichier = Range("J6") & " " & Format(Range("F2"), "00") & " " & Format(Range("G2"), "00") & " " & Format(Range("H2"), "000") & " " & Format(Range("I2"), "000") & ".xlsm"
 
'teste de la présence du dossier
If Dir(Chemin & mondossier, 16) = "" Then MkDir Chemin & mondossier
 
ActiveWorkbook.SaveAs Chemin & mondossier & "\" & Fichier
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub

Je n'arrive pas à faire apparaître la boite dialogue à l'endroit où il doit être enregistré.

[Marc-L]

Bonjour,

consulter l'aide de l'objet FileDialog et voir ses propriétés …


_____________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[HIGGUINS]

Bonjour,

Depuis votre réponse j'essaie de chercher la solution pour avoir la boite de dialogue qui s'ouvre exactement dans le dossier spécifique d'enregistrement et avoir le nom du fichier qui apparait . J'ai l'un ou l'autre. Pourriez-vous m'aider.

higguins

[Marc-L]

Bonjour,

pourtant il y a tout dans l'aide ‼

Pour le dossier, voir l'aide et son exemple de la propriété InitialFileName de l'objet FileDialog …


Sinon il y a aussi la méthode GetSaveAsFilename combinée à la méthode SaveAs …


_____________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …



_____________________________________________________________________
Quelle époque terrible que celle où des idiots dirigent des aveugles. (Shakespeare)

[HIGGUINS]

Re,

Dans l'aide j'ai trouvé, mais cela ne marche pas. J'ai essayé de mettre le code à différent endroit => c'est pareil. Donner différents nom à InitialFileName => c'est pareil. Cela ne marche pas. Je n'ai pas ma fenêtre de dialogue qui s'ouvre à l'endroit où doit être enregistré mon fichier avec/ou sans le nom du fichier. A l'aide.

higguins

[Marc-L]

De mon côté cela fonctionne bien sur deux ordinateurs avec des versions différentes d'Excel …

Pour la méthode GetSaveAsFilename, il faut modifier au préalable le lecteur et le dossier courant

à l'aide des instructions ChDrive et ChDir …


_____________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …



____________________________________
On ne dit pas une biroute mais une route à deux voies …