[VB]Erreur d'execution 91

Marsh Posté le 30-04-2003 à 12:00:57

Je connais pas grand chose en VB mais il faut que j'arrive à réaliser un petit soft qui pilote un activeX Codesoft (impression CodeBarre)

Code :

Private Sub Form_Load()
Dim LastErr&
On Error Resume Next ' catch errors
Set OLE_Server = New LabelManager2.Application 'implements object
Set OLE_DOC = OLE_Server.Documents.Open("d:\document1.lab" )
LastErr = Err ' store resulting error code
On Error GoTo 0 ' returns to normal error trapping
Select Case LastErr ' depending on error code...
Case 0 ' no error, return true
ServerStart = True
Case 429 ' OLE common error, display special message
MsgBox "Cannot find or start OLE server, please check its registration.", vbCritical
Case Else ' for other errors, use VB error processing
Err.Raise LastErr
End Select
OLE_DOC.Variables.FreeVariables.Item(Var0).Value = "1231321"
OLE_DOC.PrintDocument (1)
End Sub

Quand je tente d'executer ce prog, il s'arrête à la ligne
OLE_DOC.Variables.FreeVariables.Item(Var0).Value = "1231321"

et me dit : Erreur d'execution 91
Variable Objet ou Variable bloc With non définie

Reply

Marsh Posté le 30-04-2003 à 12:00:57

Reply

Marsh Posté le 30-04-2003 à 13:12:27

Variable bloc With non définie : sa veut dire que n'as pas mis "end with". Mais l'erreur ne vient pas de là, puisque tu n'as pas mis de with

Code :

with list1
.additem "L'erreur"
.additem "ne vient"
.additem "pas de là"
end with

C'est simplement un exemple. Concernant ton erreur, il serait bien de définir le type de variable, de "LastErr", c'est quoi une chaine caractère, entier,ect...

Code :

dim LastErr as string ?
dim LastErr as integer ?
dim LastErr as long ?

C'est quoi comme type ? Tu affectes à cette variable une valeur "Err". C'est quoi comme variable ? Si c'est une variable, change là de nom et déclare là et donne lui une valeur ( elle n'est pas affecté ! ). Ce mots "Err" est réservé dans VB, comme pour donner les descriptions d'erreur.

Code :

msgbox(err.description)

Sinon je ne vois rien d'autre qui puisse provoquer ce message d'erreur, commmence par arranger ses deux choses là et tient nous au courant. Sinon tu as le site assez bien foutu : www.vbfrance.com...

Reply

Marsh Posté le 30-04-2003 à 19:10:51

netneo a écrit :

Quand je tente d'executer ce prog, il s'arrête à la ligne
OLE_DOC.Variables.FreeVariables.Item(Var0).Value = "1231321"

et me dit : Erreur d'execution 91
Variable Objet ou Variable bloc With non définie

ton erreur vient du fait que:
-OLE_DOC est égal à nothing
OU
-OLE_DOC.Variables est égal à nothing
OU
-OLE_DOC.Variables.FreeVariables est égal à nothing
OU
-OLE_DOC.Variables.FreeVariables.Item(Var0) est égal à nothing

---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack

Reply

Marsh Posté le 30-04-2003 à 19:15:39

mareek a écrit :

ton erreur vient du fait que:
-OLE_DOC est égal à nothing
OU
-OLE_DOC.Variables est égal à nothing
OU
-OLE_DOC.Variables.FreeVariables est égal à nothing
OU
-OLE_DOC.Variables.FreeVariables.Item(Var0) est égal à nothing

un grand classique que cette variable objet non définie :jap:

---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)

Reply

Marsh Posté le 17-12-2009 à 11:28:55

Bonjour à tous,

Pour ma part, il s'agit aussi d'une erreur execution 91, mais pour une petite macro VBA (Excel).
Mon objectif est de faire une recherche, via cells.find.
La Macro ci-dessous fonctionne très bien... jusqu'à ce qu'elle ne trouve pas de résultat...
En d'autres termes, j'aimerais que la macro s'arrête simplement (au lieu de planter) lorsque la valeur recherchée n'existe pas.
Merci pour vos réponses

Sub Affectation_des_Dus(NC, D)
'
' Affectation_des_Dus Macro
'
Sheets("Coordonnées" ).Select

Cells.Find(What:=NC, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Select

Selection.Offset(0, 11).Value = D

'
End Sub

Reply

Marsh Posté le 17-12-2009 à 14:38:09

PROBLEME RESOLU !
Si ça peut aider quelqu'un, je mets la solution que j'ai trouvée et qui fonctionne :sol:

Dim Recherche As Range

Set Recherche = ActiveSheet.Columns(1).Cells.Find(what:=NC)

If Recherche Is Nothing Then
Else: Recherche.Select

End If

Reply

[VB]Erreur d'execution 91

Sujets relatifs:

Leave a Replay