zesuila
XLDnaute Occasionnel
Bonjour à tous et d'abord bon courage pour ceux qui ont repris le boulot ce matin, et bon repos por les autres.
Voici ma question :
avec le code ci dessous j'arrive donc à récupèrer la liste d'un répertoire précis (merco qui ?...merci les membres du forum, bien sûr
Dim X As Integer, nbFichiers As Integer
Dim Tableau() As String
Dim Direction As String
Direction = Dir('Q:\\GESTION BONS SAV\\test\\archives\\*.xls') 'adapter chemin
'Direction = Dir('C:\\repertoire\\*.*') 'pour recuperer tous les types de fichiers
Do While Len(Direction) > 0
nbFichiers = nbFichiers + 1
ReDim Preserve Tableau(1 To nbFichiers)
Tableau(nbFichiers) = Direction
Direction = Dir()
Loop
If nbFichiers > 0 Then
MsgBox 'il y a ' & nbFichiers & ' fichiers . '
'pour afficher tous les noms de fichiers
For X = 1 To nbFichiers
Cells(X + 1, 1) = Left(Tableau(X), Len(Tableau(X)) - 4)
Next X
End If
Range('B1').Select
Mais comment faire par exemple pour que dans la colonne d'à côté (en l'occurence, colonne B) je puisse y mettre le résultat d'une cellule du fichier 'exporté'?
un exemple :
j'ai dans le répertoire archives, un fichier nommé 'oulala'.
Dans ce fichier oulala, j'ai une cellule b2 avec dedans 'super'.
Je voudrais après avoir rapatrié dans mon programme la liste de ce répertoire archives (en colonne A donc), qu'en colonne B et face au fichier 'oulala', il y ait 'super' . Et ainsi de suite pour les autres fichiers listés.
Comme d'hab, je ne peux pas envoyer un fichier zippé (trop complexe mon truc).
Encore merci de votre aide
Zesuila
Voici ma question :
avec le code ci dessous j'arrive donc à récupèrer la liste d'un répertoire précis (merco qui ?...merci les membres du forum, bien sûr
Dim X As Integer, nbFichiers As Integer
Dim Tableau() As String
Dim Direction As String
Direction = Dir('Q:\\GESTION BONS SAV\\test\\archives\\*.xls') 'adapter chemin
'Direction = Dir('C:\\repertoire\\*.*') 'pour recuperer tous les types de fichiers
Do While Len(Direction) > 0
nbFichiers = nbFichiers + 1
ReDim Preserve Tableau(1 To nbFichiers)
Tableau(nbFichiers) = Direction
Direction = Dir()
Loop
If nbFichiers > 0 Then
MsgBox 'il y a ' & nbFichiers & ' fichiers . '
'pour afficher tous les noms de fichiers
For X = 1 To nbFichiers
Cells(X + 1, 1) = Left(Tableau(X), Len(Tableau(X)) - 4)
Next X
End If
Range('B1').Select
Mais comment faire par exemple pour que dans la colonne d'à côté (en l'occurence, colonne B) je puisse y mettre le résultat d'une cellule du fichier 'exporté'?
un exemple :
j'ai dans le répertoire archives, un fichier nommé 'oulala'.
Dans ce fichier oulala, j'ai une cellule b2 avec dedans 'super'.
Je voudrais après avoir rapatrié dans mon programme la liste de ce répertoire archives (en colonne A donc), qu'en colonne B et face au fichier 'oulala', il y ait 'super' . Et ainsi de suite pour les autres fichiers listés.
Comme d'hab, je ne peux pas envoyer un fichier zippé (trop complexe mon truc).
Encore merci de votre aide
Zesuila