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

pralo · 7 Décembre 2023

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

Lolote83 · 8 Décembre 2023

Re bonjour,
Si la solution apportée correspond à votre demande, ne pas hésiter à passer le post en résolu.
Coche verte en face du post qui apporte la solution
Bon week-end également
@+ Lolote83

Lolote83 · 7 Décembre 2023

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 · 7 Décembre 2023

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 · 8 Décembre 2023

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

pralo · 8 Décembre 2023

bonjour
merci beaucoup
c'est exactement ce que je voulais
je vous souhaite un bon week-end

Lolote83 · 8 Décembre 2023

Re bonjour,
Si la solution apportée correspond à votre demande, ne pas hésiter à passer le post en résolu.
Coche verte en face du post qui apporte la solution
Bon week-end également
@+ Lolote83

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

pralo

XLDnaute Junior

Pièces jointes

Lolote83

Lolote83

XLDnaute Barbatruc

pralo

XLDnaute Junior

Lolote83

XLDnaute Barbatruc

pralo

XLDnaute Junior

Lolote83

XLDnaute Barbatruc

Discussions similaires