Utiliser la valeur d'une cellule comme variable dans VBA

**RastaBomboclat** · 19/01/2023, 15h17

Bonjour,

J'ai un code qui fonctionne très bien mais est statique. Ce code liste sur une cellule les fichier se trouvant dans un dossier.

Le problème est que le chemin du dossier est dans le code, et cela le rend statique. Je voudrais que le chemin du dossier soit dans la cellule A3, de telle sorte que l'utilisateur puisse le changer à volonté.

Merci d'avance pour vos contribution.

Ci-dessous mon code:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
Sub ListeFichiers()
    Dim Dossier
 
'    Dossier = "C:\Users\Rasta\Bomboclat"   'Avec ça tout fonctionne bien, mais c'est statique!
    Dossier = Cells(3, 1).Value    '=>>>>>>> Le problème est ici, ça ne marche pas.
 
    ListeFichiers Dossier
 
    Columns("E:F").AutoFit
    MsgBox "C'est prêt!!!", vbInformation, "RastaBomboclat"
End Sub
 
Sub ListeFichiers(Repertoire As String)
    '
    'Nécessite d'activer la référence "Microsoft Scripting RunTime"
    '
    Dim FSO As Scripting.FileSystemObject
    Dim SourceFolder As Scripting.Folder
    Dim SubFolder As Scripting.Folder
    Dim FileItem As Scripting.File
    Dim i As Long
 
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set SourceFolder = FSO.GetFolder(Repertoire)
 
    i = Range("F10000").End(xlUp).Row + 1
 
    For Each FileItem In SourceFolder.Files
        Cells(i, 6) = FileItem.Name
        ActiveSheet.Hyperlinks.Add anchor:=Cells(i, 6), _
            Address:=FileItem.ParentFolder & "\" & FileItem.Name
        Cells(i, 7) = FileItem.Type
 
        i = i + 1
 
    Next FileItem
 
    For Each SubFolder In SourceFolder.SubFolders
        ListeFichiers SubFolder.Path
    Next SubFolder
 
End Sub

**joe.levrai** · 19/01/2023, 16h28

Bonjour,

tu travailles sur la feuille active ici, c'est peut-être le problème ?

Indique le nom de la feuille

Code :

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

Worksheets("NomDeLaFeuille").Cells(3,1).Value

idéalement on indique également le classeur

idem pour la ligne du dessous avec Columns, ainsi que dans la procédure ListeFichiers

**RastaBomboclat** · 19/01/2023, 16h36

Bonjour Joe,
Merci de ta réponse.

Je n'ai pas encore tester ta solution, et elle me parrait intérressante puisque j'y avais pensé. Mais il reste apparemment statique, puisque mon classeur a N feuilles. Je vais appliquer cette macro à chacunne des feuilles à l'aide d'un bouton (shape), auquel j'ai assigné ladite macro. Porrais-tu me proposer un code qui prend la valeur d'une cellule de l'ActiveSheet?

Je teste ta solution tout de suite et essaie de l'adapter avec un ActiveSheet.
Merci encore!

**RastaBomboclat** · 19/01/2023, 18h10

Malheureusement, ça ne marche pas comme je le souhaite.

S'il y a d'autres solution, je suis toujours preneur...

**deedolith** · 19/01/2023, 21h46

Salut,

"Ca marche pas", c'est très vague comme explication, peux-tu détailler ? (comportement observé vs comportement souhaité, message d'erreur ect ...).
Et passer par l'objet Range sera probablement plus lisible que l'objet Cell:
Range("A3") <==> Cells(3, 1)

Enfin, pense à typer tes variable, ca t'évitera d'écrire des bêtises:

Code :

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

Dim Dossier As String

**Alex020181** · 22/01/2023, 21h05

Bonjour,

Le bouton sur la feuille "resultat_scan" te permettra de choisir un répertoire à scanner.
Le bouton sur la feuille "resultat_scan_2" te permettra de scanner le répertoire que tu auras précisément en amont précisé en "A1".

A toi de voir ce que tu veux.

Si j'ai bien compris tu veux utiliser le code sur plusieurs feuilles. J'ai donc utilisé "activesheet". A toi de dupliquer la feuille contenant le bouton qui t’intéresse.

Je te laisse également adapter le code. Il correspondait à mes besoins à un moment donné.

Enfin dans la macro il serait bon de créer des vérifications avant de lancer le scan (répertoire à scanner existant ? par exemple).

Teste et dis-nous.

**RastaBomboclat** · 24/01/2023, 17h42

Alex020181 Alex020181 merci de ta réponse. Je vais la tester tout de suite.

**RastaBomboclat** · 24/01/2023, 23h58

Alex020181 Merci encore pour ta contribution. C'est exactement ce que je voulais, et même plus, puisqu'il y a 2 versions.

Tu as assuré à Max!

Pour moi c'est : RÉSOLU !
Je suis sur que ça fera le bonheur de plusieurs autres à la recherche de la même chose, et qu'il penseront à mettre un bouton vert.

**Alex020181** · 25/01/2023, 00h05

Content que ça te plaise.

Tu as juste à dupliquer x fois la feuille contenant le bouton que tu veux et à adapter le code pour mettre la liste dans les colonnes que tu veux.

PS: dans ta signature "erreurs" ne prend pas d'accent pour info