Créer un PDF à l'enregistrement du Exel Résolu/Fermé

Question

Bonjour, 

Je voudrai savoir s'il est possible de générer un fichier PDF à l'enregistrement de mon fichier exel en automatique ??

Car je voudrai éviter de passer par "enregistrer sous PDF" ou encore "PDF Créator" etc.


J'utilise Office 2010

Merci,


Configuration: Windows 7 / Internet Explorer 8.0

f894009 · Accepted Answer

Re,Code a copier dans VBA---->ThisWorkbook 

Ouvrir VBA par Alt+F11 
Double click gauche sur ThisWorbook en haut a gauche 
Click gauche sur fenetre a droite 

Copier le code 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
'Changer le chemin et le nom du fichier 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
"D:\_Docs_Prog_Excel\filtre_2003.pdf", Quality:=xlQualityStandard, _ 
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ 
True 

End Sub

f894009 · Answer

Bonjour,
Code a copier dans VBA---->ThisWorkbook


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  'Changer le chemin et le nom du fichier
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "D:\_Docs_Prog_Excel\filtre_2003.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True

End Sub

David512 · Answer

Puis-je avoir + de détail (tutoriel) car je suis novice en la matiére !!!!

Merci,

David512 · Answer

Re,

J'ai bien coller le code dans ThisWorkBook mais je ne sait pas quoi faire par la suite...

dois-je fermer la fenetre ou modifier: 'changer le chemin et le nom du fichier ou autre chose ??? 

merci de m'aiguiller car je ne connait aucunement VBA

f894009 · Answer

Bonjour,

dois-je fermer la fenetre ou modifier: 'changer le chemin et le nom du fichier ou autre chose ??? 

Vous devez remplacer:
"D:\_Docs_Prog_Excel\filtre_2003.pdf"

par le chemin et le nom de votre fichier ex: "C:
omrepertoire
omfichier.pdf"

ensuite vous fermez la fenetre VBA et faite le test en fermant votre fichier.

A+

David512 · Answer

Un grand merci, cela fonctionne trés bien !!

Maintenant il y a un petite subtilitée:
Le code décrit un emplacement bien spécifique. Moi je voudrai pouvoir l'enregistrer dans plusieurs dossiers !!!
Je m'explique:
Dés que j'ouvre un nouveau fichier excel et que je l'enregistre sous par exemple:

 "A28658" je voudrai qu'il soit enregistré dans un dossier C:\A\A28600-A28700
Le nom de mon fichier A28658 doit se trouver dans le dossier A28600-A28700 car il est compris entre A28600 et A28700.

"B52369" je voudrai qu'il soit enregistré dans un dossier C:\B\B52300-B52400
Le nom de mon fichier B52369 doit se trouver dans le dossier B52300-B52400 car il est compris entre B52300 et B52400.

"Z00069" je voudrai qu'il soit enregistré dans un dossier C:\Z\Z00000-Z00100
Le nom de mon fichier Z00069 doit se trouver dans le dossier Z00000-Z00100 car il est compris entre B52300 et B52400.

etc...

J'espére que c'est faisable !!!

Merci d'avance,

f894009 · Answer

Re,

"A28710" pourrait exister???

David512 · Answer

Oui et je voudrai qu'il soit enregistré dans un dossier C:\A\A28700-A28800 
Le nom de mon fichier A28710 doit se trouver dans le dossier A28700-A28800 car il est compris entre A28700 et A28800. 

Tout comme autre références...

David512 · Answer

Par la même occasion le nom de fichier générer en PDF doit avoir le même nom que le fichier excel !!!

f894009 · Answer

Re,

Pour facilite et qui serait plus logique, il faudrait faire des repertoires: 
C:\A\A28600---->de 600 a 699
C:\A\A28700---->de 700 a 799
C:\A\A28800---->de 800 a 899

et .......

f894009 · Answer

Re

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  'repertoire
  rep = "C:\" & Left(ThisWorkbook.Name, 1)
  'sous-repertoire
  Sous_rep = Left(fichier_test, 4) & "00"
  Nom_Fichier = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5)
  strCheminComplet = rep & "\" & Sous_rep & "\" & Nom_Fichier & ".PDF"
  'sauvegarde eb PDF et xlsx
  ActiveWorkbook.SaveAs Filename:=strCheminComplet, _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    Range("B25").Select
    ActiveWorkbook.Save
    Application.WindowState = xlMinimized
End Sub


A essayer

David512 · Answer

Re

