Problème de code

[Guesh]

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 :

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 !

 

[MichelXld]

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

 

[Guesh]

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!

 

[pat1545.]

bonsoir Michel et le forum,

pour ouvrir tu mets dans workbook_open:

sheets('lafeuilledetonchoix').select

Bye

 

[MichelXld]

rebonsoir Guesh , bonsoir cher Patrick

tu peux essayer


Dim Wb As Workbook
'
'
'
Set Wb = Workbooks.Open(Chemin & Resultat)
Wb.Sheets('diagram').Activate




bonne soiree
MichelXld