XL 2016 Macro pour creer un bouton

[Neileru4]

Bonjour a tous
je cherche sur le forum sans succès a ma question
Comment créer une macro avec un bouton pour ouvrir un onglet masquer
sachant que je sais creer mon bouton mais je n'arrive pas a creer la macro qui va ouvrir mon onglet

 

[Calvus]

Bonjour Neilru4, le forum,

Sheets("Machin").Visible = False' pour masquer
Sheets("Machin").Visible = True 'pour afficher'

A+

 

[Neileru4]

Bonjour calvus quand tu mets machin c'est le nom de mon onglet?

mais est il possible que quand je clique sur mon bouton que sa ouvre mon onglet?

 

[Calvus]

Re,

Tu parles bien d'un onglet masqué non ?
Alors oui, il faut mettre le nom de l'onglet et le code dans le module qui gère le bouton.

A+

 

[Neileru4]

oui je parle bien d'un onglet masquer mais cela ne fait que l'afficher
le bouton me l'ouvre mais ne me renvoie pas vers l'onglet
est ce possible?

 

[Calvus]

Re,

Sheets("machin").Activate

A+

 

[Neileru4]

Re
Merci pour ces fonctions
mais tu va dire que je suis embêtant activate fonctionne si l'onglet et afficher
s'il est masquer comment faire?

 

[Neileru4]

RE faut il fusionner les deux commandes?

 

[Calvus]

Re,

.......
Sub Afficher
Sheets("Machin").Visible = True
Sheets("machin").Activate
End sub

 

[Neileru4]

Calvus
un grand merci a toi
je viens de tester cela fonctionne comme je le voulais

 

[Neileru4]

Bonjour
Suite a ma demande d'hier j'aurais voulu via la macro ouvrir un onglet excel mais d'un autre classeur
Est ce possible?

 

[Calvus]

Bonsoir,

Voici le code :

Sub Ouvrir()
Dim fichier As String, nom As String
fichier = Feuil12.Range("A1")
nom = Feuil12.Range("A2")
On Error Resume Next
    Workbooks(nom).Activate
    If Err.Number <> 0 Then
        Workbooks.Open fichier
    End If
Sheets("Machin").Activate
End Sub

A+

 

[Neileru4]

Bonjour mon classeur s'appel Données
mon onglet Part1
donc le code devrait être:

Sub Ouvrir()
Dim fichier As String, nom As String
Données = Part1.Range("A1")
Données = Part1Range("A2")
On Error Resume Next
Workbooks(Données).Activate
If Err.Number <> 0 Then
Workbooks.Open fichier
End If
Sheets("Part1").Activate
End Sub

est ce bien ca car cela ne fonctionne pas