Je ne peut pas faire de répertoire C:\A\A28600---->de 600 a 699 car j'ai déjà des références C:\A\A600---->de 600 a 699

Par contre ce que je peut faire :

"A28658" je voudrai qu'il soit enregistré dans un dossier C:\A\A28600-A28699 
Le nom de mon fichier A28658 doit se trouver dans le dossier A28600-A28699 car il est compris entre A28600 et A28699. 

"B52369" je voudrai qu'il soit enregistré dans un dossier C:\B\B52300-B52399 
Le nom de mon fichier B52369 doit se trouver dans le dossier B52300-B52399 car il est compris entre B52300 et B52399. 

"Z00069" je voudrai qu'il soit enregistré dans un dossier C:\Z\Z00000-Z00099 
Le nom de mon fichier Z00069 doit se trouver dans le dossier Z00000-Z00099 car il est compris entre Z00000 et Z00099.

Si ça arrange !!!

Pour le dernier code, me dire ce qu'il faut remplacer comme texte !!

Merci d'avance,

f894009 · Answer

Bonjour, 

Je ne peut pas faire de répertoire C:\A\A28600---->de 600 a 699 car j'ai déjà des références C:\A\A600---->de 600 a 699. 

Nous nous sommes mal compris. 

C:\A\A28600---->de A28600 a A28699.

et pourquoi C:\B\B52300-B52399 ce qui est en de 300 a 399 est forcement dans le repertoire C:\B\B52300 alors simplifiez.

Dans le code ci-dessous, les repertoires sont : C:\A\A28600 .......
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'repertoire
rep = "C:\" & Left(ThisWorkbook.Name, 1)
'sous-repertoire
Sous_rep = Left(fichier_test, 4) & "00"
Nom_Fichier = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5)
strCheminComplet = rep & "\" & Sous_rep & "\" & Nom_Fichier & ".PDF"
'sauvegarde eb PDF et xlsx
ActiveWorkbook.SaveAs Filename:=strCheminComplet, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Range("B25").Select
ActiveWorkbook.Save
Application.WindowState = xlMinimized
End Sub

Il n'y a rien a remplacer

David512 · Answer

Au niveau des répertoires ce sont des dossiers qui ont été créer il y a pas mal d'année et vue le nombre qu'il y a je ne peut pas me permettre de tout modifier...

Je doit donc rester dans cette config de classement...

l'exemple que j'ai donné était : C:\A\A28600-A28699 pour faire simple

mais en réalité j'aurai dû être plus précis:
il s'agit: P:
omrépertoire
omrépertoire
omrépertoire
omrépertoire
omrépertoire
omrépertoire
omfichier.pdf

ce qui correspond à:
P:\etude\Plan\Fiche\A\A28600-A28699
omfichier.pdf

f894009 · Answer

Re, 

Code avec ce que vous avez demander. 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'repertoire
rep = "P:\etude\Plan\Fiche\" & Left(ThisWorkbook.Name, 1)
'sous-repertoire
Sous_rep = Left(fichier_test, 4) & "00-" & Left(fichier_test, 4) & "99"
Nom_Fichier = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5)
strCheminComplet = rep & "\" & Sous_rep & "\" & Nom_Fichier & ".PDF"
'sauvegarde eb PDF et xlsx
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strCheminComplet _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
ActiveWorkbook.Save
End Sub

Bonne suite

David512 · Answer

En enregistrant mon fichier excel j'obtient un message d'erreur:

Erreur d'exécution '1004':
La méthode 'saveAs' de l'objet'_Workbook' a échoué

f894009 · Answer

Re,

J'ai mis une autre version entre temps.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'repertoire
rep = "P:\etude\Plan\Fiche\" & Left(ThisWorkbook.Name, 1)
'sous-repertoire
Sous_rep = Left(fichier_test, 4) & "00-" & Left(fichier_test, 4) & "99"
Nom_Fichier = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5)
strCheminComplet = rep & "\" & Sous_rep & "\" & Nom_Fichier & ".PDF"
'sauvegarde eb PDF et xlsx
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strCheminComplet _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
ActiveWorkbook.Save
End Sub

David512 · Answer

Maintenant avec cette nouvelle version en enregistrant mon fichier excel j'obtient un message d'erreur: 

Erreur d'exécution '1004': 
Document non enregistré. Le document est peut-etre ouvert ou une erreur s'est produite lors de l'enregistrement.

f894009 · Answer

