Discussion :

[patmicro]

Bonsoir à tous: Dans une feulle Excel nommée devis J'ai une 1ere partie déstinée à la création du devis pour mes collèges de travail
Puis sur la page 2 de cette même feuille la partie destinée au client qui prend l'apparence d'un devis réglementaire.
J'ai créé une macro qui permet de masquer la page 2 dont voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
1.  Private Sub Workbook_Open()
2.  Sheets("Devis Base").ScrollArea = "A1:G53"
3.  End Sub

Le souci lors de l'enregistrement du fichier le nom de la feuille nomé "Devis" est remplacé par le nom du client
Exemple "Dupond jean 1033505" donc variable.
Lors de l'ouverture Du Devis devenu "Dupond jean 1033505" comment faire pour que la macro puisse continuer à s'éxécuter afin de continuer de masquer la feuille ?
Cette macro est placée dans ThisWorkbook.
De même la macro pour débloquer est placée dans un module :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
1.  Private Sub Débloquer_feuille_client()
2.  Sheets("Devis Base").ScrollArea = ""
3.  End Sub

Par avance merci pour votre aide
Meilleurs vœux à tous les lecteurs.

[anasecu]

Bonsoir,

Dans l'éditeur VBA tu nommes ta feuille "Devis"
et tes macros deviennent

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_Open()
Devis.ScrollArea = "A1:G53"
End Sub
et
Private Sub Débloquer_feuille_client()
Devis.ScrollArea = ""
End Sub

et elles continuent de fonctionner même avec le changement de nom.

[patmicro]

Bonjour : Merci pour ta réponse rapide . cela fonctionne à merveille,c'est exactement ce que je voulais.
@+