Discussion :

[gdulu]

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

[casefayere]

Bonjour,

Peut-être une bétise mais j'ai l'impression qu'il faut que tu réactive ton fichier où il y a la macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Comparaison").activate

avant le "close"

[gdulu]

Désolé mais ça ne fonctionne pas
En fait c'est le fichier que j'ai ouvert qui reste activé

[aalex_38]

Bonjour,

Essai avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks(NomFichier).Close (False)

[gdulu]

Bonjour Merci pour votre aide
en Fait la commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks(MonFichier).Close

fonctionne. Le problème vient du fichier que je veux fermer qui est sécurisé par une macro

[aalex_38]

Ah c'est bête

Puisque c'est résolu c'est cool, bon week