Re,

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'repertoire
rep = "P:\etude\Plan\Fiche\" & Left(ThisWorkbook.Name, 1)
'sous-repertoire
Sous_rep = Left(fichier_test, 4) & "00-" & Left(fichier_test, 4) & "99"
Nom_Fichier = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5)
strCheminComplet = rep & "\" & Sous_rep & "\" & Nom_Fichier & ".PDF"
'sauvegarde eb PDF et xlsx
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strCheminComplet _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

David512 · Answer

Re,

Je n'ai plus de message d'erreur avec ce nouveau code mais le PDF ne se génére plus...

David512 · Answer

Re,

J'ai peut être une solution un peu plus simple à vous apportez en changeant ma demande.

Je voudrai toujours générer un PDF à l'enregistrement mais cette fois-ci je voudrai que se soit sur le bureau. Ce PDF devra avoir le même nom que mon fichier excel.
Et j'irai le classer manuellement dans mes répertoires. je pense que se sera plus simple.

f894009 · Answer

Bonjour,

Ca marche chez moi, cela doit marcher chez vous.
Pouvez vouz mettre un point d'arret devant cette ligne

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strCheminComplet _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

et en passant le curseur de la souris sur strCheminComplet, vous verrez si le chemin et le nom de fichier est celui que vous attentez.

A+

David512 · Answer

Le chemin comporte un dossier 0 mais j'en ai pas çà doit provenir du message d'erreur !!!

f894009 · Answer

Re,
Une question: le fichier .xls, que vous voulez en PDF, c'est un fichier qui a deja un nom ou il n'a jamais ete enregistre???

David512 · Answer

il a déjà un nom mais à l'enregistrement je le renomme avec un numéro et le PDF aura le meme numéro

f894009 · Answer

Re,

vous allez mettre le code ci-dessous a la place du code actuel.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'repertoire
rep = "P:\etude\Plan\Fiche\" & Left(ThisWorkbook.Name, 1)
'sous-repertoire
Sous_rep = Left(fichier_test, 4) & "00-" & Left(fichier_test, 4) & "99"
Nom_Fichier = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5)
strCheminComplet = rep & "\" & Sous_rep & "\" & Nom_Fichier & ".PDF"
'sauvegarde eb PDF et xlsx
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strCheminComplet _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub

manip a faire:

le fichier xls ouvert, vous l'enregistrez sans le fermer (enregistrer sous...). ensuite vous fermer le fichier, puis vous nous dites ce qui c'est passe.

David512 · Answer

OK ! Alors j'ai un message d'erreur quand je ferme mon fichier ou il m'invite à cliquer sur débogageet quand je clic dessus il m'ouvre ThisWorkBook.

La ligne

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strCheminComplet _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

est surligner en jaune !!!!

+ une fléche jaune devant: OpenAfterPublish:=True

f894009 · Answer

Re,

Avez vous pense a regarder la valeur de  strCheminComplet??

La fleche devant OpenAfterPublish:=True indique une erreur sur la ligne 

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strCheminComplet _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True




OpenAfterPublish:=True ----> c'est pour ouvrir le fichier PDF apres son enregistrement une fois que cela marchera. A conserver ou pas

David512 · Answer

J'ai créer des nouveaux chemins sous un serveur Z:
Dossier: Diffusions_Plans
Sous dossier: PDF
Sous dossier: FPI
Sous dossier: 7500-7599

donc j'ai modifié le chemin dans le code...

pour essai j'ai enregister sous mon fichier au nom : 7558 sur mon bureau


quand je met mon curseur sur strCheminComplet la valeur est:
"Z:\Diffusion_Plans\PDF\FPI\7\00-99\755.PDF

f894009 · Answer

Re,
C'est normal, le code que je vous ai fourni est fait pour un nom de fichier bien cadre: ex: que vous avez donne A28669, donc si vous changez la longueur du nom de fichier ou son appellation cela ne marche plus.

\7\00-99\755.PDF ne correspond pas du tout a votre demande d'origine.

David512 · Answer

J'ai du mal m'exprimé !!!

En fait mon fichier excel que je nomme 7558 correspond à une référence D28628

En gros je parle de la FPI N°7558 de la référence D28628.

Donc quand "j'enregistre sous" 7558.xls je veux que le fichier PDF généré aille se ranger dans "Z:\Diffusion_Plans\PDF\FPI\D\D28600-D28699\D28628\7558.PDF

Pour Info: Il faut savoir que dans mon fichier excel 7558.xls j'ai une cellule fusionné de W2 à Z2 ou je rentre la référence: D28628 et une autre cellule de W4 à Z4 ou je rentre le nom de mon fichier soit 7558.

Si on peut lier tout çà....

