objet : probleme pour attribuer le nom a un objet

bonjour,
j ai un souci dans mon programme qui est que je veux attribuer un fichier excel a un objet, mon code est le suivant

Code:

---

Set monclasseurb = GetObject(Stock_var.chemin_nom.Text + "\" + nomAffaire + "-m*" + ".xls")

---

dans le repertoire dans le lequel je vais cherché mon fichier l indice aprés la lette "m" peut changé, par conséquent je voudrais ,ne connaissant pas la derniere version du fichier, pouvoir prendre celui qui se trouve dans le repertoire et ainsi m occuper de la derniere version du fichier.

ps: j ai mis "*" aprés le "m" comme sa pour exemple car je ne sais pas vraiment comment je peux faire pour que celui ci ne se préoccupe pas du numéro qui se trouve derriére le "m" mais qui le selectionne quand meme

salut,

Y'a p-e moyen de faire autrement, mais en tout état de cause je ferais personnellement une boucle for each file in myFso ( dim myFso as filesystemobject) et je récupérerais celle dont le nom concorde avec ton m*

a+

dans ta solution mon visual basic 5 ne reconnait pas le type filesystemobject

il faut ajouter la référence à "Microsoft Scripting runtime"

pour le myFso, faut il l initialiser avec le repertoire dans lequel on cherche le fichier, si oui comment, j ai essayé plusieurs maniéres sans succés.
et pour l instruction for each file in myFso il me demande un objet pour file, pourquoi et lequel ?

un exemple : http://vb.developpez.com/faq/?page=Fichiers#rep_sousrep

sinon pou utiliser le FSO :
http://vb.developpez.com/faqvbs/?page=II.2

c'est du VBScript, mais facilement adaptable en VB6

excusez mon incompréhension pour certaine chose mais je ne sais pas si ce qu'il y a dans l exemple, des FAQ VBScript est obligatoire, "Scripting.FileSystemObject" qui est présent dans chaque exemple de FSO pour faire fonctionner ce type

avec un tout petit peu de réflexion, tu aurais compris que

Code:

---

Set FSO = CreateObject("Scripting.FileSystemObject")

---

en VBScript
est la même chose que

Code:

---

1 2	Dim fso As FileSystemObject Set fso = New FileSystemObject

---

en VB6

encore que la syntaxe VBS peut être utiliser aussi en VB6

Fais donc qques essais !
:roll:

dans la FAQ le repertoire nommé stRep est de quel type ??

dans mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim Fso As FileSystemObject Dim oFl As FileSystemObject Set Fso = New FileSystemObject Set oFl = New FileSystemObject strep = "C:\Transporteurs\lancement\nomenclatures" testaffaire = False For Each oFl In Fso.GetFolder(strep).Files If oFl Like Stock_var.chemin_nom.Text + "\" + nomAffaire + "-m*.xls" Then testaffaire = True End If Next

---

il me dit type incompatible pour

Code:

---

For Each oFl In Fso.GetFolder(strep).Files

---

pourquoi ?

je pense que of1 doit être déclaré AS FILE et non AS FILESYSTEMOBJECT

merci sa fonctionne, mais bon j ai encore d otre chose a faire avan de mettre resolu