Run-time error "91": Object variable or with block variable not set
Bonjour,
J'essaie de coder un programme pour envoyer des mails rapidement. Mon objectif est d'ouvrir une liste déroulante (une listbox dans un userform) de noms avec un clique puis ouvrir un mail template dans outlook en sélectionnant un nom de cette liste. J'ai une fonction au sein du programme qui me fait buguer le reste du code.
Il s'agit de la ligne: If IsEmpty(Application.WorksheetFunction.VLookup(Name, Ws.Range("Source"), 12, 0)) = True Then... L'erreur affiché est : Run-time error "91": Object variable or with block variable not set et je ne comprends pas ce que je dois faire pour arranger le problème.
Private Sub ListBox1_Click()
Dim ListBox1 As Object
Dim LeMail As Object
Dim Name As String
Name = Me.ListBox1.Value
If IsEmpty(Application.WorksheetFunction.VLookup(Name, Ws.Range("Source"), 12, 0)) = True Then
MsgBox "No available email address for" & Name
Unload UserForm1
Else
Set Ws = Sheets("Projects")
Set Wt = Sheets("Mail")
Set LeMail = CreateObject("Outlook.Application")
With LeMail.CreateItem(olMailItem)
.Subject = Wt.Range("B3")
.SentOnBehalfOfName = Wt.Range("B1")
.To = Application.WorksheetFunction.VLookup(Name, Ws.Range("Source"), 12, 0)
.Body = Wt.Range("B7")
.Display
End With
Unload UserForm1
End If
End SubMerci beaucoup pour votre aide.
Cordialement
Touny
Bonsoir,
Et en remplaçant "IsEmpty", par "IsError"? (il faut aussi enlever "= True")
Peut-être?
PS, évite de nommer tes variables avec des fonctions ou instructions natives du VBA (Name, remplace par LeNom, par exemple)
Merci cousinhb29 pour votre réponse. J'ai essayé votre solution. Malheureusement, cela ne change rien...
Bon conseil, je vais faire attention aux noms de mes variables désormais.
Bonjour,
En plus de la recommandation énoncée précédemment(tu as aussi ListBox1 as object, qui ne sert à rien), il y a également Ws qui n'est pas (encore) défini (du moins dans le code posté).
Donc, comme évoqué, un fichier exemple pourrait aider à t'aider...
Bonne journée