Variable objet ou variable de bloc non définie avec GetOpenFileName

Salut,

Tout est dans le titre. La boite de dialogue s'ouvre bien, je sélectionne le fichier et l'erreur flashe quand je clique sur Ouvrir (ou sur Annuler d'ailleurs). Si vous avez la soution je prends.

Voilà mon code

Public Fichier_MTS As Workbook
Sub MiseEnPageMTS()

Set Outil = ThisWorkbook

'Sélection du fichier à mettre à jour
Fichier_MTS = Application.GetOpenFilename("Fichiers Excel (*.xlsm), *.xlsm")
If Fichier_MTS <> False Then Workbooks.Open Filename:=Fichier_MTS Else Exit Sub

Et tant qu'à abuser du forum, comment est ce que je pourrais limiter la liste des fichiers sélectionnables à ceux dont le nom se termine en " - MTS.xlsm " ? J'ai essayé

("Fichiers Excel (* - MTS.xlsm), * - MTS.xlsm")

mais çà supprime la présélection.

Merci d'avance.

Manu

bonjour

la fonction getopenfilename renvoie une réponse de type variant, modifie ton instruction

Public Fichier_MTS As Workbook

ainsi

Public Fichier_MTS

pour les filtres dans getopenfilename, cela ne fonctionne que pour l'extension

Merci de la réponse, je testerai à l'occasion.

Désolé du délai, je suis parti sur un autre projet et celui là est passé au second plan.

Manu