Option Compare Database
 
 
Function ExportRabih() As Integer
 
 
Dim NomFic As String
 
Dim Db As DAO.Database
Dim fldId_Personne As DAO.Field
Dim fldPrenom As DAO.Field
 
 
Dim appExcel As Object
Dim Xlwb As Object
 
Dim rs As DAO.Recordset
Dim deb As Integer
Dim ws As Object
 
 
MsgBox "Bonjour"
Set appExcel = CreateObject("Excel.Application" )
appExcel.Visible = True
Set Xlwb = appExcel.Workbooks.Open("C:\Users\rmahfouz\Desktop\Classeur1.xlsx" )
Set ws = Xlwb.Sheets(1)
MsgBox ws.Cells(1, 1)
Set Db = CurrentDb
Set rs = Db.OpenRecordset("tbl_personnes", dbOpenTable)
 
 
deb = 1
 
Do While Len(ws.Range("A" & r).Formula) > 0
 
With rs
.AddNew
MsgBox ws.Cells(1, deb)
.Fields("Prenom" ) = ws.Cells(1, deb)
.Update
End With
deb = deb + 1
Loop
 
 
 
 
rs.Close
Set rs = Nothing
Db.Close
Set Db = Nothing
ExportRabih = 1
End Function
[quote]

D'où vient le r dans "A" & r ? C'est problablement un numéro de ligne (row), mais il faudrait lui donner une valeur, par exemple r = 1

 
Je plussoie : Range("A0" ) va te retourner une erreur, c'est sûr. Il faut absolument que ta variable "r" soit initialisée sous peine de plantage. Mais j'ai l'impression que c'est une coquille, c'était pas "deb" que tu voulais mettre à la place de "r" ?

Bonjour,
C'était just eune coquille mais là j'ai un autre souci,
Je te renvoie mon code :

 
Il m'affiche l'erreur de compilation suivante :  
 
Erreur d'exécution '1004'
La méthode 'Range' de l'objet '_Global' a échoué.
 
Je t eremercie d'avance

Ce programme tourne du côté d'Access, qui ne connait pas Range.
La solution est

Apparemment ça marche pas, y'a toujours une erreur.
Merci quand même.
Si t'as une autre idée, n'hésites pas à m'écrire.
Merci d'avance

mais sans le message d'erreur dont j'ai cité la dessus

Une autre idée :

Le nom de la colonne d'excel que je souhaite exporter est A. Le nom du champ de ma table créée sous Access 'tbl_personnes' est Prenom.
Le nom du champ et celui de la colonne devraient t'ils obligatoirement être les mêmes?
Merci

Le nom du champ Access n'a pas de rapport avec le nom de la colonne Excel. le lien se fait avec le signe égal.

C'est pas parceque je lu' pas spécifié la table dans laquelle se trouve le champ Prenom?

Tu l'as spécifié là : Set rs = Db.OpenRecordset("tbl_personnes", dbOpenTable)  
Donc normalement il devrait le savoir.

Le nom de la table est connu grâce à la déclaraction de rs (recordset).

Ah oui c'est vrai ;-).
Je suis con.lol.
La solution alors?
j'ai trop cherché sur internet et partout ils mettent la même chose

Le message d'erreur ne concernait pas rs.Fields mais concernait Range, qu'il fallait préfixer, c'est certain. Je pensais à le préfixer par ws, mais si ça ne marche pas, alors, il vaut mieux peut-être abandonné Range et utiliser Cells qui devrait marcher et revenir au même. Donc

Même avec ça y'a toujours une erreur je ne comprends toujours pas.
Peut etre que sous Microsoft Visual basic, faut activer une librairie ds Outils --> Références???

Non, ça m'étonnerait.
 
Déjà, que te retourne ton "MsgBox ws.Cells(1, 1) " ? S'il te retourne bien la valeur que tu veux, alors il faut définitivement utiliser "ws.Cells(1, 1).value" dans la deuxième partie de ton instruction "rs.Fields("Prenom" ).Value = ws.Cells(1, 1).value", tu sauras que c'est bon et que le problème ne vient pas de là.
 
Pour moi, c'est la première partie de ton instruction qui merde (ton "Erreur d'exécution '1004' La méthode 'Range' de l'objet '_Global' a échoué." a dû être résolu par l'ajout du "ws" devant). Tu devrais peut-être essayer avec "rs![Prenom] = ws.Cells(1, 1).value" (et c'est bien "Prenom" et pas "Prénom" dans ta table ?)
Sinon, il ne veut peut-être pas créer de nouvel enregistrement si tu ne peuples pas le champ correspondant à ta clé primaire dans ta table "tbl_personnes", et ça m'étonnerait que tu utilises le champ "Prénom" comme clé (ou alors tu t'exposes à de gros problèmes plus tard !   )
 
Voila quelques idées à tester/creuser.