Discussion :

[Jsiorat]

Bonjour à toutes et tous,

la fonction Instr() retourne une valeur numérique.
J'aimerai que la fonction me retourne une valeur string

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
test = InStr(1, strNomFile, strMotCle, vbTextCompare)

comment faire pour obtenir : strValeur = test
merci pour réponses

[tee_grandbois]

bonsoir,

comment faire pour obtenir : strValeur = test

rien n'empêche de récupérer une valeur numérique dans une variable de type string, c'est le contraire qui n'est pas possible si ce sont des caractères non numériques.
Tu peux tout simplement écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

strValeur = InStr(1, strNomFile, strMotCle, vbTextCompare)

[Jsiorat]

bonsoir,

rien n'empêche de récupérer une valeur numérique dans une variable de type string, c'est le contraire qui n'est pas possible si ce sont des caractères non numériques.
Tu peux tout simplement écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

strValeur = InStr(1, strNomFile, strMotCle, vbTextCompare)

Merci pour ta réponse, et désolé, mais le problème persiste !

La valeur retournée est la position de la 1ère lettre de strMotCle dans la chaine de caractères strNomFile. (MsgBox strValeur)
J'ai besoin du nom complet.
Est-ce qu'il faut énuméré le mot clé lettre par lettre et le confronter à partir de la position retournée ?

[madefemere]

Bonjour,

Le besoin n'est pas clair.
Qu'est-ce que tu entends par :

J'ai besoin du nom complet.

Cordialement.

[Thierry_PALLIER]

Bonjour le forum.

Si tu obtiens le début de la chaine voulue, il faut utiliser ensuite la fonction Mid.

si j'ai compris ta question:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
test = InStr(1, strNomFile, strMotCle, vbTextCompare)
strValeur = Mid(strNomFile, test)
 
'en 1 ligne
strValeur = Mid(strNomFile, InStr(1, strNomFile, strMotCle, vbTextCompare))

Cdlt

[james68]

Bonjour le forum.

Si tu obtiens le début de la chaine voulue, il faut utiliser ensuite la fonction Mid.

si j'ai compris ta question:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
test = InStr(1, strNomFile, strMotCle, vbTextCompare)
strValeur = Mid(strNomFile, test)
 
'en 1 ligne
strValeur = Mid(strNomFile, InStr(1, strNomFile, strMotCle, vbTextCompare))

Cdlt

je peaufinerais un peu avec ce code ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

strvaleur = Mid(strNomFile, InStr(1, strNomFile, strMotCle, vbTextCompare), Len(strMotCle))

[james68]

Juste au dessus dans mon complément...

[Jsiorat]

je peaufinerais un peu avec ce code ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

strvaleur = Mid(strNomFile, InStr(1, strNomFile, strMotCle, vbTextCompare), Len(strMotCle))

Merci à James68 et Thierry

Ca fonctionne !
Vous m'avez bien aidé !

[james68]

De rien c'est avec plaisir....
Clic sur Résolu.... please... thanks

[Jsiorat]

De rien c'est avec plaisir....

Bonjour James68,

je reviens vers toi pour cette ligne de code que tu m'as donné

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

strValeur = Mid(strNomFile, InStr(1, strNomFile, strMotCle, vbTextCompare), Len(strMotCle))

et qui a fonctionné une fois.

Cette ligne me retourne, maintenant une erreur "5" ! "Argument ou appel de procédure incorrect".
Est-ce que se serait une référence manquante ?

Celles qui sont activées :
- Visual Basic pour applications
- Microsoft Access 15.0 Object Library
- OLE Automation
- Microsoft Office 15.0 Access Database
- Microsoft Scripting Runtime
- Microsoft Office 15.0 Object Library

Merci pour ton aide.

[james68]

non je ne pense pas...
perso suis sous ACC2000 avec uniquement ces reference de loadé et ca fonctionne tres bien.


tu dois avoir un Pb ailleurs dans ton code ...
En mode pas à pas ca fonctionne ??... Apres recompilation du projet ??
++
et bon WE

[tee_grandbois]

tu dois avoir un Pb ailleurs dans ton code ...
En mode pas à pas ca fonctionne ??... Apres recompilation du projet ??

bonjour,
également, pourrait-on voir le contenu des variables: strNomFile et strMotCle

[Jsiorat]

bonjour,
également, pourrait-on voir le contenu des variables: strNomFile et strMotCle

Bonjour, et merci pour la réponse ;

un exemple :
- strNonFile = "Exemples de code WLangage.docx"
- strMotCle = "code"

Avec ce mot clé, je voudrais rechercher tous les noms de fichiers sur un disque dur externe dont le mot clé est inclus dans le nom.

Une GED perso sur mon ordinateur !

[Jsiorat]

non je ne pense pas...
perso suis sous ACC2000 avec uniquement ces reference de loadé et ca fonctionne tres bien.

tu dois avoir un Pb ailleurs dans ton code ...
En mode pas à pas ca fonctionne ??... Apres recompilation du projet ??
++
et bon WE

Au cas ou, vois ma sub :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 Private Sub btnSearch_Click()
Dim strMotCle As String
Dim strNomFile As String
Dim strValeur As Variant
 
Dim db As Database
Dim rst As DAO.Recordset
 
    strNomFile = Me.FName
    strMotCle = Me.Texte28
 
Set db = CurrentDb
Set rst = db.OpenRecordset("tblFiles", DB_OPEN_SNAPSHOT)
 
Do Until rst.EOF
' ici le traitement
    If strValeur = Mid(strNomFile, InStr(1, strNomFile, strMotCle, 1), Len(strMotCle)) Then
        Debug.Print strNomFile
    End If
 
    rst.MoveNext
Loop
rst.Close
Set rst = Nothing
 
End Sub

[Thierry_PALLIER]

@james68 , dans ton premier message : Mid(……,...,Len(strMotCle)) , dans ce cas ton 3° argument ne sert à rien.
Si tu l'omets ,il prendra la chaine jusqu'à la fin.
Len(strMotCle) te donnes le nombre de lettre de ton mot clé, donc le résultat final redonnera … le mot clé !

Cdlt

[tee_grandbois]

bonsoir,
pourquoi parcourir un RecordSet alors qu'il n'est pas utilisé ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
...
strNomFile = Me.FName
strMotCle = Me.Texte28
...
Do Until rst.EOF
' ici le traitement
    If strValeur = Mid(strNomFile, InStr(1, strNomFile, strMotCle, 1), Len(strMotCle)) Then
        Debug.Print strNomFile
    End If
...

si on se réfère à ton exemple :

- strNomFile = "Exemples de code WLangage.docx"
- strMotCle = "code"

Avec ce mot clé, je voudrais rechercher tous les noms de fichiers sur un disque dur externe dont le mot clé est inclus dans le nom.

et que tu parcours la table tblFiles via le RecordSet, je pense que le code devrait être:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
...
Do Until rst.EOF
    If InStr(1, rst.NomduChamp, strMotCle) > 0 Then strValeur = rst.NomduChamp
    rst.MoveNext
Loop