Microsoft 365 Utiliser Macro VBA en document Excell partagé

Azuveus

XLDnaute Nouveau
Bonjour,

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

mon morceau de code ci-dessous :
VB:
        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 :
1631818227856.png


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

Merci d'avance.

Azuveus.
 
Dernière édition:

Azuveus

XLDnaute Nouveau
Apres plus d'analyse, seul cette ligne pose problême.
VB:
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...
 
Dernière édition:

Statistiques des forums

Discussions
311 720
Messages
2 081 898
Membres
101 834
dernier inscrit
Jeremy06510