Enregistrer en PDF
Bonjour,
J'ai créé une saisie de devis automatique via des formulaires, j'ai également mis en place un bouton pour créer le PDF de manière automatique une fois le devis terminé.
Voila le code pour mon bouton PDF :
Sub imppdfdev()
Sheets("Modèle projet").Select
Application.ActivePrinter = "PDFCreator sur Ne01:"
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,""PDFCreator sur Ne01:"",,TRUE,,FALSE)"
End Sub
Quand je clique sur le bouton, tout fonctionne mais j'aimerai (si c'est possible) que le fichier s'enregistre automatiquement dans le bon dossier.
Il faut savoir que le nom du dossier où je souhaite l'enregistrer porte le même nom qu'une cellule de mon fichier.
La question est donc :
- Est il possible de dire le chemin à suivre pour enregistrer de manière automatique un fichier ?
- Si oui, comment faire ?
D'avance merci de votre aide,
Bonne journée à tous !!
FT22
Bonjour,
Sub imppdfdev()
Sheets("Modèle projet").Select
chemin = "C:\Users\xxxx\Documents\"
nomfichier = "dev en PDF"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & nomfichier & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End SubBonjour SabV,
Merci, je vais essayer comme ça ! !
Juste une petite précision où est ce que je précise la cellule qui va définir la dernière étape du chemin à suivre pour enregistrer (le nom du dossier de chaque client)
Encore merci,
Ce forum est très efficace, j'adore !!
FT22
Bonjour,
pour définir le répertoire, vous pouvez remplacer,
chemin = "C:\Users\xxxx\Documents\"par
chemin = Range("A1")