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

[pralo]

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]

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]

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]

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]

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

 

[Lolote83]

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