[VBA Excel] lookIn peut-il être une variable ?

lookIn peut-il être une variable ? [VBA Excel] - VB/VBA/VBS - Programmation

Marsh Posté le 07-06-2005 à 15:24:21    

Bonjour à tous,
 
Je cherche le moyen de crèer sur une feuille excel la liste des fichiers contenus dans un répertoire sélectioné par un utilisateur.
 
le code que j'ai écrit est le suivant, il est placé dans un module standard:

Code :
  1. Option Explicit
  2. Public DSource As FileDialog
  3. Public DSou As String
  4. ________________________________________
  6. Sub traduire1()
  7.     Dim FF As Variant
  8. 'montrer la feuille "fichiers"
  9.     Worksheets("Fichiers" ).Visible = True
  10. 'faire selectioner le dossier source
  11.     Set DSource = Application.FileDialog(msoFileDialogFolderPicker)
  12.     With DSource
  13.         .AllowMultiSelect = False
  14.         .Show
  15.     End With
  16.     DSou = DSource.SelectedItems(1) & "\"
  17. 'exécuter le filesearch dans DSou, ne prendre que les fichiers excel
  18. With Application.FileSearch
  19.     .LookIn = DSou
  20.     .FileType = msoFileTypeExcelWorkbooks
  21.     If .Execute() > 0 Then
  22.       For Each FF In .FoundFiles
  23. 'écrire dans la feuille fichiers la liste des fichiers
  24.         Worksheets("Fichiers" ).Activate
  25.         Range(FF + 1, 1).Select
  26.         ActiveCell.Formula = .FoundFile(FF).Name
  27.       Next FF
  28.     Else
  29.       MsgBox "Aucun fichier trouvé !"
  30.     End If
  31.   End With
  32. End Sub


 
Mon gros problème c'est que ce code ne marche pas il me met systèmatiquement que le répertoire est vide (dans l'explorateur j'ai bien 15 fichiers excel ).
 
En bref, c'est très frustrant. Et je ne comprends pas pourquoi ni comment résoudre cela.
Si vous avez une idée je la prends volontier.
merci d'avance.


---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
Reply

Marsh Posté le 07-06-2005 à 15:24:21   

Reply

Marsh Posté le 11-06-2005 à 23:23:29    

Je viens d'essayer ton code.
Tu ne peux pas utiliser FF comme index.
Voici le code après correction et test:

Public DSource As FileDialog
Public DSou As String
 
Sub traduire1()
  Dim iI As Integer
  'montrer la feuille "fichiers"
  Worksheets("Fichiers" ).Visible = True
  'faire selectioner le dossier source
  Set DSource = Application.FileDialog(msoFileDialogFolderPicker)
  With DSource
    .AllowMultiSelect = False
    .Show
  End With
  DSou = DSource.SelectedItems(1) & "\"
  'exécuter le filesearch dans DSou, ne prendre que les fichiers excel
  With Application.FileSearch
    .LookIn = DSou
    .FileType = msoFileTypeExcelWorkbooks
    If .Execute() > 0 Then
      For iI = 1 To .FoundFiles.Count
        'écrire dans la feuille fichiers la liste des fichiers
        Worksheets("Fichiers" ).Activate
        Cells(iI + 1, 1) = .FoundFiles(iI)
      Next iI
    Else
      MsgBox "Aucun fichier trouvé !"
    End If
  End With
End Sub


Message édité par AlainTech le 11-06-2005 à 23:25:06

---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 14-06-2005 à 14:30:25    

Bonjour Alain et tout d'abord merci pour ta réponse.
 
Le code corrigé que tu as indiqué ci-dessus continu à définir tout répertoire comme vide. Ne me manquerait-il pas une référence quelconque pour utiliser ce code ? J'en ai une bonne quantité d'activé mais a priori pas celui qui serait nécessaire.
Si quelqu'un a une idée !...
 
Toutefois, J'ai quand même réussi à bidouiller un petit truc ce week-end, grâce à des codes trouvé sur un autre forum. Ca marche même si c'est pas du très "propre" et beaucoup plus compliqué surtout.  
 
Je donne mon code pour ceux qui pourraient être interessés, permet d'établir la liste des fichier dans un répertoire (1 colone chemin, 1 colonne nom du fichier) :
 

Code :
  1. Option Explicit
  2. Public FSOSource As Object, DSource As Object, FDSou As Object, FDSous As Object
  3. Public NDSource As String
  4. Public SH As Worksheet
  5. _________________________________
  7. Function Dsou(Racine, Optional SelType As Byte = 0)
  8. Dim objShell, objFolder, Chemin, SecuriteSlash
  10.      Set objShell = CreateObject("Shell.Application" )
  11.      Set objFolder = objShell.BrowseForFolder(&H0&, "Choisissez un dossier :", &H1&, Racine)
  12.      On Error Resume Next
  13.      Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
  14.      If objFolder.Title = "Bureau" Then
  15.          Chemin = "C:\Windows\Bureau"
  16.      End If
  17.      If objFolder.Title = "" Then
  18.          Chemin = ""
  19.      End If
  20.      SecuriteSlash = InStr(objFolder.Title, ":" )
  21.      If SecuriteSlash > 0 Then
  22.          Chemin = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ""
  23.      End If
  24.      Dsou = Chemin
  25. End Function
  26. ___________________________________________
  28. Sub traduire1()
  29. Dim i As Integer, j As Integer
  30. Dim ArrFSO, Entête
  31. 'faire selectioner le dossier source
  32.     Set FSOSource = CreateObject("Scripting.FileSystemObject" )
  33.     NDSource = Dsou("" )
  34.     If NDSource = "" Then MsgBox ("Aucun répertoire sélectioné !" ): UserForm01.Show: Exit Sub
  35.     Set DSource = FSOSource.GetFolder(NDSource)
  36.     Set FDSous = DSource.Files
  37.     If FDSous.Count <> 0 Then
  38.         Set SH = Sheets("Fichiers" )
  39. 'montrer la feuille fichier
  40.         SH.Visible = True
  41.         Entête = Array("chemin", "Nom" )
  42.         SH.Range("A1:F1" ).Value = Entête
  43.         i = 1
  44.         For Each FDSou In FDSous
  45.         i = i + 1
  46.         With FDSou
  47.             ArrFSO = Array(.ParentFolder & "\", .Name)
  48.         End With
  49.         SH.Cells(i, 1). _
  50.             Resize(1, UBound(ArrFSO) - LBound(ArrFSO) + 1).Value = ArrFSO
  51.         Next
  52.     Else: MsgBox ("Aucun fichier trouvé !" )
  53.     End If
  54.     SH.UsedRange.EntireColumn.AutoFit
  55. End Sub


 
Ensuite je fais un test sur le nom des fichiers pour être sure de ne prendre que ceux qui m'interessent.
 
 :jap:  


---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
Reply

Marsh Posté le 14-06-2005 à 18:43:06    

Qu'appelles-tu "définir tout répertoire comme vide"?
 
Ta feuille "Fichiers" ne contient aucun fichier à la fin de l'exécution du script?


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 17-06-2005 à 11:01:19    

Oui c'est bien ça la réponse du file search renvoi systèmatiquement sur le msgbox = " Aucun fichier trouvé !"
 
j'ai également essayé sans le :
".FileType = msoFileTypeExcelWorkbooks"
et en lui mettant dans le repertoire des fichiers de tous type... mais aucun fichier n'est trouve dans le répertoire.
 
bizar, vous avez dit bizar... ;-)
 


---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed