Bonsoir le forum,
Ayant reçu en message privé ce petit mail,
Stéfan, bonjour,
Je lisais (pour l'appliquer) ton post de début 2012 concernant ce sujet (l'objectif est de pouvoir activer les tirettes de grouper/dissocier quand la feuille est protégée afin d'en faciliter la lecture. Je suis vraiment débutant en VBA et j'ai donc essayé de suivre tes instructions à la lettre. J'ai un fichier avec trois feuilles (ou onglets) rebaptisés. Les trois feuilles ont des formules de renvoi (je suppose que c'est comme cela qu'on les nomme). J'ai mis un texte dans le code du ThisWorkbook comme suit :
il me met une erreur code 9 et ne semble pas reconnaitre le nom de la feuille. J'ai essayé avec Feuil2 ... puis Feuil2(non).
Peux tu me dire ce qui cloche.
En te remerciant par avance ... je suis vraiment amateur en VBA ...
Bien amicalement.
Et sa signature évidement.
ne sachant pas précisément comment procéder pour traiter cette demande par mail, je me permet de la joindre dans un nouveau fil et ainsi en faire bénéficier le forum. ( Sans prétention de ma part , vu mes connaissances en VBA)
J'estime que les messages privés dans cette circonstance ne servent pas la communauté.
A + Stéfan
Ayant reçu en message privé ce petit mail,
Stéfan, bonjour,
Je lisais (pour l'appliquer) ton post de début 2012 concernant ce sujet (l'objectif est de pouvoir activer les tirettes de grouper/dissocier quand la feuille est protégée afin d'en faciliter la lecture. Je suis vraiment débutant en VBA et j'ai donc essayé de suivre tes instructions à la lettre. J'ai un fichier avec trois feuilles (ou onglets) rebaptisés. Les trois feuilles ont des formules de renvoi (je suppose que c'est comme cela qu'on les nomme). J'ai mis un texte dans le code du ThisWorkbook comme suit :
Code:
Private Sub Workbook_Open()
'With Worksheets("Feuil3(Prestations)") 'ERREUR
With Sheets("Prestations") 'CORRECTE
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="6002", UserInterfaceOnly:=True
End With
'With Worksheets("Feuil2(Offre-facturation)")
With Sheets("Offre-facturation")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="6002", UserInterfaceOnly:=True
End With
'With Worksheets("Feuil1(Doss_liste)")
With sheets("Doss_liste")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="6002", UserInterfaceOnly:=True
End With
End Sub
il me met une erreur code 9 et ne semble pas reconnaitre le nom de la feuille. J'ai essayé avec Feuil2 ... puis Feuil2(non).
Peux tu me dire ce qui cloche.
En te remerciant par avance ... je suis vraiment amateur en VBA ...
Bien amicalement.
Et sa signature évidement.
ne sachant pas précisément comment procéder pour traiter cette demande par mail, je me permet de la joindre dans un nouveau fil et ainsi en faire bénéficier le forum. ( Sans prétention de ma part , vu mes connaissances en VBA)
J'estime que les messages privés dans cette circonstance ne servent pas la communauté.
A + Stéfan