XL 2019 extension de fichier dans l'explorateur

[Sheldor]

Bonjour à tous,
dans l'explorateur windows on peut ou non afficher les extensions des fichiers. J'ai fait le choix de ne pas les afficher.
J'utilise du code VBA pour manipuler des fichiers images mais quand je fournis des fichiers à d'autres utilisateurs qui affichent les extensions ça ne fonctionne pas.

ma question: est il possible par vba de savoir si windows affiche les extensions ou pas, a minima ça me permettrait de faire un message d'alerte ou mieux de faire un code qui puisse prendre en compte les deux possibilités

merci beaucoup

nico

 

[cp4]

Bonsoir,

Je ne pense que cela est dû aux paramètres de Windows.
teste le code ci-dessous, il faut adapter le nom du fichier dans le code. Il ouvrira tous les fichiers se trouvant dans le même dossier.

Option Explicit
Sub Boucle_Fichiers_Dossier()
'ouvrir à partir de ce fichier tous les fichiers excel se trouvant dans le même répertoire
    Dim Fichier As String, Chemin As String, Wb As Workbook
    Chemin = ThisWorkbook.Path
    Fichier = Dir(Chemin & "\*.xls*")
    'boucle pour ouvrir les fichiers excel uniquement
    Do
        If Fichier = "" Then Exit Do
        If Fichier <> "MonFichier.xlsm" Then ' adapter le nom du fichier maître
            Set Wb = Workbooks.Open(Chemin & "\" & Fichier)
            'suite de la procedure
            MsgBox Fichier & " est ouvert"
            Application.DisplayAlerts = False
            Wb.Close True
            Application.DisplayAlerts = True
            Set Wb = Nothing
        End If
        Fichier = Dir()
    Loop
End Sub

Edite ton code ici pour avoir une idée de ce qu'il fait exactement.

A+

 

[Sheldor]

Bonjour,
merci beaucoup je vais explorer ça
bon week end