Dans un formulaire ACCESS, j'ai un champ texte "intitul=E9"
J'ouvre une feuille excel et je recherche la 1=E8re case=20
dans laquelle je retrouve la valeur de "intitul=E9".
J'ai =E9crit :
....
Do Until oApp.ActiveCell.FormulaR1C1 =3D me![intitul=E9]
....
mais il me semble qu'il y a un probl=E8me avec le "me!
[intitul=E9]". N'y a t'il pas des signes de ponctuation =E0=20
rajouter ou une formule de conversion ???
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Denis Michon
Bonjour Antoine,
Où est écrit ton code ? Module Access ou formulaire Acces, module Excel ?
dans cette ligne de code : oApp.ActiveCell
oApp = Une variable signifiant quoi : l'application Excel ... Le classeur... la feuille ?
Me est un mot qui s'utilise seulement dans un module de classe : Formulaire Excel ou Access, module feuille d'excel ...
Il est permis de publier plus d'une ligne de code !
Un exemple de code avec DAO pour rechercher dans une table Access des informations lorsqu'une des cellules d'une plage choisie de la feuille de calcul change.
'------------------------------------ Sub RechercherDataAccessPourExcel
Dim MyRange As Range Set MyRange = Range("A1:A25")
If Union(Target, MyRange).Address = MyRange.Address Then Dim db As Database Dim RstTrouve As Recordset Dim Chaine As String
Set db = OpenDatabase("C:Excelbd2.mdb") Set RstTrouve = db.OpenRecordset("Etudiant", dbOpenDynaset) RstTrouve.MoveLast RstTrouve.MoveFirst Chaine = Trim(Target.Value) Application.EnableEvents = False With RstTrouve .FindFirst "[NomEtudiant] = " & Chr(34) & Chaine & Chr(34) If .NoMatch = False Then Target.Offset(, 1) = RstTrouve(2) Target.Offset(, 2) = RstTrouve(3) Target.Offset(, 3) = RstTrouve(4) Target.Offset(, 3) = RstTrouve(5) End If End With Set db = Nothing Set RstTrouve = Nothing Application.EnableEvents = True End If
End sub '------------------------------------
Salutations!
"Antoine" a écrit dans le message de news:142301c387fa$b5fa0120$ Bonjour,
Dans un formulaire ACCESS, j'ai un champ texte "intitulé"
J'ouvre une feuille excel et je recherche la 1ère case dans laquelle je retrouve la valeur de "intitulé".
.... Do Until oApp.ActiveCell.FormulaR1C1 = me![intitulé] .... mais il me semble qu'il y a un problème avec le "me! [intitulé]". N'y a t'il pas des signes de ponctuation à rajouter ou une formule de conversion ???
Antoine
Bonjour Antoine,
Où est écrit ton code ? Module Access ou formulaire Acces, module Excel ?
dans cette ligne de code : oApp.ActiveCell
oApp = Une variable signifiant quoi : l'application Excel ... Le classeur... la feuille ?
Me est un mot qui s'utilise seulement dans un module de classe : Formulaire Excel ou Access, module feuille d'excel ...
Il est permis de publier plus d'une ligne de code !
Un exemple de code avec DAO pour rechercher dans une table Access des informations lorsqu'une des cellules d'une plage
choisie de la feuille de calcul change.
'------------------------------------
Sub RechercherDataAccessPourExcel
Dim MyRange As Range
Set MyRange = Range("A1:A25")
If Union(Target, MyRange).Address = MyRange.Address Then
Dim db As Database
Dim RstTrouve As Recordset
Dim Chaine As String
Set db = OpenDatabase("C:Excelbd2.mdb")
Set RstTrouve = db.OpenRecordset("Etudiant", dbOpenDynaset)
RstTrouve.MoveLast
RstTrouve.MoveFirst
Chaine = Trim(Target.Value)
Application.EnableEvents = False
With RstTrouve
.FindFirst "[NomEtudiant] = " & Chr(34) & Chaine & Chr(34)
If .NoMatch = False Then
Target.Offset(, 1) = RstTrouve(2)
Target.Offset(, 2) = RstTrouve(3)
Target.Offset(, 3) = RstTrouve(4)
Target.Offset(, 3) = RstTrouve(5)
End If
End With
Set db = Nothing
Set RstTrouve = Nothing
Application.EnableEvents = True
End If
End sub
'------------------------------------
Salutations!
"Antoine" <antoine.atlantique@wanadoo.fr> a écrit dans le message de news:142301c387fa$b5fa0120$a301280a@phx.gbl...
Bonjour,
Dans un formulaire ACCESS, j'ai un champ texte "intitulé"
J'ouvre une feuille excel et je recherche la 1ère case
dans laquelle je retrouve la valeur de "intitulé".
....
Do Until oApp.ActiveCell.FormulaR1C1 = me![intitulé]
....
mais il me semble qu'il y a un problème avec le "me!
[intitulé]". N'y a t'il pas des signes de ponctuation à
rajouter ou une formule de conversion ???
Où est écrit ton code ? Module Access ou formulaire Acces, module Excel ?
dans cette ligne de code : oApp.ActiveCell
oApp = Une variable signifiant quoi : l'application Excel ... Le classeur... la feuille ?
Me est un mot qui s'utilise seulement dans un module de classe : Formulaire Excel ou Access, module feuille d'excel ...
Il est permis de publier plus d'une ligne de code !
Un exemple de code avec DAO pour rechercher dans une table Access des informations lorsqu'une des cellules d'une plage choisie de la feuille de calcul change.
'------------------------------------ Sub RechercherDataAccessPourExcel
Dim MyRange As Range Set MyRange = Range("A1:A25")
If Union(Target, MyRange).Address = MyRange.Address Then Dim db As Database Dim RstTrouve As Recordset Dim Chaine As String
Set db = OpenDatabase("C:Excelbd2.mdb") Set RstTrouve = db.OpenRecordset("Etudiant", dbOpenDynaset) RstTrouve.MoveLast RstTrouve.MoveFirst Chaine = Trim(Target.Value) Application.EnableEvents = False With RstTrouve .FindFirst "[NomEtudiant] = " & Chr(34) & Chaine & Chr(34) If .NoMatch = False Then Target.Offset(, 1) = RstTrouve(2) Target.Offset(, 2) = RstTrouve(3) Target.Offset(, 3) = RstTrouve(4) Target.Offset(, 3) = RstTrouve(5) End If End With Set db = Nothing Set RstTrouve = Nothing Application.EnableEvents = True End If
End sub '------------------------------------
Salutations!
"Antoine" a écrit dans le message de news:142301c387fa$b5fa0120$ Bonjour,
Dans un formulaire ACCESS, j'ai un champ texte "intitulé"
J'ouvre une feuille excel et je recherche la 1ère case dans laquelle je retrouve la valeur de "intitulé".
.... Do Until oApp.ActiveCell.FormulaR1C1 = me![intitulé] .... mais il me semble qu'il y a un problème avec le "me! [intitulé]". N'y a t'il pas des signes de ponctuation à rajouter ou une formule de conversion ???
