Modification code VBA

Bonjour à tous.

Est-ce que quelqu'un pourrait-il m'aider à modifier un code ci-dessous, trouvé sur internet.

En effet, ce code va récupérer l'information en cellule F43 de chacun des fichiers dans un dossier spécifique et me coller ces informations sur la colonne en B2, puis B3, etc.. de mon fichier récap.

J'aimerais juste pour ajouter le même principe mais pour copier la cellule F20 de ces mêmes fichiers et coller ces inforamtions dans la colonne E2, puis E3, etc...

Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "" 'Chemin à définir
Ctr = 2
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Dossier & Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 2) = [F43]
Ctr = Ctr + 1
Workbooks(Fichier).Close False
Fichier = Dir
Loop
End Sub

Est-ce que quelqu'un pourrait m'aider ? Car ce code ouvre tous les fichiers et les referme... Et j'aimerais éviter d'effectuer deux cette étape..

Merci d'avance pour votre aide !

Mugiwaraa

Bonjour,

Je te propose cette modification à tester:

Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "" 'Chemin à définir
Ctr = 2
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
    Workbooks.Open Dossier & Fichier
    With ThisWorkbook.Sheets("Feuil1")
        .Cells(Ctr, 2) = [F43]
        .Cells(Ctr, 5) = [F20]
    End With
    Ctr = Ctr + 1
    Workbooks(Fichier).Close False
    Fichier = Dir
Loop
End Sub

Bonjour Ausecour,

Ta modification marche parfaitement !

Un très merci à toi !

Cordialement,

Mugiwaraa

De rien

Merci d'avoir passé le sujet en résolu bonne journée