Problème avec la fonction GetOpenFilename

**johannj** · 04/06/2009, 16h56

Bonjour le forum,

J'utilise une macro avec laquelle j'ouvre plusieurs fichiers via les fonctions Applications.GetOpenFilename et Application.Workbooks.Open.

J'utilise la fonction GetOpen avec la multisélection. La macro fonctionne bien, mais j'aimerai à présent mettre une condition sur le GetOpen, à savoir que si aucun fichier n'est sélectionné, je sors de la boucle.
Et bien, c'est justement cette condition que je n'arrive pas à "écrire"

.

Voici mon code de base

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
 
Sub Sheet_resistance()
 
Dim WB As Workbook
Dim TreatedFile As Workbook
Dim Counter() As Variant
Dim a As Integer 
Dim run as string
 
run = InputBox("Run Number?")
If run = "" Then Exit Sub
 
Set WB = ThisWorkbook  
 
Counter = Application.GetOpenFilename(",*.map", , , , True) 
 
For a = 1 To UBound(Counter)
 
    Set TreatedFile = Application.Workbooks.Open(Counter(a), xlMSDOS)
    ...puis traitement...
Next a
End sub

J'avoue avoir essayé pas mal de code rencontré sur le net (que je plaçais toujours juste après le GetOpenFilename), genre:

Code :

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

1
2
3
 
If VarType(Counter) = vbBoolean Then Exit Sub
If IsArray(Counter) Then Exit Sub

(j'en passe et des meilleurs...)

mais pas moyen de sortir de la boucle, j'ai automatiquement une erreur si je fais echap lors de la sélection des fichiers à traiter. L'erreur est de type erreur 13 et semble concernée la ligne GetOpenFilename justement. J'ai tenté de changer le type de varaible de "counter", mais rien n'y fait

...

Quelqu'un aurait-il une idée SVP?

Johann

**aalex_38** · 04/06/2009, 17h05

Un exemple :

Code :

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

1
2
Dim quelfichier As Variant
quelfichier = Application.GetOpenFilename(Title:="Sélectionner le fichier à traiter", MultiSelect:=False)

il ne te reste plus qu'a tester quelfichier

**Minick** · 04/06/2009, 17h05

Salut,

Change ta declaration de

Code :

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

Counter() as Variant

en

Code :

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

Counter as Variant

et ajoute ce test avant de lire les fichiers selectionnes

Code :

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

If IsArray(Counter) Then

++
Minick

**aalex_38** · 04/06/2009, 17h06

Un autre exemple plus complet :

Code :

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

1
2
3
4
5
6
7
8
9
Sub RLS_Parcourir()
Dim mychemin As Variant 'Variant pour tester le code retour de la boite de dialogue
' +-----------------------------------------------------------------------+
' ! Ouverture de la boite de dialogue ouvrir pour choisir le chemin       !
' +-----------------------------------------------------------------------+
 mychemin = Application.GetOpenFilename("Tous les fichiers, *.*,Fichiers Textes , *.txt ,Fichiers office, *.xls;*.doc;*.ppt,Fichiers Word , *.doc") 'fenetre pour selection du fichier
 If VarType(mychemin) = vbBoolean Then ' test si on ne selectionne pas de chemin
 Else:   TB1.Text = mychemin: End If
 End Sub

**johannj** · 04/06/2009, 17h14

Merci de vos réponses,

J'ai essayé la méthode de Minick et j'ai donc enlevé les parenthèses lors de la déclarations de Counter.
Ça marche du tonnerre

Par contre, à titre personnel, j'aimerai savoir pourquoi il ne faut pas mettre les parenthèse (ou bien faut-il ls mettre partout?)?

Merci,
Johann

Euh désolé,
En fait vous me disiez tous les deux de supprimer les ()

Merci à tous les deux

Johann