Discussion :

[AAS31]

Bonjour,

Je souhaite effectuer l’inverse du code suivant à savoir récupérer le contenue d’une cellule Excel pour alimenter un champ Access dans un formulaire a partir d'un bouton de commande.

Ci-après mon code qui fonctionne pour la procédure inverse.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Mise à jour FS.xls
'ouverture Fiche
Dim xls As Excel.Application
On Error GoTo errHnd
Set xls = CreateObject("Excel.Application")
xls.Workbooks.Open Filename:="M:\IC-Partage\FS.xls"
xls.Visible = True
'collage champs dans cellules FS
'descriptif
If xls.Range("C5").Value = "" Then
xls.Range("C5").Value = Me.descriptif
End If
ActiveWorkbook.Save
ActiveWorkbook.Close

Merci beaucoup.

[marot_r]

J'essayerai simplement cela

Code :

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

Me.descriptif = xls.Range("C5").Value

à la place de

Code :

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

xls.Range("C5").Value = Me.descriptif

A+