Discussion :

[Nako_lito]

Bonjour,

J'ai une appli ACCESS 2003 qui me permet d'ouvrir des fichiers excel 2003, vérifier si un champ existe, rajouter des données dedans, enregistrer et fermer.

Pour cela, j'ai créé un objet de type Excel.Application.

J'ai un problème sur la partie recherche du champs justement.

L'utilisateur a le choix de faire une recherche par SERVICE ou par LIBELLE_SERVICE

Le problème est que lorsque la recherche va s'effectuer avec la ligne de commande que j'ai actuellement,si je fais une recherche sur SERVICE il va prendre aussi bien SERVICE que LIBELLE_SERVICE, or je voudrais lui imposer la notion de "LookAt:=xlWhole" présente en Excel qui définit la recherche sur la cellule entiere.

Quelqu'un sait-il comment faire en ACCESS ?

[Godzestla]

Salut,

c'est possible de voir au moins la partie du code qui fait la recherche ?

[Nako_lito]

Oui,

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
Function ExisteService(Fic As String)
Dim XLS, c As Object
 
 
 
    ExisteService = False
 
    Set XLS = CreateObject("Excel.Application")
    XLS.Workbooks.Open Fic
 
    Set c = XLS.activeworkbook.activesheet.rows("1:1").Find(What:=recupLibelleRadioButton)
 
    If c Is Nothing Then
        ExisteService = False
    Else
        ExisteService = True
    End If
 
    XLS.activeworkbook.Close True
 
    Set c = Nothing
    Set d = Nothing
    Set XLS = Nothing
End Function

[User]

Salut,

En fait c'est la constante Excel.xlWhole que tu ne parviens par à transmettre à la fonction Find ?

Peux-tu préciser ?

A+

[Nako_lito]

Sur cette ligne de code

Code :

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

Set c = XLS.activeworkbook.activesheet.rows("1:1").Find(What:=recupLibelleRadioButton)

je ne peux pas rajouter le paramètre LookAt:=xlWhole

donc, quand je mets ca :

Code :

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

Set c = XLS.activeworkbook.activesheet.rows("1:1").Find(What:=recupLibelleRadioButton,LookAt:=xlWhole)

Ca ne fonctionne pas. Ca me met "Erreur compilation, expression attendue"

Pour info: "recupLibelleRadioButton" permet de récuperer le libellé du radio button qui a été selectionné sur le formulaire, ce qui correspond au nom du champs recherché dans la feuille Excel.

[User]

Salut,

Tu peux ajouter une référence à Excel dans ton projet et faire:

Code :

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

Set c = XLS.activeworkbook.activesheet.rows("1:1").Find(What:=recupLibelleRadioButton,LookAt:=Excel.xlWhole)

A+

[Nako_lito]

C'est bien ca,
merci bcp !!