Discussion :

[Neuromancien2]

Bonjour,

Je ne comprends pas comment utiliser la fonction Application.GetOpenFilename. J'ai le code suivant :

Code :

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

1
2
3
4
5
6
7
Dim FilesArray As Variant
 
FilesArray = Application.GetOpenFilename("Fichiers MS Word (*.doc),*.doc,Tous fichiers (*.*),*.*", , "Sélection des fichiers", , True)
If FilesArray = False Then
        MsgBox "Aucun fichier sélectionné.", vbExclamation + vbOKOnly, "Sélection des fichiers"
        Exit Sub
End If

Quand je sélectionne un fichier, j'obtiens l'erreur "Incompatibilité de type".

[Solkien]

Tu peux faire de cette manière là :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    Dim FilesArray As Variant
 
    FilesArray = Application.GetOpenFilename("Tous fichiers (*.*),*.*", , "Sélection des fichiers", , True)
    If TypeName(FilesArray) = "Boolean" Then
        If FilesArray = False Then
                MsgBox "Aucun fichier sélectionné.", vbExclamation + vbOKOnly, "Sélection des fichiers"
                Exit Sub
        End If
    End If

[ouskel'n'or]

Nettement inspiré de la solution de Solkien...

Code :

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

1
2
3
4
5
6
    Dim FilesArray As Variant
    FilesArray = Application.GetOpenFilename("Tous fichiers (*.*),*.*", , "Sélection des fichiers", , True)
    If Not IIf(TypeName(FilesArray) = "Boolean", True, False) Then
                MsgBox "Aucun fichier sélectionné.", vbExclamation + vbOKOnly, "Sélection des fichiers"
                Exit Sub
    End If

Juste pour dire à "iif" qu'on l'aime bien qu'on ne pense jamais à lui

NB - Mais ça revient au même...

[Neuromancien2]

Merci.