EXCEL / VBA. Création dossier PDF + Nom fichier variable + dossier variable

  • Initiateur de la discussion Initiateur de la discussion Maxim_
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Maxim_

XLDnaute Nouveau
Hello tout le monde,

Je cherche à créer une maccro qui dans un premier temps enregistre / convertie mon fichier en pdf et ensuite l'enregistre dans un dossier variable (selon le nom client, en l'occurence dans mon fichier cellule "B9").
J'ai réussi à créer les 2 maccros mais je n'arrive pas à les compiler.

Maccro "Enregistrer PDF" = converti en pdf à l'aide de l'imprimante "

Sub impr_PDF()
Application.ActivePrinter = "ScanSoft PDF Create! sur Ne00:"
ActiveWindow.SelectedSheets.PrintOut copies:=1, ActivePrinter:= _
"ScanSoft PDF Create! sur Ne00:", Collate:=True

End Sub


Maccro "Enregistrement dans dossier variable"

Sub Bouton16_QuandClic()

Dim chemin As String, fichier As String
Sheets("feuil1").Copy
chemin = ThisWorkbook.Path
fichier = chemin & "\" & "Enquête_" & Range("B9") & "_" & Format(Date, "dd.mm.yyyy") & ".xls"
ActiveWorkbook.SaveAs Filename:="D:\Documents and Settings\maxime\Desktop\Dossier client\" & [B9] & "\" & "FCC\" & "Enquête_" & Range("B9") & "_" & Format(Date, "dd.mm.yyyy") & ".xls"

End Sub


Pour info je travail sur EXCEL 2003 et j'ai PDF Create 5!
Merci d'avance pour votre aide
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
537
Retour