Discussion :

[Windaube]

Bonjour,

j'aurais voulu savoir s'il était possible de créer un programme en VBA qui va parcourir tout un dossier et sous-dossiers à la recherche de fichiers excel, les ouvre un par un et modifier quelque truc dedans?

Pour ouvrire et modifier un fichiers je sais le faire, mais c'est pour qu'il scan un dossier pour trouver les fichiers excel et les ouvre un par un que je sais pas

Merci

[zazaraignée]

Salut

Tu peux d'abord jeter un coup d'oeil dans la FAQ et dans les tutoriels.

Tu peux aussi explorer l'aide de VBA en recherchant les mots suivants

• File System Object
• Workbooks, Open
• Worksheets
• Range, Cells, Offset, End, Value, Formula...
• La déclaration de variable de type objet et l'affectation d'une valeur objet avec l'instruction Set
• Libérer la mémoire utilisée par une variable objet avec la valeur Nothing

[Windaube]

J'ai trouvé une solution pour trouver tout les fichiers excel! pour la suite je sais comment faire

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
24
25
26
27
28
Sub Cherche_Fichiers_Dans_Dossier()
' *** le résultat peut apparaitre dans un message box (voir la syntaxe
'       mise en commentaire dans le code) mais je l'ai occulté car, pour cet exemple,
'       il y a environ 1 000 fichiers dans c:\.  Je me sers donc des cellules Excel
 
    Dim strMessage  As String
    Dim i           As Long
        Set fs = Application.FileSearch
 
With fs
    .LookIn = "C:\"  ' *** mettre ici le dossier voulu !
    .SearchSubFolders = True
    .Filename = "*.xls"
    If .Execute(SortBy:=msoSortByFileName, _
            SortOrder:=msoSortOrderAscending) > 0 Then
        MsgBox "Il y a " & .FoundFiles.Count & _
            " fichier(s) trouvé(s)."
        For i = 1 To .FoundFiles.Count
            Cells(i, 1).Value = .FoundFiles(i)
              'strMessage = strMessage & .FoundFiles(i) & vbCrLf
        Next i
              'MsgBox strMessage
    Else
        MsgBox "Il n'y a aucun fichier."
    End If
End With
 
End Sub