Blocage macro avec ActiveWorkbook.FollowHyperlink

Bonjour à tous,

J'ai un problème avec une macro que j'ai créé :

Private Sub SendMail()

Dim i As Integer
Dim Mway As String
Dim SRC As Workbook
Dim envoyerA As String
Dim envoyerCC As String
Dim URLto As String

Mway = Application.ActiveWorkbook.Path & "\MailingList.xlsx"

If IsWorkBookOpen(Mway) = True Then
Workbooks(Mway).Close savechanges:=False
End If

' On assigne l'obj SRC (source) de MailingList.xlsx

Set SRC = Workbooks.Open(Mway, , False)

With SRC.Worksheets("Maillist")

    For i = 1 To ListView1.ListItems.Count

      If ListView1.ListItems(i).Checked = True Then

        envoyerA = envoyerA & .Cells(i + 1, 2)

      End If

    Next

    For i = 1 To ListView2.ListItems.Count

      If ListView2.ListItems(i).Checked = True Then

        envoyerCC = envoyerCC & .Cells(i + 1, 2)

      End If

    Next

End With

SRC.Close savechanges:=False

URLto = "mailto:" & envoyerA & "?cc=" & envoyerCC & "&subject=" & tboObjet

ActiveWorkbook.FollowHyperlink Address:=URLto

End sub

Voici la photo :

En gros pour :

ActiveWorkbook.FollowHyperlink Address:=URLto

Le "ActiveWorkbook" est NULL.

Mais par moment la macro fonctionne, et je ne comprend pas d'où vient le problème. Comme si que je perdait le focus.

Si il y a moyen d'éviter d'utiliser l'activeworkbook alors que je travail dans l'usf d'où surement la perte de focus... :/

J'ai essayé avec un Workbook.Activate mais infructueux.

Si ça peut aider sans le fichier : le fichier où se situe la macro : FichierBase.xlsm, une feuille présente : "ACCUEIL"

Je peux joindre le fichier mais il faut que je l'anonymise avant.

Merci pour votre aide !

Bonjour,

Essayer

ThisWorkbook.FollowHyperlink Address:=URLto

ThisWorkbook est le classeur où s'exécute le code.

Bonjour,

Exactement le même message d'erreur.

Merci pour votre attention sur mon sujet :)

Je vous joins les fichier :)

A mettre dans le même dossier.

Bonjour !

Petit up de message je n'arrive pas à trouver de solution.

En fait le problème vient qu'il y a plus de 250 caractères alors si quelqu'un connait un code VBA en dehors de "outlook.application".

Merci pour l'aide apportée !