Ouverture fichier xlsx ?

Bonsoir, je reviens sur un soucis que j'ai eu il y a peu de temps avec une macro (voir ci-dessous)

Ce fichier ouvre un autre fichier excel mais dès que c'est un fichier XLSX, il m'affiche le message d'erreur : Veuillez choisir le fichier nommé (Liste...xls...)

Avez-vous une idée ? merci

Function OuvreFichier() As String
 With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = ThisWorkbook.Path & "\"
    .Title = "Choisir un fichier exemple"
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "Fichiers", "*.xls,*.xlsx,*.xlsm"
    If .Show = True Then
        OuvreFichier = .SelectedItems(1)
        If (InStr(OuvreFichier, "\Liste") = 0) Or (InStr(OuvreFichier, ".xls") = 0) Then
                OuvreFichier = ""
                MsgBox "Veuillez choisir le fichier nommé (Liste...xls...) ", vbCritical
        Else
                Workbooks.Open .SelectedItems(1)
        End If
    End If
  End With
End Function

Bonjour,

Pour toi, que signifie cette ligne de code :

If (InStr(OuvreFichier, "\Liste") = 0) Or (InStr(OuvreFichier, ".xls") = 0) Then

Qu'il ouvre un fichier nommé "Liste" et en xls.

J'ai enlevé ça

 If (InStr(OuvreFichier, "\Liste") = 0)

Ca semble fonctionner, merci.

Bonjour,

A ta place, j'aurais remplacé :

    If .Show = True Then
        OuvreFichier = .SelectedItems(1)
        If (InStr(OuvreFichier, "\Liste") = 0) Or (InStr(OuvreFichier, ".xls") = 0) Then
                OuvreFichier = ""
                MsgBox "Veuillez choisir le fichier nommé (Liste...xls...) ", vbCritical
        Else
                Workbooks.Open .SelectedItems(1)
        End If
    End If

par :

    If .Show = True Then
        OuvreFichier = .SelectedItems(1)
        If OuvreFichier = "" Or (InStr(OuvreFichier, ".xls") = 0) Then
            MsgBox "Veuillez sélectionner un fichier.", vbCritical
        Else
            Workbooks.Open OuvreFichier
        End If
    End If

Merci j'essaye dès que possible.