bonjour
j'ai une macro qui fonctionner tres bien mais il a fallut ajouter document a imprimer
lubeck & norway
je n'arrive pas a modifier la macro pour que l'impression fonctionne
ormis ces 2 cases a cocher le reste fonctionne
voici la macro utilisé
Sub imprimeFeuille()
With Sheets("Menu impression")
For i = 1 To Application.CountA(.[Q1:Q17])
If .Range("Q" & i) = True Then Sheets(.Range("R" & i).Value).PrintOut 'PrintPreview
Next i
End With
If [q18] = "13" Then MsgBox "Vous n'avez pas selectionné de document a imprimer." + Chr$(13) + "Veuiller cocher les documents a imprimer"
End Sub
ou ets mon erreur
merci julie
ci joint un fichier
j'ai une macro qui fonctionner tres bien mais il a fallut ajouter document a imprimer
lubeck & norway
je n'arrive pas a modifier la macro pour que l'impression fonctionne
ormis ces 2 cases a cocher le reste fonctionne
voici la macro utilisé
Sub imprimeFeuille()
With Sheets("Menu impression")
For i = 1 To Application.CountA(.[Q1:Q17])
If .Range("Q" & i) = True Then Sheets(.Range("R" & i).Value).PrintOut 'PrintPreview
Next i
End With
If [q18] = "13" Then MsgBox "Vous n'avez pas selectionné de document a imprimer." + Chr$(13) + "Veuiller cocher les documents a imprimer"
End Sub
ou ets mon erreur
merci julie
ci joint un fichier