Bonjour,
Je souhaiterais si possible activer l'option de windows d'afficher les extensions des fichiers, en VBA.
Merci pour vos réponses.
Bonjour,
Je souhaiterais si possible activer l'option de windows d'afficher les extensions des fichiers, en VBA.
Merci pour vos réponses.
Tu peux développer ? Naturellement, quand tu listes les fichiers, l'extension s'y trouve, sauf si tu demandes qu'elle n'y soit pas...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Sub ConnaîtreLextension() Dim LeFich As Variant Dim CL As Workbook With Application.FileSearch .NewSearch .LookIn = "D:\xls\" .Execute For Each LeFich In .FoundFiles MsgBox Right(LeFich, 4) Next End With End Sub
Salut,
normalement ça devrait marcher, sinon tu devrais pouvoir retrouver la clé avec son nom
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", _ "HideFileExt") = "0" '="0" pour afficher '="1" pour masquer
Voila, actuellement tous mes fichiers ne s'affiche pas avec l'extension (xls,ppt,doc...).Hors lorsque je veux ouvrir un fichier je me base sur son extension, pour l'ouvrir avec le bon programme.
Et je ne peux pas laisser l'option cocher dans windows car d'autres logiciels me demande de l'enlever.
Merci speedrman ca marche parfait
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager