Excel 2016 : Numéro FD à incrémenter

job75

XLDnaute Barbatruc

• 26 Mars 2019

• #16

VB:

chemin = "I:\Google Drive\KANDRA\2019\FD PDF\" 'à adapter

 

Vote positif 0 Vote négatif

kdet

XLDnaute Occasionnel

• 26 Mars 2019

• #17

Désolé de te déranger Job75 mais rien ne se passe. je vérifie le dossier FD PDF après impression mais le dossier est toujours vide. je ne sais pas où est le problème.

kdet

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Mars 2019

• #18

kdet à dit:

Désolé de te déranger Job75 mais rien ne se passe.

Cliquez pour agrandir...

Normalement si l'enregistrement au format PDF échoue il doit y avoir un message d'erreur.

Pour vérifier que le chemin d'accès existe ajoutez une MsgBox :

VB:

chemin = "I:\Google Drive\KANDRA\2019\FD PDF\" 'à adapter
MsgBox "Le chemin indiqué " & IIf(Dir(chemin, vbDirectory) = "", "n'existe pas", "existe")

Quel message s'affiche ?

 

Vote positif 0 Vote négatif

kdet

XLDnaute Occasionnel

• 26 Mars 2019

• #19

Re,

Aucun message n'apparaît. Est-ce ma version d'excel 2016 qui pose problème ? je joint mon fichier.

kdet

 

Pièces jointes

• Numéro FD à incrémenter kdet.xlsm

  18 KB · Affichages: 4

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Mars 2019

• #20

kdet à dit:

Aucun message n'apparaît. Est-ce ma version d'excel 2016 qui pose problème ?

Cliquez pour agrandir...

Je ne sais pas car chez moi (Excel 2013) le message s'affiche.

S'il ne s'affiche pas c'est que la macro ne s'exécute pas, alors il ne devrait pas y avoir d'incrémentation en D2, est-ce le cas ?

 

Vote positif 0 Vote négatif

kdet

XLDnaute Occasionnel

• 26 Mars 2019

• #21

oui c'est bien cela. je viens de le vérifier après impression.

kdet

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Mars 2019

• #22

Ce qui a dû se passer chez vous c'est que les évènements ont été désactivés et donc la macro Workbook_BeforePrint ne s'exécute pas.

Exécutez cette macro pour réactiver les évènements :

VB:

Sub ActiveEvenements()
Application.EnableEvents = True 'réactive les évènements
End Sub

 

Vote positif 0 Vote négatif

kdet

XLDnaute Occasionnel

• 26 Mars 2019

• #23

Job75, j'ai trouvé où était le problème. j'ai replacé le code :
"Cancel = True 'pour tester sans imprimer, à supprimer pour imprimer"
je l'ai supprimé pour pouvoir imprimé. et si je laisse ce code là donc je ne peux pas imprimer sauf l'enregistré sous .pdf. comment avoir l'impression et le pdf en même temps.

cordialement,

kdet

 

Vote positif 0 Vote négatif

kdet

XLDnaute Occasionnel

• 26 Mars 2019

• #24

J'ai trouvé Job75. "Cancel = False"

j'apprends petit à petit grâce à vous.

Merci le forum, Job75

kdet

 

Vote positif 0 Vote négatif

kdet

XLDnaute Occasionnel

• 26 Mars 2019

• #25

Re bonjour le forum, Job75,

Je reviens vers vous car il y a un petit soucis. en D2 le numero FD est : 201903/FNR145. Lors de l'impression et de l'archivage, le numéro doit toujours être le même. or là ce n'est pas le cas car le numéro dans l'impression et de l'archivage en pdf est : 201903/FNR146 alors que ça devrait être 201903/FNR145 d'abord et une fois archiver en pdf le numéro change en 201903/FNR146.

est-vous pouvez m'aider?

Merci

kdet

 

Pièces jointes

• Numéro FD à incrémenter Job75.xlsm

  22.4 KB · Affichages: 2

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Mars 2019

• #26

Pour l'impression et l'archivage le numéro utilisé est le numéro après incrémentation, un point c'est tout.

 

Vote positif 0 Vote négatif

kdet

XLDnaute Occasionnel

• 26 Mars 2019

• #27

Merci job75,

kdet

 

Vote positif 0 Vote négatif