Créer un PDF à l'enregistrement du Exel
Résolu/Fermé
A voir également:
- Exportasfixedformat type:=xltypepdf
- Créer un compte gmail - Guide
- Créer un compte google - Guide
- Comment creer un pdf - Guide
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Créer un groupe whatsapp - Guide
50 réponses
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
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
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
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
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
Modifié par f894009 le 3/04/2012 à 14:02
Modifié par f894009 le 3/04/2012 à 14:02
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?
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?
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
çà 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
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
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
Modifié par f894009 le 3/04/2012 à 15:22
Modifié par f894009 le 3/04/2012 à 15:22
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
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
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 !!!
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 !!!