• Initiateur de la discussion Initiateur de la discussion Guesh
  • Date de début Date de début

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 !

Guesh

XLDnaute Occasionnel
Bonjour le forum !!

Voila je souhaite ouvrir le fichier excel ayant dans son titre le plus grand nombre, et ceci dans un dossier situé à une adresse particulière.

Pour cela j'ai le code suivant :
Code:
Private Sub CommandButton1_Click()

Dim Chemin As String, Fichier As String, Resultat As String

Chemin = 'P:\\NFPP\\T\\NECE\\NECE PLAN DE CLASSEMENT\\NECE OL3\\EM3 DIESELS\\5-0 INGENIERIE\\EDG (5-0)\\EMPK ACTIONS TABLE (EM3 DIESELS-5-2)' 
Fichier = Dir(Chemin & '*.xls') 'filtre sur les fichiers .xls

Do While Len(Fichier) > 0 'boucle sur les fichiers du repertoire

If Val(Fichier) > Val(Resultat) Then Resultat = Fichier
Fichier = Dir()
Loop

Shell 'Explorer ' & Chemin & Resultat & '', 1


End Sub

Malheureusement losque je clique sur le bouton, seul le répertoire s'ouvre et pas le fichier excel dont le titre a le plus grand numero.

Que dois-je faire ??

sympa de m aider, merci ! 😛
 
bonjour

je presume que c'est la suite de ce fil de discussion

Lien supprimé

ça ne marche plus ou ça n'a jamais marché ? ...


tu as bien mis un antislash dans la variable Chemin , à la fin ?

Chemin = 'P:\\\\\\\\NFPP\\T\\\\\\\\NECE\\\\\\\\NECE PLAN DE CLASSEMENT\\\\\\\\NECE OL3\\\\\\\\EM3&nb sp;DIESELS\\\\\\\\5-0 INGENIERIE\\\\\\\\EDG (5-0)\\\\\\\\EMPK ACTIONS TABLE (EM3&nbs p;DIESELS-5-2)\\\\\\\\'


pourquoi utilises tu

Shell 'Explorer ' & Chemin & Resultat & '', 1

au lieu de

Workbooks.Open Chemin & Resultat



bonne soiree
MichelXld

Message édité par: michelxld, à: 18/04/2006 17:55
 
MichelXld écrit:
bonjour

je presume que c'est la suite de ce fil de discussion

Lien supprimé

ça ne marche plus ou ça n'a jamais marché ? ...


tu as bien mis un antislash dans la variable Chemin , à la fin ?

Chemin = 'P:\\\\\\\\NFPP\\T\\\\\\\\NECE\\\\\\\\NECE PLAN DE CLASSEMENT\\\\\\\\NECE OL3\\\\\\\\EM3&nb sp;DIESELS\\\\\\\\5-0 INGENIERIE\\\\\\\\EDG (5-0)\\\\\\\\EMPK ACTIONS TABLE (EM3&nbs p;DIESELS-5-2)\\\\\\\\'


pourquoi utilises tu

Shell 'Explorer ' & Chemin & Resultat & '', 1

au lieu de

Workbooks.Open Chemin & Resultat



bonne soiree
MichelXldMessage édité par: michelxld, à: 18/04/2006 17:55

merci Michel de repondre!
En effet j avais oublie le slash et la ca marche nickel !!

T es un chef Mechel!

Par contre derniere question comment je peux lui imposer de s'ouvrir sur l'onglet qui s appelle 'diagram' par exemple ?

encore merci!
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
169
Réponses
3
Affichages
665
Réponses
2
Affichages
511
Réponses
1
Affichages
580
Compte Supprimé 979
C
  • Question Question
Microsoft 365 Erreur de macro
Réponses
4
Affichages
742
Réponses
3
Affichages
582
Retour