Bonjour,
J'ai un problème avec vba
J'essaye de faire une macro qui permet pour une liste de noms d'ouvrir des fichiers correspondants à chaque nom, récupérer une valeur dans le fichier ouvert, puis de le refermer ensuite.
Pour l'instant j'arrive à ouvriri le premier fichier, à récupérer la valeur nécessaire mais je n'arrive pas à le fermer
J'ai codé la macro de la manière suivante:
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
For i = 1 To NbPersonne
' Aller sur la feuille 2 dans classeur2_Nom_Prenom
    Nom = Range("a1").Offset(i).Value
    Prenom = Range("b1").Offset(i).Value
    MonFichier = "classeur2_" & Nom & "_" & Prenom & "_" & Annee & "_" & Mois & ".xls"
    Range("e1").Offset(i).Value = MonFichier
    Workbooks.Open Filename:=MonFichier
' Chercher la ligne qui contient ABC
    With Workbooks(MonFichier).Worksheets("feuille2").Range("G11:G37")
    Set Recherche = .Find("ABC", xlValues)
        If Not Recherche Is Nothing Then
        'retourne la valeur en colonne B
            Valeur = Range(Recherche.Address).Offset(0, 24)
            Worksheets("Comparaison").Range("d1").Offset(i).Value = Valeur
        End If
    End With
    Workbooks(MonFichier).Close
Merci d'avance pour votre aide