Créer repertoire et enregistrer fichier

[gourdin]

Bonsoir,

J'utilise le code ci-après pour créer un fichier PDF à partir d'une selection de cellule :

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Range("C1").Value & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

Le PDF est créé dans le même répertoire que mon fichier excel.

Je souhaiterai que la macro crée d'abord un sous répertoire (par exemple de la valeur de la cellule A4) dans le répertoire ou se trouve le fichier excel et qu'ensuite il cree le PDF dans ce répertoire.

Exemple :
Le fichier excel se trouve dans le répertoire C:\Perso\montravail.xls
Avec la macro le fichier PDF "toto.pdf" créé doit se trouver dans C:\Perso\fichierPDF\toto.pdf
La macro a donc créé le répertoire "FichierPDF" dans le fichier "Perso" avant d'y placer le fichier toto.pdf

Merci

 

[mapomme]

Re : Créer repertoire et enregistrer fichier

Bonsoir gourdin,

Vous pouvez essayer (pas testé) - à insérer dans votre code :

Dim NewRep

NewRep = "C:\Perso\fichierPDF"
MkDir NewRep
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NewRep & "\" & Range("C1").Value & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

 

[JNP]

Re : Créer repertoire et enregistrer fichier

Bonsoir le fil 🙂,
J'aurais plutôt dit

MkDir ThisWorkbook.Path & "\FichierPDF"

mais attention, le code plante si le dossier existe déjà 🙄...
Et attention aux caractères interdits 😛...
Bonne suite 😎

 

[mapomme]

Re : Créer repertoire et enregistrer fichier

Bonsoir,

avec test du répertoire:

Dim NewRep As String

NewRep = ThisWorkbook.Path & "\fichierPDF"
If Dir(NewRep & "\nul") = "" Then MkDir NewRep
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NewRep & "\" & Range("C1").Value & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

PS: Bonsoir JNP, tu as dit juste.

 

[gourdin]

Re : Créer repertoire et enregistrer fichier

Merci à vous deux !

Exactement ce qu'il me fallait

Bonne fin de soirée

 

[JONEY76]

Re : Créer repertoire et enregistrer fichier

Bonsoir,

Trouvant cette macro hyper intéressante, j'ai voulu la tester, il crée le dossier, il crée le PDF mais celui ci est vide...

 

[mapomme]

Re : Créer repertoire et enregistrer fichier

Bonjour,

Avant de lancer la macro, sélectionnez une zone non vide sur la feuille de votre classeur. Que ce passe-t-il ?

 

[gourdin]

Re : Créer repertoire et enregistrer fichier

Bonjour,

En effet il faut sélectionner une zone de cellule et celà fonctionne comme le signale cet extrait du code

"Selection.ExportAsFixedFormat" etc..

Si la sélection en cours est vide le PDF sera vide.

 

[JNP]

Re : Créer repertoire et enregistrer fichier

Re 🙂,
Euh, je suis un peu surpris, la question est posée pour 2003, les profils de Gourdin et Joney76 sont en 2003, et vous utilisez un export qui n'est apparu (si je ne me trompes) que pour 2007 (et encore, avec le téléchargement adequat pour 2007) 😕 ???
Pouvez-vous m'expliquer cette bizarerie 😛 ?
Bonne journée 😎

 

[gourdin]

Re : Créer repertoire et enregistrer fichier

Désolé de l'erreur

Au moment de poser la question je me suis trompé car j'utilise 2007.

 

[JONEY76]

Re : Créer repertoire et enregistrer fichier

Bonsoir à tous,

Je n'ai pas mis mon profil à jour, j'utilise 2003 et 2007

Je re-teste la macro de suite !!!


Verdict : Merci beaucoup !! ça fonctionne !!!