XL 2019 chemin dossier

[farid]

Bonjour,
j'ai trouvé cette macro qui fonctionne très bien et j'en remercie l'auteur. Cependant , dans cette macro l'enregistrement se fait dans le dossier du fichier et je voulais savoir si c'est possible que l'enregistrement puisse se faire dans un autre dossier.
par avance , merci

Sub enregistrerpdf()
Dim nompdf As String Dim dossier As String
dossier = ThisWorkbook.Path
nompdf = dossier & "\" & Sheets("Informations Agence").Range("B31") ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

 

[dysorthographie]

Bonjour,

dossier="c:\toto"

Si le dossier toto existe il n'y a pas de problème

Voir

Application.Dialogs(xlDialogSaveAs).Show

 

[farid]

Bonjour,

dossier="c:\toto"

Si le dossier toto existe il n'y a pas de problème

Voir

Application.Dialogs(xlDialogSaveAs).Show

Bonjour,
merci beaucoup, cela fonctionne très bien
bien a vous