macro enregistrer en pdf DANS LE DOSSIER du xlsm Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Flodariege
Membre habitué
Membre habitué
Messages : 51
Inscrit le : 4 février 2012
Version d'Excel : 2010 FR

Message par Flodariege » 11 avril 2015, 17:36

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
Avatar du membre
fred2406
Membre impliqué
Membre impliqué
Messages : 1'940
Appréciations reçues : 28
Inscrit le : 13 mai 2014
Version d'Excel : 2007-201364bits-2011MAC

Message par fred2406 » 11 avril 2015, 18:21

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

Fred
Je ne réponds pas aux M.P. non sollicités.
Fred
c
cousinhub
Membre impliqué
Membre impliqué
Messages : 1'949
Appréciations reçues : 5
Inscrit le : 28 mai 2009
Version d'Excel : xl 2016

Message par cousinhub » 11 avril 2015, 18:22

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 "\" ?
1/ on se demande à quoi servent les correcteurs d'orthographe....
2/ Notre seule récompense est un "Merci".....
Avatar du membre
fred2406
Membre impliqué
Membre impliqué
Messages : 1'940
Appréciations reçues : 28
Inscrit le : 13 mai 2014
Version d'Excel : 2007-201364bits-2011MAC

Message par fred2406 » 11 avril 2015, 19:03

Bonjour cousinhub
oui c'est le "\" j’écrivais avec mon téléphone et je me suis trompé de touche....
fred
Je ne réponds pas aux M.P. non sollicités.
Fred
Avatar du membre
Flodariege
Membre habitué
Membre habitué
Messages : 51
Inscrit le : 4 février 2012
Version d'Excel : 2010 FR

Message par Flodariege » 11 avril 2015, 20:16

Merci Cousin Hub !!
Nickel, ça marche parfaitement !
Merci encore, et bon dimanche :)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message