Discussion :

[maroinoide]

salut tout le monde
bon voila le mon probleme j'ai crée une procedure qui doit chercher si un document( c'est à dire un fichier) se trouve sur une base de donné et affiché un userform qui contient les info relatives a ce fichier
voila le code :

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
27
28
29
Sub Bouton3_QuandClic()
Dim texte As String
Dim compteur As Integer
texte = InputBox("donnez le nom exact du document")
Sheets("documents").Activate
compteur = 2
 While compteur <= Range("k1").Value ' ki contient le nombre de fichier que j'ai
 
If texte = Cells(compteur, 1).Value Then
  recherche.nom.Caption = Cells(compteur, 1).Value
  recherche.version.Caption = Cells(compteur, 2).Value
recherche.typ.Caption = Cells(compteur, 3).Value
recherche.reference.Caption = Cells(compteur, 4).Value
'Cells(compteur, 5).Value = da_te.caption
recherche.support.Caption = Cells(compteur, 6).Value
recherche.lieu.Caption = Cells(compteur, 7).Value
recherche.periode.Caption = Cells(compteur, 8).Value
recherche.methode.Caption = Cells(compteur, 9).Value
 
Load recherche
recherche.Show
compteur = compteur + 1
 
Else
MsgBox ("desolé ce document n'exsite pas verifier l'aurthographe")
Exit Sub
End If
Wend
End Sub

le probleme c'est que ca marche seulement avec le 1er document quand j'introduit le nom d'un autre fichier c'est le msgbox qui me sort je sais pas quoi faire snif snif je mets fichier en piece jointe svp aider moi snif snif

[le petit nicolas]

ben je dirais que c'est ta boucle de recherche qui est mal fichue = ca compare seulement pour compteur = 2. Si ca trouve c'est là que ca boucle. Si ca ne trouve pas ca te fait exit

il faudrait plutot que le exit soit fait APRES la boucle, SI rien n'a été trouvé durant toute cette boucle

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
27
28
29
30
31
32
33
34
Sub Bouton3_QuandClic()
Dim texte As String
Dim compteur As Integer
Dim FlagTrouve as boolean
texte = InputBox("donnez le nom exact du document")
Sheets("documents").Activate
compteur = 2
FlagTrouve = False
 
While (compteur <= Range("k1").Value and FlagTrouve = false)
 ' tant que boucle pas totale ET fichier pas trouve
If texte = Cells(compteur, 1).Value Then
   FlagTrouve = True 'ben on a trouve
   recherche.version.Caption = Cells(compteur, 2).Value
   recherche.typ.Caption = Cells(compteur, 3).Value
   recherche.reference.Caption = Cells(compteur, 4).Value
   'Cells(compteur, 5).Value = da_te.caption
   recherche.support.Caption = Cells(compteur, 6).Value
   recherche.lieu.Caption = Cells(compteur, 7).Value
   recherche.periode.Caption = Cells(compteur, 8).Value
   recherche.methode.Caption = Cells(compteur, 9).Value
   Load recherche
   recherche.Show
 
else
   compteur = compteur + 1
End If
wend
 
if FlagTrouve = false
   MsgBox ("desolé ce document n'exsite pas verifier l'aurthographe")
end if
 
End Sub

[maroinoide]

Merci tu es mon sauveur
je viens de l'essayer et ca marche très très bien

[maroinoide]

bonjour
avec les correction de Nicholas que je remercie encore une fois ma petite application marche tres tres bien mais j'ai un petit souci c'est qu'il faut introduire tout le nom du document
ce que je souhaite c'est faire une recherche par mot clé les resultats seront emmagasinés dans une comboboxe par exemple et aprés quand je clic sur le document que je cherche un autre userfomrs qui contient les infos sur le documents (j'ai nomé le usrforms recherche) doit apparaitre
si quelqu'un peut maider svp ou bien retravaillé tout mon code j'en serai tres reconnaissant
merci d'avance

[Qwazerty]

Salut
Tu peux essayer avec le mot clef like au lieu de "="
Pour plus d'info F1 sur Like

Code :

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

If Cells(compteur, 1).Value Like texte Then

A++
Qwaz

[maroinoide]

désolé mais ca ne résout pas le probleme je veux par exemple quand je tape 'maitrise' tous les documents qui contiennent ce mot s'afficheront sur un userform1 et moi je choisis celui que je cherche

[Qwazerty]

Salut
Comme je te l'ai dis avec sur Like tu aurais eu comme info, que like, contrairement a "=" accepte les caractères spéciaux, a savoir *, ? ....

donc si tu recherches nom d'un fichier Like *Maitrise*, tu obtiendras bien les noms de fichiers ayant le mot "Maitrise" en leur sein.
A++
Qwaz