Bonjour,

j'ai lancé plusieurs fil de discussions car j'ai plusieurs problèmes..

Je souhaite que lors de ma première utilisation quand j'ouvre le classeur il me mette la bonne valeur au lieu de 0 pages.

Or Ce code me dit que j'ai 0 pages a imprimer, je suis obliger de lancer la macro 2 fois pour que çà marche

Code : Sélectionner tout - Visualiser dans une fenêtre à part
MsgBox ExecuteExcel4Macro("Get.Document(50)") & " Pages seront imprimées "

Voilà une autre partie de mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Coller_Texte_Suivant_Nbre_Pages_sur_feuille
 
MsgBox ExecuteExcel4Macro("Get.Document(50)") & " Pages seront imprimées "
 
Nb_Pages = ExecuteExcel4Macro("Get.Document(50)")
MsgBox "Total de pages : " & Nb_Pages
 
Dim Incrementation_NbPage As Integer
 
Incrementation_NbPages = 0
 
Do While Incrementation_NbPages < Nb_Pages
 
ThisWorkbook.Sheets("Feuil1").Cells(38 + Incrementation_NbPages * (50), 6).Value = "Date de Livraison : " & Date_Livraison
ThisWorkbook.Sheets("Feuil1").Cells(46 + Incrementation_NbPages * (50), 7).Value = "données" 
Incrementation_NbPages = Incrementation_NbPages + 1
 
MsgBox "Incrementation_NbPages : " & Incrementation_NbPages
 
Loop
 
Range("A1").Select
 
End Sub
Merci pour votre aide