Selection mutliple de fichier pour remplir un tableau

Question

Bonjour a tous!
Voila, je ne suis pas un pro et je viens de me mettre a VB6... j'ai quelques notions sur VBA... Il y a quelques temps j'utilisais ce bout de script sous Excel pour selectionner plusieurs fichiers, noter leur noms dans une feuille (tableau) puis faire tourner une boucle sur cette liste.
J'aimerais faire la m&#234;me chose sur VB avec si possible le m&#234;me type d'interface. J'ai essay&#233; avec l'API open de windows mais je n'arrive a selectionner qu'un seul fichier. J'ai beau chercher sur diff&#233;rent forum, je ne trouve pas de r&#233;ponse.
Quelqu'un peut m'aider?

Voici le script que j'utilisais sous excel:

Dim fnam As Variant
 ' fnam is an array of files returned from GetOpenFileName
 ' note that fnam is of type boolean if no array is returned.
 ' That is, if the user clicks
 ' on cancel in the file open dialog box, fnam is set to FALSE


Dim b As Integer 'counter for filname array
Dim b1 As Integer 'counter for finding \ in filename
Dim c As Integer 'extention marker


 ' first open a blank sheet and go to top left  ActiveWorkbook.Worksheets.Add


 fnam = Application.GetOpenFilename("all files (*.jpg), *.*", 1, _
      "Selectionner les fichiers a imprimer", "Get Data", True)


          If TypeName(fnam) = "Boolean" And Not (IsArray(fnam)) Then Exit Sub  'if user hits cancel, then end
          
          For b = 1 To UBound(fnam)


             ' print out the filename (with path) into first column of new sheet
             Sheets("List").Cells(b, 1) = fnam(b)
             b1 = Len(fnam(b))


          Next

On ne peut plus simple mais sous VB6, le script bloque sur Application en disant Variable non d&#233;finie.. je pense qu'il me renvoi ce message en pensant que c'est une variable non d&#233;clar&#233;e mais cela signifie qu'il ne reconnait pas Application comme une instruction... je ne sais pas comment faire pour trouver un &#233;quivalent... 

Merci d'avance pour vos r&#233;ponses!

PCPT · Answer

salut, d&#233;sol&#233;, aucune notion de VBA.
par contre, en VB, l'utilisation de "Application" sert &#224; ouvrir une application nomm&#233;e en param&#232;tre (Excel par exemple), et enregistr&#233;e de la m&#234;me mani&#232;re que ton exemple (enfin, si on veut..), &#224; la diff&#233;rence que ton  "fnam" ne doit pas &#234;tre en variant.

