Macro enregistrer en pdf DANS LE DOSSIER du xlsm

Bonjour,

J'ai créé un bouton macro, pour gagner du temps, servant à enregistrer en PDF les devis que je fais en excel, afin de pouvoir les envoyer à mes clients.

Ma difficulté réside dans le lieu d'enregistrement du PDF.

J'ai besoin que le PDF s'enregistre à l'endroit même où le XLSM est enregistré.

Jusque là ça marchait plutôt bien, et là je m'aperçois qu'en fait soit ça ne marche plus, soit ça n'a jamais vraiment fonctionné (et je ne m'en suis pas aperçue).

Ma macro :

Sub Enregistre_devis_pdf_dossier_local()

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

Range("initiale_prenom").Value & "-" & Range("nom_minuscule").Value & "-devis-" & Range("intitule_devis").Value & "-rouchenergies", Quality:= _

xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

OpenAfterPublish:=True

End Sub

Qu'est-ce que je dois changer pour le dossier dans lequel le PDF s'enregistre soit le même que celui où se trouve le XLSM ?

Merci pour votre aide, car je n'ai pas réussi à trouver de (bonne) réponse à mon souci avec Google (j'ai essayé tout un tas de trucs que j'ai trouvé ici ou là, mais rien ne fonctionne comme j'en ai besoin).

Florence

Bonjour

il faut mettre :

Activeworkbook.path & "/" apres le filename:= et avant le range (...)

Fred

Bonsoir,

A tout hasard, (non testé)

Mets en début de code une ligne du genre :

ChDir ActiveWorkbook.Path

ou tu le nommes en mettant cette ligne devant, comme ceci :

Sub Enregistre_devis_pdf_dossier_local()
Dim LePath As String
LePath = ThisWorkbook.Path & "\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
LePath & Range("initiale_prenom").Value & "-" & Range("nom_minuscule").Value & "-devis-" & Range("intitule_devis").Value & "-rouchenergies", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub

Bon courage

Edit : @fred2406, tu es sûr pour le "/" ?

Ne serait-ce plutôt "\" ?

Bonjour cousinhub

oui c'est le "\" j’écrivais avec mon téléphone et je me suis trompé de touche....

fred

Merci Cousin Hub !!

Nickel, ça marche parfaitement !

Merci encore, et bon dimanche

Rechercher des sujets similaires à "macro enregistrer pdf dossier xlsm"