VBA-PB avec le Path

Bonjour,

j'ai plusieurs fichiers nommés:

ccc_* où * sont les dates des fichiers

Ces fichiers se trouvent: E:\aaa\bbb.

Or, dans le répertoire: aaa, j'ai un fichier nommé: "Score_resume.xls" avec une VBA qui extrait les données "B2 et B3" des fichiers: ccc_*. Pourriez-vous regarder ce qui ne marche pas avec le "Path" dans ma VBA?

Voici, un petit extrait de la VBA:

Dim Path As String, Fichier As String, dateFichier As String,  Dim i As Long

Application.ScreenUpdating = False
Path = ThisWorkbook.Path & "\" & bbb & "\"
ChDir Path
Fichier = Dir(Path & "ccc_*.xls")
i = 4
Do While Fichier <> ""
      dateFichier = Mid(Fichier, 3, 10)
      Workbooks.Open (Path & Fichier)
With Workbooks("Score_resume.xls")
     With .Sheets("AM_ete")
          .Cells(i, 1) = dateFichier
          .Cells(i, 1).NumberFormat = "yyyy-mm-dd"
          .Cells(i, 2) = Cells(3, 2)
          .Cells(i, 3) = Cells(4, 2)                                    
     End With
 End With
 i = i + 1
Workbooks(Fichier).Close
Fichier = Dir
Loop
Workbooks("Score_resume.xls").Activate
End Sub

Voilà,

je vous remercie pour votre aide,

Émil

Bonsoir,

Path est un mot réservé, pas une variable, une propriété en lecture et non en écriture...

Tu peux écrire : (si bbb est une variable)

chemin =ThisWorkbook.Path & "\" & bbb '(sans & "\")

ChDir chemin

Fichier = Dir( "ccc_*.xls")

'...Pour le reste j'ai pas vérifié...

Attention avec bbb : Si tu défini le chemin "en dur" c'est :

chemin =ThisWorkbook.Path & "\ bbb" '(sans & "\")

A+

Bonsoir Galopin,

Je te remercie de te pencher sur mon problème...

J'ai suivi tes instruction et j'ai remplacé et redéfini la variable Path par chemin.

Néanmoins, il n'y aucune donnée qui sont écrites dans le fichier: score-resume

Émil

As-tu remplacé le :

Workbooks.Open (Path & Fichier)

par :

Workbooks.Open (Fichier)

Je suppose que non

Pour le reste je ne peux pas t'en dire plus : ci ça ne marche pas il faut mettre des points d'arrêt et déboguer ligne par ligne...

Le cas échéant mettre ton code modifié.

A+