Excel 2016 : Numéro FD à incrémenter

kdet

XLDnaute Occasionnel
Bonjour le Forum, à tous et à toutes,

De retour parmi vous pour trouver de l'aide.
 

job75

XLDnaute Barbatruc
Désolé de te déranger Job75 mais rien ne se passe.
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 ?
 

job75

XLDnaute Barbatruc
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
 

kdet

XLDnaute Occasionnel
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
 

kdet

XLDnaute Occasionnel
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

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 909
Membres
101 836
dernier inscrit
karmon