Application.GetOpenFilename qui ne retourne pas un tableau

Bonjour à tous,

Je viens solliciter votre aide concernant la fonction Application.GetOpenFilename.

Alors voici mon code:

Sub Merge_Clic()
On Error Resume Next
 ' Affichage de la boîte de dialogue standard "Ouvrir" pour sélection de(s) fichier (s)
 Filetable = Application.GetOpenFilename(FileFilter:="Excel Files (*.xlsm*), *.xlsm*", Title:="Selection of files to merge", MultiSelect:=True)

 If IsArray(Filetable) Then
    MsgBox ("Okkkkkkkkkkkk")
 End If

End Sub

Le souci est que Application.GetOpenFilename ne retourne jamais un tableau alors que j'ai autorisé la sélection multiple.

J'utilise Excel 2007 avec comme format de fichier .xslm. Je précise ça car je pense que le problème doit venir de la car avec comme format de fichier .xls, la fonction marche correctement.

Merci d'avance de votre aide.

Saliou.

Bonjour,

Bien sur qu'elle renvoie un tableau :

remplace ton MsgBox par

MsgBox Filetable(1) & " " & Filetable(2)

et tu verras que "ça marche parfaitement.

A+

Bonjour,

Ton code fonctionne parfaitement sur Excel2007.

Suggestion, enlève le On Error Resume Next.

A+

Bonjour à tous,

Merci pour vos réponses.

C'est vrai que le code fonctionne car sur un nouveau fichier( vierge), ça marche donc je pense qu'il doit y'avoir des problèmes sur mon fichier.

Bonne journée à tous.