Créer un PDF à l'enregistrement excel (2)
David512
-
David512 -
David512 -
Bonjour,
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 !!!
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 !!!
A voir également:
- Créer un PDF à l'enregistrement excel (2)
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Comment créer un groupe whatsapp - Guide
- Créer un compte google - Guide
- Créer liste déroulante excel - Guide
- Créer un lien pour partager des photos - Guide
15 réponses
Re,
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Reference = ActiveSheet.Range("AA6")
Nom_Fichier_PDF = ActiveSheet.Range("AN2")
'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(ActiveSheet.Name).Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strCheminComplet _
, Quality:=xlQualityStandard, includeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Si vous avez plusieurs onglet, cela reste vrai
Juste avant de sauvegarder ou quitter pour sauvegarder, activez la feuille ou il y a les info de sauvegarde en cliquant sur la feuille.
A suivre
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Reference = ActiveSheet.Range("AA6")
Nom_Fichier_PDF = ActiveSheet.Range("AN2")
'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(ActiveSheet.Name).Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strCheminComplet _
, Quality:=xlQualityStandard, includeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Si vous avez plusieurs onglet, cela reste vrai
Juste avant de sauvegarder ou quitter pour sauvegarder, activez la feuille ou il y a les info de sauvegarde en cliquant sur la feuille.
A suivre
Bonjour,
C'est deja jeudi!!!
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Reference = Sheets(ActiveSheet.Name).Range("AE2")
Nom_Fichier_PDF = Reference & ".PDF"
'repertoire
If Len(Reference) > 3 Then
NbCarrep = 2
NbCarsousrep = 2
Else
NbCarrep = 1
NbCarsousrep = 1
End If
rep = "X:\Diffusion_Plans\PDF\FIC\" & Left(Reference, NbCarsousrep) & "00-" & Left(Reference, NbCarsousrep) & "99" & "\"
strCheminComplet = rep & Sous_rep & Nom_Fichier_PDF
'sauvegarde en PDF
Worksheets(ActiveSheet.Name).Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strCheminComplet _
, Quality:=xlQualityStandard, includeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Bonne suite
C'est deja jeudi!!!
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Reference = Sheets(ActiveSheet.Name).Range("AE2")
Nom_Fichier_PDF = Reference & ".PDF"
'repertoire
If Len(Reference) > 3 Then
NbCarrep = 2
NbCarsousrep = 2
Else
NbCarrep = 1
NbCarsousrep = 1
End If
rep = "X:\Diffusion_Plans\PDF\FIC\" & Left(Reference, NbCarsousrep) & "00-" & Left(Reference, NbCarsousrep) & "99" & "\"
strCheminComplet = rep & Sous_rep & Nom_Fichier_PDF
'sauvegarde en PDF
Worksheets(ActiveSheet.Name).Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strCheminComplet _
, Quality:=xlQualityStandard, includeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Bonne suite
Bonjour,
Cela fait suite a votre premiere demande. Pour ce deuxieme cas, il faudra que la feuille active soit toujours celle qui a le nom du classeur pour trouver les autres infos. Autrement il ne sera pas possible de trouver ces infos.
Cela fait suite a votre premiere demande. Pour ce deuxieme cas, il faudra que la feuille active soit toujours celle qui a le nom du classeur pour trouver les autres infos. Autrement il ne sera pas possible de trouver ces infos.
Bonjour,
Si j'ai bien compris mon fichier (vierge) qui se nomme 02 - PPF.xls
Comment un fichier vierge peut avoir deja un nom???????????????
il faudra que la feuille active soit toujours celle qui a le nom du classeur pour trouver les autres infos..
Pour recuperer les infos de sauvegarde, il faut que la feuille ou elles sont soit active avant de faire la sauvegarde, puisque le nom de cette feuille change d'un classeur a un autre
A+
Si j'ai bien compris mon fichier (vierge) qui se nomme 02 - PPF.xls
Comment un fichier vierge peut avoir deja un nom???????????????
il faudra que la feuille active soit toujours celle qui a le nom du classeur pour trouver les autres infos..
Pour recuperer les infos de sauvegarde, il faut que la feuille ou elles sont soit active avant de faire la sauvegarde, puisque le nom de cette feuille change d'un classeur a un autre
A+
Quand je parle de fichier vierge, c'est que mon fichier 02 - PPF.xls contient un tableau "vierge" qui se rempli automatiquement quand je rentre mes références dans mon fichiers 01 - FPI + Fiche de Contrôles (voir 1er cas).
Aujourd'hui j'ai un dossier "Fiches Technique" comprenant:
01 - FPI + Fiche de Contrôle.xls "avec tableau vierge"
02 - PPF.xls "avec tableau vierge"
03 - FIC.xls "avec tableau vierge"
04 - Fiche Navette.xls "avec tableau vierge"
pour le fichier 01 - FPI + Fiche de Contrôle.xls il s'agit de mon fichier principal càd que dés que je rentre mes données dans ce fichiers les autres fichiers: 02 ; 03 et 04 se remplissent automatiquement.
pour le fichier 01 - FPI + Fiche de Contrôle.xls vous avez déjà généré le pdf l'autre jour
aujourd'hui il je voudrai un code pour mon fichier 02 - PPF.xls
Aujourd'hui j'ai un dossier "Fiches Technique" comprenant:
01 - FPI + Fiche de Contrôle.xls "avec tableau vierge"
02 - PPF.xls "avec tableau vierge"
03 - FIC.xls "avec tableau vierge"
04 - Fiche Navette.xls "avec tableau vierge"
pour le fichier 01 - FPI + Fiche de Contrôle.xls il s'agit de mon fichier principal càd que dés que je rentre mes données dans ce fichiers les autres fichiers: 02 ; 03 et 04 se remplissent automatiquement.
pour le fichier 01 - FPI + Fiche de Contrôle.xls vous avez déjà généré le pdf l'autre jour
aujourd'hui il je voudrai un code pour mon fichier 02 - PPF.xls
Re,
Suite à votre message de 9h29, j'ai renommé mon fichier "02 - PPF.xls" en "02 - Configuration 00000-01.xls"
Données:
Mon fichier se nomme "02 - Configuration 00000-01.xls" avec tableau vierge
Cellule fusionné AN2 à AV5 = N° Config => ex: 86258-01
Cellule fusionné AA6 à AK9 = N° Réf => ex: D28628
Cellule fusionné AP6 à AV9 = N° FPI => ex: 7558
Si une seule config':
1 fichier "02 - Configuration 86258-01.xls" avec "feuil1" renommé en "Configuration 86258-01" qui correspond au N° Config'
Si plusieurs config':
1 fichier "02 - Configuration 86258-01.xls" avec "feuil1" renommé en "Configuration 86258-01" et Cellule AN2 à AV5 = 86258-01
1 autre fichier "02 - Configuration 86258-02.xls" avec "feuil1" renommé en "Configuration 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:
X:\Diffusion_Plans\PDF\FPI\D\D28600-D28699\D28628\86258-01.pdf ou (86258-01.pdf et 86258-02.pdf etc.)
Il faut garder aussi les meme conditions que le premier code !!!
J'espére que j'était assez clair !!!
Suite à votre message de 9h29, j'ai renommé mon fichier "02 - PPF.xls" en "02 - Configuration 00000-01.xls"
Données:
Mon fichier se nomme "02 - Configuration 00000-01.xls" avec tableau vierge
Cellule fusionné AN2 à AV5 = N° Config => ex: 86258-01
Cellule fusionné AA6 à AK9 = N° Réf => ex: D28628
Cellule fusionné AP6 à AV9 = N° FPI => ex: 7558
Si une seule config':
1 fichier "02 - Configuration 86258-01.xls" avec "feuil1" renommé en "Configuration 86258-01" qui correspond au N° Config'
Si plusieurs config':
1 fichier "02 - Configuration 86258-01.xls" avec "feuil1" renommé en "Configuration 86258-01" et Cellule AN2 à AV5 = 86258-01
1 autre fichier "02 - Configuration 86258-02.xls" avec "feuil1" renommé en "Configuration 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:
X:\Diffusion_Plans\PDF\FPI\D\D28600-D28699\D28628\86258-01.pdf ou (86258-01.pdf et 86258-02.pdf etc.)
Il faut garder aussi les meme conditions que le premier code !!!
J'espére que j'était assez clair !!!
Re,
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Reference = ActiveSheet.Range("AA6")
Nom_Fichier_PDF = ActiveSheet.Range("AN2")
'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(Nom_Fichier_PDF).Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strCheminComplet _
, Quality:=xlQualityStandard, includeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Cellule fusionné AP6 à AV9 = N° FPI => ex: 7558
A quoi sert cette info dans ce cas???
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Reference = ActiveSheet.Range("AA6")
Nom_Fichier_PDF = ActiveSheet.Range("AN2")
'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(Nom_Fichier_PDF).Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strCheminComplet _
, Quality:=xlQualityStandard, includeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Cellule fusionné AP6 à AV9 = N° FPI => ex: 7558
A quoi sert cette info dans ce cas???
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Re,
Bonjour,
Juste avant de sauvegarder ou quitter pour sauvegarder, activez la feuille ou il y a les info de sauvegarde en cliquant sur la feuille.
Ok !!! Je clique dans une cellule pour activer ma feuille...
Quel code doit-je mettre maintenant ??
Bonjour,
Juste avant de sauvegarder ou quitter pour sauvegarder, activez la feuille ou il y a les info de sauvegarde en cliquant sur la feuille.
Ok !!! Je clique dans une cellule pour activer ma feuille...
Quel code doit-je mettre maintenant ??
Mon message aurait du être envoyé le mercredi 11 avril mais probléme informatique jusque ce matin !!! C'est pour cela qu'il y a le "Re"
Bonjour,
Bonjour,
Juste avant de sauvegarder ou quitter pour sauvegarder, activez la feuille ou il y a les info de sauvegarde en cliquant sur la feuille.
Ok !!! Je clique dans une cellule pour activer ma feuille...
Quel code doit-je mettre maintenant ??
Bonjour,
Bonjour,
Juste avant de sauvegarder ou quitter pour sauvegarder, activez la feuille ou il y a les info de sauvegarde en cliquant sur la feuille.
Ok !!! Je clique dans une cellule pour activer ma feuille...
Quel code doit-je mettre maintenant ??
Re,
Je me suis permis de reposer la question parce que en activant ma feuille j'ai toujours le même message d'erreur : David512 - 10 avril 2012 à 16:01
Le sujet est toujours identique au : David512 - 10 avril 2012 à 14:29
@ suivre !!!
Je me suis permis de reposer la question parce que en activant ma feuille j'ai toujours le même message d'erreur : David512 - 10 avril 2012 à 16:01
Le sujet est toujours identique au : David512 - 10 avril 2012 à 14:29
@ suivre !!!
Re,
Pourriez vous mettre a dispo sur ci-joint.com votre fichier sans les infos confidentielles, juste les infos de sauvegarde.
Pourriez vous mettre a dispo sur ci-joint.com votre fichier sans les infos confidentielles, juste les infos de sauvegarde.
Bonjour,
Cela fonctionne parfaitement !!! je vous en remercie encore... ;)
Ma 3éme et derniere demande concernera mon 3éme fichier excel: 03 - FIC.xls "avec tableau vierge"
Voir message: David512 - 10 avril 2012 à 11:55
Données:
Aujourd'hui je rempli juste une cellule fusionnée de AE2 à AH5 avec un numéro à 3 chiffres ex: 875
Je voudrai qu'à l'enregistrement, le pdf se range dans : X:\Diffusion_Plans\PDF\FIC\800-899\875.pdf
Le jour ou j'arrive au N°999, je voudrai passer à un numéro à 4 chiffres donc prévoir également cette incrémentation...
ex: N°1001 => X:\Diffusion_Plans\PDF\FIC\1000-1099\1001.pdf
Merci d'avance,
Cela fonctionne parfaitement !!! je vous en remercie encore... ;)
Ma 3éme et derniere demande concernera mon 3éme fichier excel: 03 - FIC.xls "avec tableau vierge"
Voir message: David512 - 10 avril 2012 à 11:55
Données:
Aujourd'hui je rempli juste une cellule fusionnée de AE2 à AH5 avec un numéro à 3 chiffres ex: 875
Je voudrai qu'à l'enregistrement, le pdf se range dans : X:\Diffusion_Plans\PDF\FIC\800-899\875.pdf
Le jour ou j'arrive au N°999, je voudrai passer à un numéro à 4 chiffres donc prévoir également cette incrémentation...
ex: N°1001 => X:\Diffusion_Plans\PDF\FIC\1000-1099\1001.pdf
Merci d'avance,
