Problème avec la fonction GetOpenFilename

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" :roll:.

Voici mon code de base

Code:

---

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:

---

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 :calim2:...

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

Johann

Un exemple :

Code:

---

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

Salut,

Change ta declaration de

Code:

---

Counter() as Variant

---

en

Code:

---

Counter as Variant

---

et ajoute ce test avant de lire les fichiers selectionnes

Code:

---

If IsArray(Counter) Then

---

++
Minick

Un autre exemple plus complet :

Code:

---

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

---

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 :ccool:

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 () :P

Merci à tous les deux

Johann

D'après ce que j'ai compris

Si tu déclares

Code:

---

Counter() as Variant

---

counter est un tableau puisque tu as mis des parenthèse
donc quelque soit le résultat de ta recherche

Code:

---

IsArray(Counter)

---

renvoi Vrai

si tu déclare

Code:

---

Counter as Variant

---

counter n'est pas un tableau puisque tu n'as pas de parenthèse
donc si tu ne trouve rien

Code:

---

IsArray(Counter)

---

renvoi False
Si tu trouve cela renvoi vrai

A confirmer tout de même :roll:

Merci Kovrax,

Je vais me pencher sur la question et essayer de comprendre par moi meme, c'est pas gagne...:aie:

Merci de ton aide,
johann