Discussion :

[attavus]

bjr

comment faire pour recencer et ouvrir les fichier excel contenus dans le meme fichier excel appelant la macro


merci davance

[SfJ5Rpw8]

bjr

comment faire pour recencer et ouvrir les fichier excel contenus dans le meme fichier excel appelant la macro


merci davance

oups pas trés clair...

pour lister des fichiers voir commande Dir...

Code :

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

1
2
3
4
5
6
7
 
dim st as string
  st = dir ("thisworbook.path\*.xls")
 while st <> "" 
    Debug.print st 'Affiche réperoire dans fenêtre exécution
    st = dir
wend

[attavus]

je voulais dire recenser les fichiers excel contenus dans le meme dossier que le fichier excel appelant un code vba

[conconbrr]

Essaie le bout de code suivant :

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
18
19
20
21
22
23
Sub Test_Fichiers()
 
    Dim Existence_Dossier As Variant
    Dim Test_Dossier, Fichier, Fichier1 As String
 
    Test_Dossier = ActiveWorkbook.Path & "\TON REPERTOIRE"
    On Error Resume Next
    Existence_Dossier = (GetAttr(Test_Dossier) And vbDirectory) = vbDirectory
 
    If Existence_Dossier = "Vrai" Then
        Fichier = Dir(Test_Dossier & "\*.xls")
        Do While Fichier <> ""
            Fichier1 = Fichier1 & ", " & Fichier
            Fichier = Dir
        Loop
    End If
 
    If Existence_Dossier = "Vrai" Then
        MsgBox "Les fichiers sont : " & Right(Fichier1, Len(Fichier1) - 2), _
               vbInformation, "Avertissement"
    End If
 
End Sub

Ce code te permet te tester l'existence de ton répertoire et s'il existe de lister tous les fichiers excel qu'il contient. Ils sont concaténés dans fichier1, a toi d'adapter, ça devrait pas être trop compliqué

[ouskel'n'or]

Le code de bbil fonctionne très bien sur VBA 2003.
J'attends toujours la réponse à ma question

Ce code te permet te tester l'existence de ton répertoire et s'il existe

Cette ligne signifie que le répertoire existe puis que c'est le répertoire du fichier actif

st = dir ("thisworbook.path\*.xls")

[AlainTech]

Code :

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

Dim Test_Dossier, Fichier, Fichier1 As String

Attention avec cette syntaxe.
Seul Fichier1 est déclarer en String, les autres seront des Variant.

[conconbrr]

Ah tiens ben je savais pas ça...
Ca veut dire que tu dois déclarer une variable par ligne?,
Un peu relou quand tu en as plusieurs centaines

[SfJ5Rpw8]

Ah tiens ben je savais pas ça...
Ca veut dire que tu dois déclarer une variable par ligne?,
Un peu relou quand tu en as plusieurs centaines

non tu peu en déclarer plusieurs par ligne :

Code :

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

1
2
 
Dim Test_Dossier As String, Fichier As String, Fichier1 As String

mais si tu as plusieurs centaines de variables à déclarer.. je pense qu'il va falloir mieux organiser ton projet (les tableaux, collections, cela existe..)