Probléme de Multiselection de fichier excel

Version imprimable

09/04/2013, 12h37
Matrixmax

Probléme de Multiselection de fichier excel

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
09/04/2013, 12h42
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 …

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

Code:

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

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

Code:

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

09/04/2013, 15h49
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é !)
09/04/2013, 16h57
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 !
09/04/2013, 17h27
Matrixmax

Dsl mais çà ne marche pas !

De mon côté fonctionne sans souci - sur deux PC et deux versions d'Excel différentes - le code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub Demo() Choix = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", , , , True) If IsArray(Choix) Then For Each Fichier In Choix M = M & Fichier & vbLf Next MsgBox M End If End Sub
J'ai de nouveau scindé les fichiers dans une variable au cas où la sélection des fichiers soit annulée;
ce qui n'empêche de bien fonctionner le précédent code si au moins un ficher est sélectionné ! …

10/04/2013, 12h50
Matrixmax

Merci