macro ouverture de fichier excel
Bonjour à tous,
J'ai tenté de réaliser une macro me permettant deux choses, via un bouton :
+ d'ouvrir un fichier excel situé à une adresse spécifique.
+ si le fichier est déjà ouvert, de me l'afficher à l'écran (via une boucle si avec laquelle on demande à Excel de vérifier dans la liste des fichiers ouverts, s'il existe un fichier dénommé machin.xlsx)
J'ai un problème sur le deuxième point : quand je clique sur mon bouton, rien ne se passe.
Merci d'avance pour votre aide.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Sub Bouton6_Cliquer()
Dim Dossier As String, Fichier As String, Chemin As String
Dossier = "Z:\machin\"
Fichier = "machin.xlsx"
Chemin = Dossier & Fichier
Dim Presence As Boolean
Presence = False
For Each w In Workbooks
If w.Name = Fichier Then Presence = True
Next w
If Presence = True Then
Workbooks(Fichier).Activate
Else
Workbooks.Open Filename:=Chemin
ActiveWorkbook.Worksheets("Suivi Qualité").Activate
End If
End Sub |
