XL 2016 Macro pour creer un bouton

Neileru4

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Bonsoir,

Voici le code :

VB:
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

XLDnaute Occasionnel
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
 

Discussions similaires

Réponses
4
Affichages
286
Réponses
6
Affichages
342

Statistiques des forums

Discussions
311 540
Messages
2 080 529
Membres
101 234
dernier inscrit
Layani89