je ne comprends pas trop les actions de ton code (diff&#233;rence de langage), mais voici l'utilisation de ton instruction reconnue par VB (Application interpret&#233;): 


   Dim ExlObj as Object

    Set ExlObj = CreateObject("Excel.Application")
    
    ' on l'affiche
    ExlObj.Visible = True
    
   ' on charge la feuille
    ExlObj.Workbooks.Open FileName:="CheminComplet.xls", Editable:=True
    
    'supprime l'affichage des messages d'erreurs ou de confirmation de suppression, ...
    ExlObj.DisplayAlerts = False
    
    ' on rempli la 1&#232;re cellule
    ExlObj.range("A1").Value = "Test de saisie par VB"

   ' on quitte excel (sans enregistrer)
    ExlObj.Application.Quit
    
    ' on d&#233;charge la variable
    Set ExlObj = Nothing


explique mieux l'action de ton script et j'essairais de mieux r&#233;pondre. l&#224; tu vois peut-&#234;tre sur quoi VB s'arr&#234;te 

PCPT

jpleroisse · Answer

Bonsoir,

Tu peux essayer ceci

Places un ListBox (assez large pour visualiser les donn&#233;es), un
CommandButon et un CommonDialog (Composants/Microsoft Common Dialog 6.0)



Private Sub Command1_Click()

With CommonDialog1

    .DialogTitle = "S&#233;lectionner le fichier &#224; copier"

    .CancelError = True

    .FileName = ""

    .Filter = "Tous(*.*)|*.*"

    .FilterIndex = 1

    .InitDir = "C:"

    On Error GoTo Annuler

    .ShowOpen

        List1.AddItem .FileName

    End With

  GoTo Suite:

Annuler: MsgBox "Vous n'avez s&#233;lectionn&#233; aucun fichier "

Suite:

End Sub



jpleroisse

cs_pbgunner · Answer

Merci pour vos r&#233;ponses,


pcpt, je comprend mieux et c'est en effet ce dont je me doutais.


jpleroisse, ton code est presque conforme a ce que je cherche. Le probl&#232;me


c'est que je suis oblig&#233; de r&#233;p&#233;ter l'op&#233;ration pour chaque fichier. Or je


peux avoir le cas ou j'ai a s&#233;lectionner une 30aine de fichiers. Je me vois


mal r&#233;p&#233;ter 30 fois l'op&#233;ration. Aussi, j'aimerais pouvoir faire une


selection multiple soit avec la touche Shift ou soit Control pour cr&#233;er le


m&#234;me genre de liste en une seule op&#233;ration. J'avais d&#233;ja r&#233;ussi a avoir le


m&#234;me r&#233;sultat avec l'API open de windows.


pcpt, tu dois mieux comprendre mon besoin avec le code propos&#233; par


jpleroisse...Sinon, tu peux ouvrir Excel, lancer le Visual Script editor


(ctrl+F11), recopier le script ci-dessous et lancer la macro test. Tu verras


exactement ce que je cherche a reproduire en VB... Tu peux selectionner


plusieurs fichiers doc d'un m&#234;me r&#233;pertoire en utilisant shift ou control


------


Sub test()


Dim fnam As Variant
 ' fnam is an array of files returned from GetOpenFileName
 ' note that fnam is of type boolean if no array is returned.
 ' That is, if the user clicks
 ' on cancel in the file open dialog box, fnam is set to FALSE


Dim b As Integer 'counter for filname array
Dim b1 As Integer 'counter for finding \ in filename
Dim c As Integer 'extention marker


 ' first open a blank sheet and go to top left  ActiveWorkbook.Worksheets.Add


 fnam = Application.GetOpenFilename("all files (*.jpg), *.*", 1, _
      "Selectionner les fichiers a imprimer", "Get Data", True)


          If TypeName(fnam) = "Boolean" And Not (IsArray(fnam)) Then Exit Sub  'if user hits cancel, then end
          
          For b = 1 To UBound(fnam)


             ' print out the filename (with path) into first column of new sheet
             Sheets("List").Cells(b, 1) = fnam(b)
             b1 = Len(fnam(b))


          Next


End Sub


-------


 


Avez vous d'autres id&#233;es a ce sujet? Je sent qu'on y est presque!


D'avance merci!

PCPT · Answer

je dois vraiment avoir du mal, je ne comprend pas. tu veux lister tous les jpg (par exemple) d'un répertoire? tous les jpg de tous les rep? ou juste pouvoir sélectionner plusieurs jpg du même rep en une seule fois... (macro testée) comme mon premier post, je vais te donner une idée qui peut t'avancer..... Control sur la Form : FileListBox (nommé File1) Propriété : MultiSelect = 2 - Extended (mais pour mon exemple, on s'en fou) 'déclaration générale Dim TabAllMyPics() As String Private Sub Form_Load() 'répertoire + extention File1.Path = App.Path 'ou "C:" pour toi File1.Pattern = "*.jpg" If File1.ListCount = 0 Then Exit Sub 'enregistre tous les JPG du rep dans le tableau Dim i as Integer Erase TabAllMyPics For i = 0 To File1.ListCount - 1 ReDim Preserve TabAllMyPics(i) TabAllMyPics(i) = File1.List(i) Next i End Sub çà n'ouvre pas de console, là tu listes la totalité des jpg du rep voulu, et les mets dans ta variable tableau. si il te faut la console, rapproche toi du code de JpLeroisse, en ajoutant la possibilité de multiselection msdn : cdlOFNAllowMultiselect, &H200, Indique que la

[javascript:alink_3.Click() moment de l'exécution] en maintenant enfoncée la touche MAJ et en sélectionnant les fichiers à l'aide des touches HAUT et BAS. Dans ce cas, la propriété FileName renvoie une chaîne contenant le nom de tous les fichiers sélectionnés, séparés par des espaces. par contre, j'ai beau chercher, je n'arrive pas à trouver comment attribuer cette constante. une fois chose faite, le résultat n'est pas interprétable comme JpLeroisse l'a dit (cf msdn ci-dessus). à toi ensuite de la retravailler la fonction Instr te servira alors (si [ESPACE] après ".jpg" alors c'est pas là fin ) j'èspère que çà t'aura un peu aidé PCPT

Selection mutliple de fichier pour remplir un tableau

4 réponses

Discussions similaires