Microsoft 365 creer un dossier et sauvergarder un fichier PDF avec le meme nom

pralo

XLDnaute Junior
bonjour a tous
j'ai un petit souci avec une macro
j'ai adapter une macro qui creer un dossier en lui donnant le nom d'une cellule d'feuille Excel ca, a priori ca marche
mais ensuite je voudrais creer un pdf de la feuille et l'enregistrer dans le meme dossier et ca, je n'y arrive pas du tout
quelqu'un a une idée pour ca
merci encore


Sub Macro1()
' creer un dossier dans document
Dim Nom$
Nom = ActiveSheet.Range("A1")
If Dir("C:\Users\cottep\Documents\" & ActiveSheet.Range("A1"), vbDirectory) = "" Then MkDir "C:\Users\cottep\Documents\" & Nom

' enregistrer un pdf dans le dossier qui a etait creer ci-dessus avec le meme nom ???

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\cottep\Documents\bla bla bla", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
 

Pièces jointes

  • Service Report - Copie.xlsm
    101 KB · Affichages: 10

Lolote83

XLDnaute Barbatruc
Bonjour,
A priori
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\cottep\Documents\bla bla bla", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Remplacer le bla bla bla par Nom ce qui devrait donner
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\cottep\Documents\" & Nom & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Voili voilà.
Pas testé
@+ Lolote83
 

pralo

XLDnaute Junior
bonsoir lolote83
merci pour votre réponse rapide
oui super, le nom du pdf est bon
mais je vais abuser encore de vos lumières
en faite, j'ai plein de feuilles excel avec des noms différente en fonction des clients que visite
est-il possible de d'enregistrer le pdf dans le dossier qui porte le même nom
encore meri
 

Lolote83

XLDnaute Barbatruc
Re bonjour,
Si les dossiers sont tous dans la même arborescence, on pourrait avoir
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\cottep\Documents\" & Nom & "\" & Nom & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Dans ce cas, en imaginant que le Nom soit PRALO, on devrait donc avoir le chemin comme ceci

C:\Users\cottep\documents\PRALO\PRALO.pdf
En espérant avoir bien ciblé la demande
@+ Lolote83
 

Discussions similaires

Réponses
3
Affichages
477

Statistiques des forums

Discussions
313 209
Messages
2 096 235
Membres
106 540
dernier inscrit
Piehas