J'espére que je suis plus clair et encore désolé ;)

f894009 · Answer

Re,

"P:\etude\Plan\Fiche\" et "Z:\Diffusion_Plans\PDF\FPI..." comment je fais pour

David512 · Answer

Je n'ai pas compris votre question car je n'ai pas eu la fin du message ???

f894009 · Answer

Bonjour,
C'est simple, vous m'avez donne un chemin : "P:\etude\Plan\Fiche\" a un moment donne. Maintenant vous definissez un autre chemin "Z:\Diffusion_Plans\PDF\FPI..." qui est (je pense) fonction d'une reference que je ne connais pas.
Donc, comment je fais pour vous donnez satisfaction???

David512 · Answer

Re,

Bonjour,

Le premier chemin que j'ai spécifié "P:\etude\Plan\Fiche\" est le chemin que j'ai actuellement pour ranger mes pdf !!!
donc je vous l'ai donné comme exemple !!!

Aujourd'hui on me demande de les ranger dans  "Z:\Diffusion_Plans\PDF\FPI..." donc le 1er chemin n'existe plus. le code que vous créer doit prendre en compte le nouveau chemin...

Ce que je voudrai aujourd'hui est écrit dans le message du 2 avril 2012 à 16:38 !!

f894009 · Answer

Re,

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Nom de la feuille a changer si pas feuil1
Reference = Worksheets("feuil1").Range("W2")
Nom_Fichier_PDF = Worksheets("feuil1").Range("W4")

'repertoire
rep = "Z:\Diffusion_Plans\PDF\FPI\" & Left(Reference, 1) & "\"
'sous-repertoire
Sous_rep = Left(Reference, 4) & "00-" & Left(Reference, 4) & "99" & "\"
'sous-sous-repertoire
Sous_Sous_rep = Reference & "\"

Nom_Fichier = Nom_Fichier_PDF & ".PDF"
strCheminComplet = rep & Sous_rep & Sous_Sous_rep & Nom_Fichier

'sauvegarde eb PDF
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strCheminComplet _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

A+

David512 · Answer

Re,

Aprés avoir coller ce code : 
Message d'erreur-> Erreur d'execution '9': L'indice n'appartient pas à la selection.

et la ligne: Reference = Worksheets("feuil1").Range("W2") est surligner en jaune !!!

Pour info, j'ai renommer ma "feuil1" en "FPI - Fiche" ; faut'il remplacer Worksheets("feuil1") par Worksheets("FPI - Fiche") ????

f894009 · Answer

Re,

Oui, c'est ecrit en commentaire dans le code

David512 · Answer

C'est bon cela fonctionne trés bien un grand merci !!! 

J'ai 2 autre questions:

1) j'ai une "feuill2" dans excel qui me sert pour une validation de donnée pour une liste déroulante dans "FPI - Fiche" donc quand le PDF se génére j'ai également la "feuil2" qui se crée, est-ce qu'il est possible de générer que la 1ere feuil ????


2) Je pourrai avoir dans quelques mois des références tels que : EB13191
Est-ce que cela marchera également si je crée ???
"Z:\Diffusion_Plans\PDF\FPI\EB\EB13100-EB13199\EB13191\1111.PDF

David512 · Answer

C'est bon cela fonctionne trés bien un grand merci !!! 

J'ai 2 autre questions:

1) j'ai une "feuill2" dans excel qui me sert pour une validation de donnée pour une liste déroulante dans "FPI - Fiche" donc quand le PDF se génére j'ai également la "feuil2" qui se crée, est-ce qu'il est possible de générer que la 1ere feuil ????


2) Je pourrai avoir dans quelques mois des références tels que : EB13191
Est-ce que cela marchera également si je crée ???

Z:\Diffusion_Plans\PDF\FPI\EB\EB13100-EB13199\EB13191\1111.PDF

f894009 · Answer

Re, 
1) Oui, je fais la modif. 
2) Non, il faut faire quelque modification. Je regarde la chose. 

Question: est ce que le pdf cree s'affiche? Si oui est ce que cela vous convient?

David512 · Answer

Oui le PDF s'ouvre dés que j'enregistre le fichier excel !!! on peut le laisser pour l'instant. Si par la suite je le veut plus me dire comment l'enlever dans le code !!!

ok pour 1) et 2)


Pour 1)

j'ai "feuil1" renommé en "FPI - Fiche de Contrôle" soit 1 tableau FPI = 1 page + 1 tableau Fiche de Contrôle = 1 page
"feuil2" 5 noms pour validation de données pour liste déroulante

