Bonjour à vous,
Je souhaiterai pouvoir intégrer l'impression avec "PDF creator" dans ce code :
Merci à vous pour votre aide, elle a jusqu'à présent, été d'une grande efficacité !
Je souhaiterai pouvoir intégrer l'impression avec "PDF creator" dans ce code :
VB:
Private Sub CommandButton4_Click()
Dim O As Worksheet
CarryOn = MsgBox("Voulez-vous imprimer un bulletin individuel ?", vbYesNo, "Kutools for Excel") 'Message pour confirmer l'impression en oui/non
Ctr = -1
If CarryOn = vbYes Then 'si oui alors ...imprimer!
For Each O In Worksheets
If Left(O.Name, 1) = "B" Then
Debug.Print O.Range("D7").Value, Worksheets("Impression").Range("D10").Value
If O.Range("D7").Value = Worksheets("Impression").Range("D10").Value Then O.PrintOut: Exit Sub
End If
Next O
End If
End Sub
Merci à vous pour votre aide, elle a jusqu'à présent, été d'une grande efficacité !