Ouvrir et vérifier Fichier excel

[kevin hollande]

Bonjour,

Je cherche à ouvrir un fichier excel via une macro (avec la fonction getopenfilename) et à vérifier si c'est bien un fichier excel qui a été sélectionné (et non pas un fichier txt par ex) sinon créer une erreur.

Merci d'avance pour vos réponses

 

[Guest]

Re : Ouvrir et vérifier Fichier excel

bonjour Kevin et bienvenue sur le forum,

Un petit code basé sur l'exemple de l'aide d'excel.

Sub ouvrir()
    Dim fichierAOuvrir As Variant
    [COLOR="DarkOrange"]'Ne laisse qu'un filtre dans la liste des filtre de fichier[/COLOR]
    fichierAOuvrir = Application.GetOpenFilename("fichiers Excel (*.xls), *.xls")

    If fichierAOuvrir <> False Then
        MsgBox "Open " & fichierAOuvrir
    End If

End Sub

En espérant répondre à ton attente

 

[kevin hollande]

Re : Ouvrir et vérifier Fichier excel

Merci

ça marche impec