Microsoft 365 Utiliser Macro VBA en document Excell partagé

[Azuveus]

Bonjour,

Je viens a vous ce soir car je me retrouve face a une impasse....

mon morceau de code ci-dessous :

        ThisWorkbook.Sheets(LastSheets).Activate
        ThisWorkbook.Sheets(LastSheets).Range("S" & W).Value = Nom_Onglet
        ActiveSheet.Hyperlinks.Add Range("S" & W), Address:="", SubAddress:="'" & Nom_Onglet & "'!B2", TextToDisplay:=Nom_Onglet, ScreenTip:="Accéder au planning de la " & Nom_Onglet
        ThisWorkbook.Sheets(LastSheets).Range("S" & W).Font.Bold = True
         Unload Planning

Ne s'exécute pas si mon fichier est partagé...
Il marche très bien le cas contraire..

L'erreur que j'ai est :

Auriez vous une solution pour contourner le problème, sachant que le fichier doit impérativement etre partager...

Merci d'avance.

Azuveus.

 

[Azuveus]

Apres plus d'analyse, seul cette ligne pose problême.

ActiveSheet.Hyperlinks.Add Range("S" & W), Address:="", SubAddress:="'" & Nom_Onglet & "'!B2", TextToDisplay:=Nom_Onglet, ScreenTip:="Accéder au planning de la " & Nom_Onglet

Et visiblement aprés 2h de recherche, le fait de partager un fichier excel desactive l'ajout des liens Hyperlink...

Il y aurait-il donc un moyen de contourner cela ? (PS : J'ai déjà tenté un Unshare + Ajout Lien + ReShare) bien que cela fonctionne, c'est vraiment beaucoup trop long...