Question d'ouverture de fichier

[Julie-F]

Bonjour à tous

J'ai un petit souci sur l'un de mes fichiers.
Le fichier est composé d'un certain nombre d'onglets et je souhaiterai qu'à chaque ouverture de celui-ci la feuille "demo" s'affiche.

Je suppose que je dois mettre l'instruction dans "ThisWorkbook".

Quelqu'un pourrait -il me communiquer l'instruction correcte pour y parvenir ?

Merci d'avance

 

[roro69]

Re : Question d'ouverture de fichier

Bojour
Voici ;l'instruction à mettre dans le Workbook
Private Sub Workbook_Open()
Feuill("Démo").Activate
End Sub
A++

 

[Julie-F]

Re : Question d'ouverture de fichier

Bojour
Voici ;l'instruction à mettre dans le Workbook
Private Sub Workbook_Open()
Feuill("Démo").Activate
End Sub
A++

Bonjour Roro69

Merci pour ton aide mais es-tu certain de la phrase "Private Sub Workbook-open" ?

Je viens de tester et j'ai à nouveau un message d'erreur.

 

[roro69]

Re : Question d'ouverture de fichier

Bonsoir;
Oui ,c'est la bonne instruction;
Quand tu est dans l'editeur VBE,tu va dans this workbook;tu déroule général ;tu sélectionne workbook et tu as directement ton instruction.

 

[Julie-F]

Re : Question d'ouverture de fichier

Bonsoir;
Oui ,c'est la bonne instruction;
Quand tu est dans l'editeur VBE,tu va dans this workbook;tu déroule général ;tu sélectionne workbook et tu as directement ton instruction.

C'est ce que j'ai fait et pour être plus exact mais feuille démo correspond à la feuille 2.

J'ai donc saisi :
Private Sub Workbook_Open()
Feuil2("Démo").Activate
End Sub

Mais message d'erreur.😕

 

[roro69]

Re : Question d'ouverture de fichier

RE
Simplement changer:
Feuil2.Activate

 

[JCGL]

Re : Question d'ouverture de fichier

Bonjour à tous,
Salut Roro,

Enlève l'accent sur Démo dans le code ou rajoute le sur le nom de l'onglet

Option Explicit

Private Sub Workbook_Open()
Sheets("Démo").Activate
End Sub

A+

 

[Julie-F]

Re : Question d'ouverture de fichier

SUPER !!! Cà fonctionne.

Merci pour ton aide roro69.

A bientôt

 

[Julie-F]

Re : Question d'ouverture de fichier

Bonjour à tous,
Salut Roro,

Enlève l'accent sur Démo dans le code ou rajoute le sur le nom de l'onglet

A+

Bonjour JCGL

J'avais fait le test en enlevant l'accent au niveau du code et de l'onglet puis en le remettant mais toujours message d'erreur.
La bonne solution est le dernier post de Roro en enlevant tout simplement le nom de l'onglet. 😉

A +

 

[JCGL]

Re : Question d'ouverture de fichier

Bonjour à tous,

Peux-tu essayer d'ouvrir ce fichier en activant les macros

Au message d'erreur, clique sur débogage et rajoute un accent sur Demo.

Ferme et enregistre le fichier

Ouvre le fichier

A++

 

[Julie-F]

Re : Question d'ouverture de fichier

Bonjour à tous,

Peux-tu essayer d'ouvrir ce fichier en activant les macros

Au message d'erreur, clique sur débogage et rajoute un accent sur Demo.

Ferme et enregistre le fichier

Ouvre le fichier

A++

JCGL, ta démonstration est vraiment parlante. 😉

J'avais d'ailleurs un code similaire pour l'activation d'1 bouton :

Sub Bouton3_QuandClic()
Sheets("Instructions").Select
End Sub​

Il semble toutefois, au vu du test de vos deux formules, que lorsque l'on utilise Feuill("Démo").Activate
à la place de Sheets("démo").Select, le nom de l'onglet soit superflu.
Les deux fois où j'ai testé la formule avec Demo accentuée ou non - à la fois onglet et code -, c'était avec le code de Roro.

Encore merci beaucoup à tous les deux, vous êtes trop forts !!
Et un merci particulièrement appuyé à JCGL, grâce à qui j'apprends (même de façon indirecte étant une de ses lectrices assidues) chaque jour un peu plus.

A ++

 

[JCGL]

Re : Question d'ouverture de fichier

Bonjour à tous,

Merci de ton retour Julie 😉

Il semble toutefois, au vu du test de vos deux formules, que lorsque l'on utilise Feuill("Démo").Activate
à la place de Sheets("démo").Select, le nom de l'onglet soit superflu.
Les deux fois où j'ai testé la formule avec Demo accentuée ou non - à la fois onglet et code -, c'était avec le code de Roro.

Si tu utilises Feuill("Démo").Activate, cela ne marchera pas :

• Soit Sheets("NomdelaFeuille").Activate
• Soit Feuilx.Activate
• Soit Sheets(x).active

Où x est un nombre ou un chiffre

Va faire un tour dans l'Aide pour avoir la différence entre le Name et le CodeName

Extrait de l'Aide :

Cette propriété renvoie le nom de code de l'objet. Type de données String en lecture seule.

Remarque La valeur qui apparaît dans la cellule affichée à droite de (Nom) dans la fenêtre Propriétés correspond au nom de code de l'objet sélectionné. Au moment de la création, vous pouvez changer le nom de code d'un objet en modifiant cette valeur. Il est toutefois impossible de modifier cette propriété par programmation au moment de l'exécution.

Notes
Le nom de code d'un objet peut être utilisé à la place d'une expression qui renvoie l'objet. Par exemple, si le nom de code de la feuille de calcul 1 est « Sheet1 », les expressions suivantes sont identiques :

Worksheets(1).Range("a1")
Sheet1.Range("a1")


A+