Erreur d'exécution 91

mutzik

XLDnaute Barbatruc

• 27 Août 2015

• #2

Re : Erreur d'exécution 91

bonjour,

aucune macro dans ton fichier, à part celle écrit en texte

dis nous au moins dans laquelle tu as l'erreur !

 

Vote positif 0 Vote négatif

A

a26

XLDnaute Occasionnel

• 27 Août 2015

• #3

Re : Erreur d'exécution 91

L'erreur est dans la macro zone d'impression de laurent longre 2e ligne.
Je n'ai pas joint mon fichier car trop lourd et peu facile à anonymiser.
En attendant, j'ai trouvé une solution pour supprimer le message d'erreur : en ajoutant à la macro On Error Resume Next
et la macro s'exécute sans problème.
Merci pour ta contribution.
Cordialement,
a26

 

Vote positif 0 Vote négatif

P

PMO2

XLDnaute Accro

• 28 Août 2015

• #4

Re : Erreur d'exécution 91

Bonjour,

Voilà l'explication (voir les ###)

Code:

Sub zoneimpression(S As Worksheet) 'determiner la zone par laurent longre

'### Si la feuille est vierge et ne comporte aucune
'### donnée, l'erreur 91 est renvoyée.

Set Vcell = S.Cells.Find("*", , , , xlByRows, xlPrevious)(2)
Set HCell = S.Cells.Find("*", , , , xlByColumns, xlPrevious)(, 2)
S.PageSetup.PrintArea = S.Range("A1", S.Cells(Vcell.Row - 1, HCell.Column - 1)).Address
End Sub

L'emploi de On Error Resume Next s'impose donc (mais la feuille ne sera pas traitée).

 

Vote positif 0 Vote négatif

A

a26

XLDnaute Occasionnel

• 30 Août 2015

• #5

Re : Erreur d'exécution 91

Bonjour,
Merci pour ta réponse, je comprends mieux maintenant l'affichage de l'erreur.
Bonne fin de journée.
a26

 

Vote positif 0 Vote négatif