Azuveus
XLDnaute Nouveau
Bonjour,
Je viens a vous ce soir car je me retrouve face a une impasse....
mon morceau de code ci-dessous :
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.
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 PlanningIl 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.
Dernière édition: