Averell1976
XLDnaute Junior
Bonjour à toutes et à tous,
J'utilise depuis plusieurs mois un outil de gestion documentaire programmé en vba sur excel. Il permet entre autres via un petit moteur de recherche de chercher et consulter des documents (pdf ou autres) stockés dans une base de données, elle- même stockée sur le réseau de mon entreprise.
Vous trouverez ce fichier en PJ.
Tout marchait parfaitement bien mais depuis quelques jours, j'ai un message d'erreur (créé via du code, pas généré par excel) qui s'affiche.
En effet, l'idée est:
1) taper un mot (ou plusieurs) dans la barre de recherche puis cliquer sur le bouton "Recherche par mots clés": excel cherche alors tous les fichiers contenus dans la base de données et dont le titre contient ce(s) mot(s).
Comme vous le voyez dans le code ci- dessos, le code prévoit d'afficher un message d'erreur en cas de problème).
C'est ce message qui s'affiche dès lors que je lance une recherche... Je ne sais pas pourquoi.
J'ai essayé de faire fonctionner tout cela en local, en stockant la base de données sur le DD de mon PC et non plus sur le réseau (et donc en demandant au moteur de recherche de chercher en local et non plus sur le réseau): cela fonctionne parfaitement.... Je ne sais pas du tout pourquoi..... est- ce quelqu'un aurait une idée?
Merci beaucoup pour votre aide
J'utilise depuis plusieurs mois un outil de gestion documentaire programmé en vba sur excel. Il permet entre autres via un petit moteur de recherche de chercher et consulter des documents (pdf ou autres) stockés dans une base de données, elle- même stockée sur le réseau de mon entreprise.
Vous trouverez ce fichier en PJ.
Tout marchait parfaitement bien mais depuis quelques jours, j'ai un message d'erreur (créé via du code, pas généré par excel) qui s'affiche.
En effet, l'idée est:
1) taper un mot (ou plusieurs) dans la barre de recherche puis cliquer sur le bouton "Recherche par mots clés": excel cherche alors tous les fichiers contenus dans la base de données et dont le titre contient ce(s) mot(s).
Comme vous le voyez dans le code ci- dessos, le code prévoit d'afficher un message d'erreur en cas de problème).
C'est ce message qui s'affiche dès lors que je lance une recherche... Je ne sais pas pourquoi.
Code:
Private Sub Btn_Recherche_Click()
Dim iRetFonction As Integer
On Error GoTo Erreur
If Trim(txtb_ChaineCherchee.Text) = "" Then
MsgBox "Vous devez saisir une chaîne à rechercher...", vbInformation + vbOKOnly, "Application GDOC"
Else
iRetFonction = Recherche(txtb_ChaineCherchee.Text)
If iRetFonction = 0 Then GoTo Erreur
End If
Exit Sub
Erreur:
MsgBox "Problème de traitement. Relancez. Si l'erreur persiste, contactez l'Attaché de Direction (n° poste= 370)..", vbCritical + vbOKOnly, "Application GEDOC : Erreur"
End SubJ'ai essayé de faire fonctionner tout cela en local, en stockant la base de données sur le DD de mon PC et non plus sur le réseau (et donc en demandant au moteur de recherche de chercher en local et non plus sur le réseau): cela fonctionne parfaitement.... Je ne sais pas du tout pourquoi..... est- ce quelqu'un aurait une idée?
Merci beaucoup pour votre aide