Bonjour,

Je suis débutant en VBA, et je dois, dans le cadre d'un stage réaliser une macro permettant dans un permier temps d'ouvrir tous les fichiers texte d'un dossier et d'en copier les valeurs dans un classeur Excel.

J'avais trouvé sur ce site déjà une fonction qui semblait convenir à mes besoins, une fois adaptée à mon soucis, celà donne:

Sub vide_dossier()

Dim col As Integer
Dim Fichier As String, Chemin As String
Dim wb As Workbook

'La variable "col stockée en IV65356 donne la première colonne vide où copier les données
If Range("IV65356") <> "" Then col = Range("IV65536")
If Range("IV65356") = "" Then col = 2

Chemin = disk & "\NOI tracabilité\Données\Résultats\2009\Spectroradiomètre 09\T1\" & dos
Fichier = Dir(Chemin & "*.txt")

Do While Fichier <> ""

Set wb = Workbook.Open(Chemin & Fichier)

Application.CutCopyMode = False
Range("A24:A2500").Select
Selection.Copy
Windows("Essai-Ouverture-Dossier.xls").Activate
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows(Fichier & ".txt").Activate
Range("B24:B2500").Select
Selection.Copy
Windows("Essai-Ouverture-Dossier.xls").Activate
Cells(1, col).Select
ActiveSheet.Paste
col = col + 1
Range("IV65356") = col

wb.Close True
Set wb = Nothing
Fichier = Dir

Loop

End Sub

Le problème est qu'au moment de l'execution, une erreur 424 se produit: "Objet requis" sur la ligne:

Set wb = Workbook.Open(Chemin & Fichier)

Je n'arrive pas à repérer d'où vient l'erreur, et donc comment la corriger, aussi tout avis serait le bienvenu.

Merci d'avance.

TheMoon