[VB]Erreur d'execution 91

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VB]Erreur d'execution 91

matt276

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

Publicité

cvb

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...

mareek

Et de 3 \o/

netneo 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

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

drasche

mareek a écrit :

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)

Melkisedek

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

Melkisedek

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VB]Erreur d'execution 91

Sujets relatifs
Comment peut on retarder l'execution d'une fonction ?	Erreur lors de la compilation sous borland....
OLE message d'erreur	Remplacer un message d'erreur Access....
erreur thhp 500	besoin d'aide pour resolution d'erreur sous visual c++
[vbscript]- erreur dans la recherche de chaines de caractère	Problème à l'exécution sous VC++ [Résolu]
Erreur javascript	[JS] Erreur au premier chargement de la page
Plus de sujets relatifs à : [VB]Erreur d'execution 91

Page générée en 0.046 secondes