Bonjour,
Débutant en VBA, j'essaie de lancer depuis un bouton un message
OUTLOOK, les adresses étant récupérees d'une plage
d'un tableau excel.
Mon code fonctionne jusqu'a 20 adresses, au dela il plante. Pouvez vous
m'aidez a comprendre pourquoi, et y a t-il une autre solution
Merci d'avance
Guy CHAUDEAU
Voici mon code
Public Sub VersMail()
link = "mailto:"
For i = 11 To 40
If Range("F" & i) <> "" Then
link = link & Range("F" & i).Value
If Range("F" & i + 1) <> "" Then
link = link & ";"
End If
Next
On Error GoTo NoCanDo
ActiveWorkbook.FollowHyperlink Address:=link, NewWindow:=True
Unload Me
Exit Sub
NoCanDo:
MsgBox "Impossible d'ouvrir " & link
End Sub