Utilisation du résultat de la commande "Application.GetOpenFilename"

Bonjour Tout le monde,
je sollicite votre aide à propos d'une fonction pour ma macro
en premier lieu j'utilise cette commande

Code:

---

1 2	B=Application.GetOpenFilename("AllFile(*.*),*.*", MultiSelect = True)

---

afin d'ouvrir n'importe quel type de fichier
après sélection j'intègre une boucle genre:

Code:

---

1 2 3

If B like "*.txt" then ...

---

mais le problème est dans la déclaration des variables,
serait il possible d'utiliser le fichier sélectionné par la fonction "GetOpenFilename" pour l'intégrer ensuite dans une boucle
Merci de votre aide

Bonjour,

en lisant l'aide de cette méthode, si son paramètre MultiSelect est activé une variable tableau est renvoyée
contenant les fichiers sélectionnés ou False en cas d'abandon : donc par déduction variable à déclarer en type Variant !

Utiliser par exemple l'instruction For Each … Next pour parcourir la liste …

Bonjour,

Citation:

---

Envoyé par claire9999

Bonjour Tout le monde,

afin d'ouvrir n'importe quel type de fichier
Merci de votre aide

---

Je m'étais attardé à cette partie de la question et je n'avais pas trop fait attention à l'idée de la boucle. Entre temps, Marc-L a répondu à la question de la boucle, et je me permets de compléter, pour le bénéfice de tous ceux que la question pourrait intéresser.

L'idée d'ouvrir n'importe quel type de fichier à partir de VBA, est un peu liée à la compatibilité du fichier avec Excel. Par exemple, un fichier texte peut être ouvert par Excel de la même manière qu'un classeur Excel classique:

Code:

---

1 2 3 4 5 6 7

Sub testavecbexcel() filetoopen = Application _ .GetOpenFilename("Text Files (*.txt), *.txt") If filetoopen <> False Then Workbooks.Open (filetoopen) End If End Sub

---

Ou bien, on peut utiliser VBA pour ouvrir le même fichier texte avec le bloc-notes; et cette méthode peut être utilisée avec les changements qui s'imposent avec les fichiers incompatibles avec Excel.

Code:

---

1 2 3 4 5 6 7 8 9

Sub testavecblocnotes() Dim ligne As String filetoopen = Application _ .GetOpenFilename("Text Files (*.txt), *.txt") If filetoopen <> False Then ligne = "Notepad.exe " & filetoopen Shell (ligne) End If End Sub

---

Et là, je viens de "rentabiliser" le temps que j'ai pris à faire ces macros.

Bonjour clementmarcotte, Marc-L, le forum
Merci pour votre aide.