Discussion :

[Matrixmax]

Bonjour chers forumiste,

Je retourne vers vous pour avoir une réponse à ma question concernant la multiselection on utilisant ( getopenfilename ..... multiselect true )

coment puis je boucler (à chaque fois on pointe sur un des fichier selectionné ) sur une multi selection de fichiers excel on utilisant la synthaxe cité ainsi.. ??


merci d'avance

[Marc-L]

Bonjour.

Sans voir de code, je peux juste répéter l'aide de cette méthode :

Si MultiSelect a la valeur True, la valeur renvoyée est un tableau des noms de fichiers sélectionnés (même si un seul nom de fichier est sélectionné).

Donc cela se récupère par exemple via une boucle For Each …

[Matrixmax]

Merci pour l'interrêt que tu porte à mon sujet ;

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
 
Sub Principale()
Dim LeFichier As Variant
Dim WsCR As Worksheet
Dim i As Integer
Dim Tmp, TbSyn
 
Application.ScreenUpdating = False
LeFichier = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", , , , True)
 
'Mon probléme se pose ici je ne sais pas quelle varriable doit je poser pour boucler sur les fichiers selectionnés
 
For Each .......'.......
 
 
If ImportData(LeFichier) Then
    'Appel de Cycle 0
    Call CycleZero(WsCR)
 
    'Appel pour les autres cycles
    Tmp = WsCR.Range("C19:AI19")
 
    For i = 1 To 20
        Call CycleN(WsCR, Tmp, 8 + 17 * i, 7 + 14 * i)
    Next i
 
    Call CycleFinal(WsCR)
 
    Call Synthese(WsCR)
 
    TbSyn = WsCR.Range("C324:AI336")
    'ici on va continuer le code pour les autres traitements
    'La variable TbSyn comporte déjà les données de synthèse brutes qu'on va par la suite traiter
 
    Set WsCR = Nothing
    MsgBox "Traitement terminé", , "Confirmation"
Else
    MsgBox "Aucun fichier n'est sélectionné", , "Annulation"
End If
'Next .....
 
End Sub

[Marc-L]

AUtre souci : la variable WsCR n'est pas alimentée, le code va planter …

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
Sub Principal()
'    Dim LeFichier As Variant
    Dim WsCR As Worksheet
'    Dim i As Integer
    Dim Tmp, TbSyn
 
'    Set WsCR = à compléter !
    Application.ScreenUpdating = False
'    LeFichier = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", , , , True)
 
    For Each Fichier In Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", , , , True)
        If ImportData(Fichier) Then
            B = True
 
'           Appel de Cycle 0
            Call CycleZero(WsCR)
 
'           Appel pour les autres cycles
            Tmp = WsCR.Range("C19:AI19")
 
            For i = 1 To 20
                Call CycleN(WsCR, Tmp, 8 + 17 * i, 7 + 14 * i)
            Next i
 
            Call CycleFinal(WsCR)
            Call Synthese(WsCR)
 
            TbSyn = WsCR.Range("C324:AI336")
 
'           ici on va continuer le code pour les autres traitements
'           La variable TbSyn comporte déjà les données de synthèse brutes qu'on va par la suite traiter
 
            Set WsCR = Nothing
        End If
    Next Fichier
 
    If B Then MsgBox "Traitement terminé", , "Confirmation" _
         Else MsgBox "Aucun fichier traité", , "Annulation"
End Sub

[Matrixmax]

Méme si on alimente cette varriable qui est déja un retour d'une autre procédure le code ne marche pas ...

je veux juste le code qui consiste à faire une boucle sur l'enssemble des fichier selectionnés .


For each (fichier selectionné ......)


Next -(fichier selectionné !)

[Marc-L]

Oui mais comme la variable est déclarée dans la procédure, donc locale, …

Pour le reste, suffit de lire mon code !