Bonjour à tous, j'ai une fonction VBA qui enregistre des fichiers PDF dans un dossier pour cela j'utilise les lignes suivantes :
Dans une autre fonction, j'ai créé un bouton pour pouvoir ouvrirr le dossier de sauvegarde de mes fichiers PDF pour cela j'utilise :
L'idée serait maintenant d'harmoniser le tout en créant un bouton sur la Feuil1 qui permet de choisir le dossier futur des sauvegardes en mettant à jour la variable chemin pour la première fonction et en changeant l'InitialFileName dans la seconde fonction. J'espère être clair dans ma demande merci beaucoup pour votre aide.
Cordialement
Code:
chemin = "C:\Users\lelan\Mes documents locaux\Essai1\"
ActiveWorkbook.Worksheets("Feuil5").ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin
Dans une autre fonction, j'ai créé un bouton pour pouvoir ouvrirr le dossier de sauvegarde de mes fichiers PDF pour cela j'utilise :
Code:
Sub Bouton_QuandClic()
Dim chemin As String
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = "C:\Users\l\Mes documents locaux\Essai1"
.Show
End With
End Sub
L'idée serait maintenant d'harmoniser le tout en créant un bouton sur la Feuil1 qui permet de choisir le dossier futur des sauvegardes en mettant à jour la variable chemin pour la première fonction et en changeant l'InitialFileName dans la seconde fonction. J'espère être clair dans ma demande merci beaucoup pour votre aide.
Cordialement