Enregistrer en pdf dans un dossier portant la nom d'une cellule.

[lioneldu47]

Bonjour tout le monde,​

Mon problème est que je voudrais enregistrer une feuille excel en pdf dans un dossier existant mais portant le nom d'une cellule.
J'ai dix dossiers et j'aimerais enregistrer la feuille excel dans le dossier que j'aurais préalablement écrit dans une cellule de référence.

Voici ma macro, le problème vient de la partie en rouge. En fait le dossier principal est Archive Facture et il y a des sous dossiers que j'aimerais bien choisir en les inscrivant dans la cellule "O2".

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Gestion de CastelInfo\Archive Facture\"Range("O2")"\" & Range("O1") & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

Merci pour votre aide.

 

[Guest]

Bonjour,

Avec ceci sans doute.

Filename:= _
        "C:\Gestion de CastelInfo\Archive Facture\" & Range("O2") & "\" & Range("O1") & ".pdf"

A+

 

[lioneldu47]

Re : Re: Enregistrer en pdf dans un dossier portant la nom d'une cellule.

Merci mais cela ne marche toujours pas il y a encore un problème. Le débogueur m'embête toujours...

 

[Guest]

Re,

Bon alors je te fais la même réponse qu'ici: https://www.excel-downloads.com/threads/password-sur-combobox.167079/

A+

 

[lioneldu47]

Re : Re: Enregistrer en pdf dans un dossier portant la nom d'une cellule.

lol mon fichier est trop complet... Je ne peux l'envoyer...Il faudrait les dossiers qui vont avec ect...parce que le problème vient de la...
Mon problème est juste sur la macro donnée.
Je veux savoir si le nom du dossier existant où l'enregistrement se fera peut être nommé dans une cellule comme c'est déjà fait pour le nom du fichier enregistré en pdf.
Par exemple j'ai un dossier nommé 2011 et un 2012. Lorsque dans la cellule O2 je met 2011 ça enregistre dans le dossier 2011.
Merci j'espère que vous comprendrez.

 

[JCGL]

Re : Enregistrer en pdf dans un dossier portant la nom d'une cellule.

Bonjour à tous,
Salut Hasco 🙂 🙂,

Es-tu certain que les répertoires existent ?

A + à tous

 

[lioneldu47]

Re : Enregistrer en pdf dans un dossier portant la nom d'une cellule.

Oui oui certain. En mettant :Filename:= _"C:\Gestion de CastelInfo\Archive Facture\2011\" & Range("O1") & ".pdf" _
Cela fonctionne. Mais je voudrais que le répertoire 2011 soit variable à partir d'une cellule sans aller modifier la macro. Par exemple en 2012 je voudrais que l'utilisateur tape 2012 dans la cellule souhaité pour que le fichier soit enregistré dans le répertoire 2012 qui existe déjà...
Merci pour votre aide.

En mettant la solution de Hasco qui me parrait correcte j'ai une erreur "argument ou procedure incorrecte.

 

[JCGL]

Re : Enregistrer en pdf dans un dossier portant la nom d'une cellule.

Bonjour à tous,

Peux-tu essayer avec :

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Gestion de CastelInfo\Archive Facture\" & Range("O2").Text & "\" & Range("O1") & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

A + à tous

 

[lioneldu47]

Re : Enregistrer en pdf dans un dossier portant la nom d'une cellule.

Cela ne marche toujours pas il y a le même problème sur la macro. Je ne vois vraiment pas d'où cela vient. Pensez-vous que ce que je veux faire est possible?
Merci quand même pour la réponse.
a +

 

[JCGL]

Re : Enregistrer en pdf dans un dossier portant la nom d'une cellule.

Bonjour à tous,

J'ai testé ton code avant de déposer et cela fonctionne parfaitement...(avec un chemin raccourci : "C:\" & Range("O2") & "\" & Range("O1") & ".pdf" )
Tu écrits que cela ne marche pas mais sans préciser où est l'erreur...
Nous sommes bien d'accord aussi que tu es sous XL 2007 ou supérieur...

Vérifie les noms de tes répertoires et ou de tes cellule O1 et O2 ("2011" est différent de "2011 " pour les cellules et les répertoires)

A + à tous

 

[lioneldu47]

Re : Enregistrer en pdf dans un dossier portant la nom d'une cellule.

Vraiment désolé !!!!! j'ai testé le code sur l'ordinateur source de l'application et cela fonctionne. Il devait y avoir un problème autre que la macro...

Merci beaucoup