Bonjour,

Message d'erreur :
"La méthode Range de l'objet _worksheet a échoué"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
' Dans déclarations
Dim vBlanc1 As Range
' Dans procédure MiseEnPage
Set vBlanc1 = vWstImpression.Range("E23" & ":H" & vSautPage)
'Dans procédure Print color, ligne qui provoque l'erreur, ("Vblanc1" génère la même erreur)
vWstImpression.Range(vBlanc1).Font.ColorIndex = coul1
Si quelqu'un peut mettre le doigt sur mon erreur : merci d'avance.
Cordialement
Daniel