Le PDF doit juste me garder 2 Pages FPI + Fiche de Contrôle

f894009 · Answer

Re,

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Reference = Worksheets("FPI - Fiche").Range("W2")
Nom_Fichier_PDF = Worksheets("FPI - Fiche").Range("W4")

'repertoire
If Len(Reference) > 6 Then
  NbCarrep = 2
  NbCarsousrep = 5
Else
  NbCarrep = 1
  NbCarsousrep = 4
End If
rep = "Z:\Diffusion_Plans\PDF\FPI\" & Left(Reference, NbCarrep) & "\"
'sous-repertoire
Sous_rep = Left(Reference, NbCarsousrep) & "00-" & Left(Reference, NbCarsousrep) & "99" & "\"

Nom_Fichier = Nom_Fichier_PDF & ".PDF"
strCheminComplet = rep & Sous_rep & Sous_Sous_rep & Nom_Fichier

'sauvegarde en PDF
Worksheets("FPI - Fiche").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strCheminComplet _
        , Quality:=xlQualityStandard, includeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

David512 · Answer

çà fonctionne parfaitement mais il doit manquer un sous répertoire car le pdf s'enregistre juste avant le dernier dossier:

ex: Cellule W2 à Z2 = EB13191
      Cellule W4 à Z4 = 7558

Z:\Diffusion_Plans\PDF\FPI\EB\EB13100-EB13199\7558.pdf

et je voudrai

Z:\Diffusion_Plans\PDF\FPI\EB\EB13100-EB13199\EB13191\7558.pdf

f894009 · Answer

Re, 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
Reference = Worksheets("FPI - Fiche").Range("W2") 
Nom_Fichier_PDF = Worksheets("FPI - Fiche").Range("W4") 

'repertoire 
If Len(Reference) > 6 Then 
  NbCarrep = 2 
  NbCarsousrep = 5 
Else 
  NbCarrep = 1 
  NbCarsousrep = 4 
End If 
rep = "Z:\Diffusion_Plans\PDF\FPI\" & Left(Reference, NbCarrep) & "\" 
'sous-repertoire 
Sous_rep = Left(Reference, NbCarsousrep) & "00-" & Left(Reference, NbCarsousrep) & "99" & "\" 
'sous-sous-repertoire 
Sous_Sous_rep = Reference & "\" 

Nom_Fichier = Nom_Fichier_PDF & ".PDF" 
strCheminComplet = rep & Sous_rep & Sous_Sous_rep & Nom_Fichier 

'sauvegarde en PDF 
Worksheets("FPI - Fiche").Activate 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strCheminComplet _ 
        , Quality:=xlQualityStandard, includeDocProperties:=True, _ 
        IgnorePrintAreas:=False, OpenAfterPublish:=True 
End Sub 

Je travaille avec un programme de test, donc erreur copier/coller

David512 · Answer

Je n'ai plus de PDF qui se génére avec ce nouveau code !!!

f894009 · Answer

Re,

prendre version de 15:19
dans la precedente il y a un x en trop devant Workbook_BeforeSave....

David512 · Answer

çà fonctionne parfaitement !!!
Un grand merci...

David512 · Answer

J'ai un autre fichier excel ou je voudrai générer également un PDF.
Ce fichier a des cellule lier au 1er (01 - FPI + Fiche de Contrôle.xls)

Données:

Ce fichier se nomme 02 - PPF.xls

Cellule fusionné AN2 à AV5 = N° Config => ex: 86258
Cellule fusionné AA6 à AK9 = N° Réf => ex: D28628
Cellule fusionné AP6 à AV9 = N° FPI => ex: 7558

Si une seule config':
1 fichier 86258.xls avec "feuil1" renommé en "86258" qui correspond au N° Config'

Si plusieurs config':
1 fichier 86258-01.xls avec "feuil1" renommé en "86258-01" et Cellule AN2 à AV5 = 86258-01
1 autre fichiers 86258-02.xls avec"feuil1" renommé en "86258-02 et Cellule AN2 à AV5 = 86258-02 
etc...

je voudrai qu'à l'enregistrement de mon ou mes fichier(s) excel, mon ou mes fichier(s) pdf prenne(ent) le nom du fichier excel associé et qu'il se range dans le dossier: Z:\Diffusion_Plans\PDF\FPI\D\D28600-D28699\D28628\86258.pdf ou (86258-01.pdf et 86258-02.pdf etc.)

J'espére que j'était assez clair !!!

David512 · Answer

Re,

Ya t'il un code qui peut réaliser ma demande ????

Merci,