Comment appliquer un bouton pour ouvrir un autre classeur dans Excel?
Dans une feuille de calcul, nous pouvons insérer un lien hypertexte pour lier un autre classeur, afin de pouvoir l'ouvrir rapidement et facilement. Mais avez-vous déjà essayé de créer un bouton pour ouvrir un autre classeur via un classeur actif?
Appliquer un bouton pour ouvrir un autre classeur avec le code VBA
Appliquer un bouton pour ouvrir un autre classeur avec le code VBA
Dans Excel, nous pouvons insérer un bouton de forme, puis y lier un code. Vous pouvez résoudre ce problème avec les étapes suivantes:
1Cliquez sur insérer > Formes > Rectangulaire, voir capture d'écran:
2. Ensuite, faites glisser la souris pour dessiner un bouton de forme et formatez-le selon vos besoins, voir capture d'écran:
3. Et puis maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
4Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.
Code VBA: ouvrez un classeur spécifique:
Sub Openworkbook_Click()
'Updateby Extendoffice
Dim xWb As Workbook
Dim wbName As String
On Error Resume Next
Set xWb = Workbooks.Open("C:\Users\DT168\Desktop\test\Book2.xlsx")
wbName = xWb.Name
If Err.Number <> 0 Then
MsgBox "This workbook does not exist!", vbInformation, "Kutools for Excel"
Err.Clear
Else
MsgBox "This workbook is opened!", vbInformation, "Kutools for Excel"
End If
End Sub
Notes: Dans le code ci-dessus, vous devez changer le chemin et le nom du fichier C: \ Users \ DT168 \ Desktop \ test \ Book2.xlsx au chemin réel du classeur vers lequel vous souhaitez établir un lien.
5. Puis enregistrez et fermez cette fenêtre de code, faites un clic droit sur le bouton de forme que vous avez créé, choisissez Attribuer une macro dans le menu contextuel, dans le popped out Attribuer une macro boîte de dialogue, cliquez sur le nom de la macro Ouvrir le classeur_Clic vous venez d'insérer et cliquez sur OK bouton, voir capture d'écran:
6. Maintenant, lorsque vous cliquez sur le bouton forme:
(1.) Si le classeur n'existe pas, vous obtiendrez la boîte d'invite suivante:
(2.) Si le classeur existe, il sera ouvert à la fois et une boîte de dialogue apparaîtra également pour vous rappeler:
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!