Discussion :

[claire9999]

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

Code :

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

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 :

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

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

[Marc-L]

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 …

[clementmarcotte]

Bonjour,

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 :

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

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 :

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

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.

[claire9999]

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