problème de chemin de fichier

Bonjours,

en VB6
Je suis confronté à un petit problème de chemin de fichier,
Peut-on donner un chemin comme celui-ci:
P:\08-362 Transcontinental-Transmag Anjou\
en donnant seulement dans un textbox que les 6 premiers caractères.

merçi

Gnain!

Ta question n'est pas très claire, peux-tu donner plus de détails stp !

---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #    [ Lien ]

Je veux ouvrir le fichier toto.xls qui se trouvedans
P:\08-362 Transcontinental-Transmag Anjou\
donc

Private Sub Command1_Click()
'Déclaration des variables
    Dim appExcel As Excel.Application 'Application Excel
    Dim wbExcel As Excel.Workbook 'Classeur Excel
    Dim wsExcel As Excel.Worksheet 'Feuille Excel
 
'Ouverture de l'application
    Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
    Set wbExcel = appExcel.Workbooks.Open("P:\08-362 Transcontinental-Transmag Anjou\toto.xls")
   
'wsExcel correspond à la première feuille du fichier
    Set wsExcel = wbExcel.Worksheets(1)
   
    appExcel.Visible = True
End Sub

Ce que je voudrais faire est de remplacer
("P:\08-362 Transcontinental-Transmag Anjou\toto.xls")
par
("P:\" & textbox1 & "\toto.xls"
en écrivant seulement 08-362 dans le textbox1 car j'ai une multitude de dossier

exemple:
P:\08-362 Transcontinental-Transmag Anjou\toto.xls
P:\08-363 bla bla bla\toto.xls
P:\08-364 blo blo blo\toto.xls
P:\08-365 tatata\toto.xls
P:\08-366 tututu\toto.xls
...
je veux seulement écrire les 6 premiers caractères dans mon textbox
merçi!
Gnain!

Bonjour (et un salut à Casy)

Pas très clair, en effet !
Je suppose que ton fichier est dans un répertoire que tu connais :

  repertoire = "c:\tonrépertoire"
  tes6caractères = "abcdef"
  toto = Dir(repertoire & "\" & tes6caractères & "*"
  MsgBox toto

Croisé avec toa réponse ...
Utilise Replace puis Rename !

Gnain!

Je ne connais pas le répertoire au complet

mais je veux ouvrir toto.xls en tapant seulement les 6 premiers caractères du répertoire
dans mon textbox

ex:
si toto.xls est dans
P:\08-362 Transcontinental-Transmag Anjou\toto.xls
je veux seulement taper 08-362 dans mon textbox

si toto.xls est dans
P:\08-363 tatata\toto.xls
je veux seulement taper 08-363 dans mon textbox

Gnain!

T'enerves pas,

ils sont la pour t'aider :

1.  tu récuperes le contenu de ta textbox dnas une variable
   ex : monraccourci = lacontenudelatextbox
2. Tu parcours les repertoires de ton disque P, avec les instructions disponibles dans le domaine Files

inspires toi de ça : http://support.microsoft.com/kb/185476/fr

3. tu effectues en meme temps une comparaison avec l'instruction Instr, mode d'utilisation : [ Lien ], et tu ouvres le fichier...

L'algo est simple, le reste devrait venir tout seul, vu ton code

Bonne chance


_____________________
No problems, only soluces

Bonjour GNAIN,

je pense que dans ton cas le plus simple est d'utiliser une ComboBox a la place d'une TextBox, car si je me souviens bien quand on tape du texte dans la ligne du haut le curseur se place automatiquement sur la premiere occurence de ce texte dans la liste (ce qui correspond a ton probleme). Donc il te suffit de balayer ton repertoire racine et d'ajouter (method ADDITEM)  a ta ComboBox les sous-repertoires que tu trouves; ainsi tu peux acceder facilement au nom complet de ces repertoires en tapant seulement les premiers caracteres.

PS: il est possible qu'il faille parametrer le controle (ComboBox) d'une certaine facon pour obtenir le resultat; je te conseille donc de faire un essai sur une liste limitee pour trouver les bons parametres, avant d'ecrire ton code pour ton application