Sub Suite()
Dim Mois
Dim fichierOUVERT As String, Le_Nom_Fichier As String
Dim Le_FichierOUVERT, Valeur
Application.ScreenUpdating = False
Application.ShowWindowsInTaskbar = False
'1re étape : On va s'assurer de travailler sur le bon classeur
Mon_Fichier = ThisWorkbook.Name
Windows(Mon_Fichier).Activate
Sheets(Mois).Select
'On va prendre dans une variable la valeur que tu désires chercher dans ton 2e classeur
Valeur = Cells(8, 2).Value
Mois = Cells(1, 1).Value
'Ton chemin
CHEMIN = "X:\répertoire\"
'Ton fichier à ouvrir
Le_Nom_Fichier = "Classeur2.xls"
'On va faire une petite recherche parmi les fichiers déjà ouvert pour pas l'ouvrir de nouveau s'il
'est déjà ouvert
fichierOUVERT = "non"
For Each Le_FichierOUVERT In Application.Workbooks 'On parcours chacun des classeurs Excel ouverts.
If Le_FichierOUVERT.Name = Le_Nom_Fichier Then 'Vérifie s'il n'est pas déjà ouvert.
fichierOUVERT = "oui" 'Switch
Exit For 'Sort de la boucle
End If
Next Le_FichierOUVERT 'Passe au prochain fichier
If fichierOUVERT <> "oui" Then 'Une fois la boucle complétée, si la Switch n'a pas été tournée à oui, alors ouvre le fichier
Set Le_FICHIER = Workbooks.Open(Filename:=CHEMIN & Le_Nom_Fichier, UpdateLinks:=0)
End If
'On va aller recherche la valeur saisie plus haut dans la variable valeur dans les cellules du classeur qu'on
'vient d'ouvrir
Set Ma_Val = Cells.Find(Valeur, LookIn:=xlValues, LookAt:=xlWhole)
If Not Ma_Val Is Nothing Then
Cells(Ma_Val.Row, Ma_Val.Column).Select 'On sélectionne la cellule qui correspond
Else
Exit Sub 'Si jamais la recherche ne trouve pas, alors ça prend un plan B. Tu peux changer le code ici comme bon te semblera.
End If
Application.ShowWindowsInTaskbar = True
End Sub