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 : Sélectionner tout - Visualiser dans une fenêtre à part
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