A voir également:
- Créer un PDF à l'enregistrement excel (2)
- Créer un compte gmail - Guide
- Comment creer un pdf - Guide
- Créer un compte google - Guide
- Créer liste déroulante excel - Guide
- Créer un groupe whatsapp - Guide
15 réponses
f894009
Messages postés
17189
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
6 mai 2024
1 705
16 avril 2012 à 12:31
16 avril 2012 à 12:31
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
f894009
Messages postés
17189
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
6 mai 2024
1 705
18 avril 2012 à 08:20
18 avril 2012 à 08:20
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
f894009
Messages postés
17189
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
6 mai 2024
1 705
5 avril 2012 à 09:29
5 avril 2012 à 09:29
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.
f894009
Messages postés
17189
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
6 mai 2024
1 705
10 avril 2012 à 11:27
10 avril 2012 à 11:27
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
f894009
Messages postés
17189
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
6 mai 2024
1 705
10 avril 2012 à 13:42
10 avril 2012 à 13:42
Re,
D'accord, mais il faut me redonner les details pour recuperer les infos, parce que vous savez ce que vous voulez mais vous ne dites pas, de suite, que vous avez changer de sujet.
A+
D'accord, mais il faut me redonner les details pour recuperer les infos, parce que vous savez ce que vous voulez mais vous ne dites pas, de suite, que vous avez changer de sujet.
A+
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 !!!
f894009
Messages postés
17189
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
6 mai 2024
1 705
5 avril 2012 à 11:27
5 avril 2012 à 11:27
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 ??
f894009
Messages postés
17189
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
6 mai 2024
1 705
16 avril 2012 à 10:01
16 avril 2012 à 10:01
Bonjour,
Plait-il?
Plait-il?
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 ??
f894009
Messages postés
17189
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
6 mai 2024
1 705
16 avril 2012 à 10:31
16 avril 2012 à 10:31
Re,
f894009 5 avril 2012 à 11:27
Si le sujet n'a pas change entre temps.
f894009 5 avril 2012 à 11:27
Si le sujet n'a pas change entre temps.
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 !!!
f894009
Messages postés
17189
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
6 mai 2024
1 705
16 avril 2012 à 11:49
16 avril 2012 à 11:49
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.
f894009
Messages postés
17189
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
6 mai 2024
1 705
16 avril 2012 à 12:13
16 avril 2012 à 12:13
Re,
Je recupere et je vous tiens au courant.
Je recupere et je vous tiens au courant.
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,
f894009
Messages postés
17189
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
6 mai 2024
1 705
17 avril 2012 à 20:53
17 avril 2012 à 20:53
Bonjour,
Jeudi fin matinee, je ne pourrai pas avant.
A+
Jeudi fin matinee, je ne pourrai pas avant.
A+
