Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Ouvrir et vérifier Fichier excel

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

kevin hollande

XLDnaute Nouveau
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
 
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.

Code:
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
 
Notre forum d’entraide est 100 % gratuit et le restera.
Aucune formation payante, aucun fichier à acheter, rien à vendre. Mais comme tout site, nous devons couvrir nos frais pour continuer à vous accompagner.
Soutenez-nous en souscrivant à un compte membre : c’est rapide, vous choisissez simplement votre niveau de soutien et le tour est joué.

Je soutiens la communauté et j’accède à mon compte membre

Discussions similaires

Réponses
6
Affichages
459
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…