Bonjour,
Ca fait une heure que j'ai mal au crâne à cause de ce problème. Je
m'explique :
Je souhaiterai aller chercher des données dans une feuille d'un classeur
excel pour les insérer dans une table de ma base.
Voici une partie du code :
Dim XL_App As Object
Set XL_App = CreateObject("Excel.Application")
Dim XL_Classeur As Object
Dim XL_Feuille As Object
With XL_App
Set XL_Classeur = .Workbooks.Open(SelectedFile)
Set XL_Feuille = XL_Classeur.Sheets("feuil1")
With XL_Feuille
'on ouvre la table donnees
Dim Db As Database
Dim Rs As Recordset
Set Db = CurrentDb
Set Rs = Db.OpenRecordset("donnees") ///// là ça
plante !!!!!!
Rs.AddNew
Rs("etablissement") = .Range("b2")
Rs("1") = .Range("j7")
Rs.Update
Set Rs = Nothing
Set Db = Nothing
End With
.ActiveWorkbook.Close
.Quit
End With
Set XL_App = Nothing
Set XL_Classeur = Nothing
Set XL_Feuille = Nothing
Evidemment, la table donnees existe.
L'erreur annoncée est "incompatibilité de type".
Qui peut m'enlever la peau de sosse que j'ai devant les yeux please ?
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
Pierre CFI [mvp]
bonjour mets tous tes dim au début, vérifie que tu as bien microsoft dao dans les réfs et pas de ADO
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net
"Hervé DUCARNE" a écrit dans le message de news:
Bonjour, Ca fait une heure que j'ai mal au crâne à cause de ce problème. Je m'explique : Je souhaiterai aller chercher des données dans une feuille d'un classeur excel pour les insérer dans une table de ma base.
Voici une partie du code : Dim XL_App As Object Set XL_App = CreateObject("Excel.Application") Dim XL_Classeur As Object Dim XL_Feuille As Object With XL_App Set XL_Classeur = .Workbooks.Open(SelectedFile) Set XL_Feuille = XL_Classeur.Sheets("feuil1") With XL_Feuille 'on ouvre la table donnees Dim Db As Database Dim Rs As Recordset Set Db = CurrentDb Set Rs = Db.OpenRecordset("donnees") ///// là ça plante !!!!!! Rs.AddNew Rs("etablissement") = .Range("b2") Rs("1") = .Range("j7") Rs.Update Set Rs = Nothing Set Db = Nothing End With .ActiveWorkbook.Close .Quit End With Set XL_App = Nothing Set XL_Classeur = Nothing Set XL_Feuille = Nothing
Evidemment, la table donnees existe. L'erreur annoncée est "incompatibilité de type".
Qui peut m'enlever la peau de sosse que j'ai devant les yeux please ?
Merci
bonjour
mets tous tes dim au début, vérifie que tu as bien microsoft dao dans les réfs et pas de ADO
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
"Hervé DUCARNE" <lepontherve@wanadou.fr> a écrit dans le message de news: OFy7k3LfFHA.3560@TK2MSFTNGP09.phx.gbl...
Bonjour,
Ca fait une heure que j'ai mal au crâne à cause de ce problème. Je
m'explique :
Je souhaiterai aller chercher des données dans une feuille d'un classeur
excel pour les insérer dans une table de ma base.
Voici une partie du code :
Dim XL_App As Object
Set XL_App = CreateObject("Excel.Application")
Dim XL_Classeur As Object
Dim XL_Feuille As Object
With XL_App
Set XL_Classeur = .Workbooks.Open(SelectedFile)
Set XL_Feuille = XL_Classeur.Sheets("feuil1")
With XL_Feuille
'on ouvre la table donnees
Dim Db As Database
Dim Rs As Recordset
Set Db = CurrentDb
Set Rs = Db.OpenRecordset("donnees") ///// là ça
plante !!!!!!
Rs.AddNew
Rs("etablissement") = .Range("b2")
Rs("1") = .Range("j7")
Rs.Update
Set Rs = Nothing
Set Db = Nothing
End With
.ActiveWorkbook.Close
.Quit
End With
Set XL_App = Nothing
Set XL_Classeur = Nothing
Set XL_Feuille = Nothing
Evidemment, la table donnees existe.
L'erreur annoncée est "incompatibilité de type".
Qui peut m'enlever la peau de sosse que j'ai devant les yeux please ?
bonjour mets tous tes dim au début, vérifie que tu as bien microsoft dao dans les réfs et pas de ADO
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net
"Hervé DUCARNE" a écrit dans le message de news:
Bonjour, Ca fait une heure que j'ai mal au crâne à cause de ce problème. Je m'explique : Je souhaiterai aller chercher des données dans une feuille d'un classeur excel pour les insérer dans une table de ma base.
Voici une partie du code : Dim XL_App As Object Set XL_App = CreateObject("Excel.Application") Dim XL_Classeur As Object Dim XL_Feuille As Object With XL_App Set XL_Classeur = .Workbooks.Open(SelectedFile) Set XL_Feuille = XL_Classeur.Sheets("feuil1") With XL_Feuille 'on ouvre la table donnees Dim Db As Database Dim Rs As Recordset Set Db = CurrentDb Set Rs = Db.OpenRecordset("donnees") ///// là ça plante !!!!!! Rs.AddNew Rs("etablissement") = .Range("b2") Rs("1") = .Range("j7") Rs.Update Set Rs = Nothing Set Db = Nothing End With .ActiveWorkbook.Close .Quit End With Set XL_App = Nothing Set XL_Classeur = Nothing Set XL_Feuille = Nothing
Evidemment, la table donnees existe. L'erreur annoncée est "incompatibilité de type".
Qui peut m'enlever la peau de sosse que j'ai devant les yeux please ?
Merci
Hervé DUCARNE
Merci Pierre !!!!!
C'était à cause de la référence DAO !!!
Ce n'était pas de la peau de sosse, mais de l'ignorance. Font ch..r ces p....ns de références...
Merci encore !
"Pierre CFI [mvp]" a écrit dans le message de news:%23H4Ik$
bonjour mets tous tes dim au début, vérifie que tu as bien microsoft dao dans les réfs et pas de ADO
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net
"Hervé DUCARNE" a écrit dans le message de news:
Bonjour, Ca fait une heure que j'ai mal au crâne à cause de ce problème. Je m'explique : Je souhaiterai aller chercher des données dans une feuille d'un classeur excel pour les insérer dans une table de ma base.
Voici une partie du code : Dim XL_App As Object Set XL_App = CreateObject("Excel.Application") Dim XL_Classeur As Object Dim XL_Feuille As Object With XL_App Set XL_Classeur = .Workbooks.Open(SelectedFile) Set XL_Feuille = XL_Classeur.Sheets("feuil1") With XL_Feuille 'on ouvre la table donnees Dim Db As Database Dim Rs As Recordset Set Db = CurrentDb Set Rs = Db.OpenRecordset("donnees") ///// là ça plante !!!!!! Rs.AddNew Rs("etablissement") = .Range("b2") Rs("1") = .Range("j7") Rs.Update Set Rs = Nothing Set Db = Nothing End With .ActiveWorkbook.Close .Quit End With Set XL_App = Nothing Set XL_Classeur = Nothing Set XL_Feuille = Nothing
Evidemment, la table donnees existe. L'erreur annoncée est "incompatibilité de type".
Qui peut m'enlever la peau de sosse que j'ai devant les yeux please ?
Merci
Merci Pierre !!!!!
C'était à cause de la référence DAO !!!
Ce n'était pas de la peau de sosse, mais de l'ignorance. Font ch..r ces
p....ns de références...
Merci encore !
"Pierre CFI [mvp]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news:%23H4Ik$LfFHA.3448@TK2MSFTNGP12.phx.gbl...
bonjour
mets tous tes dim au début, vérifie que tu as bien microsoft dao dans les
réfs et pas de ADO
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
"Hervé DUCARNE" <lepontherve@wanadou.fr> a écrit dans le message de news:
OFy7k3LfFHA.3560@TK2MSFTNGP09.phx.gbl...
Bonjour,
Ca fait une heure que j'ai mal au crâne à cause de ce problème. Je
m'explique :
Je souhaiterai aller chercher des données dans une feuille d'un classeur
excel pour les insérer dans une table de ma base.
Voici une partie du code :
Dim XL_App As Object
Set XL_App = CreateObject("Excel.Application")
Dim XL_Classeur As Object
Dim XL_Feuille As Object
With XL_App
Set XL_Classeur = .Workbooks.Open(SelectedFile)
Set XL_Feuille = XL_Classeur.Sheets("feuil1")
With XL_Feuille
'on ouvre la table donnees
Dim Db As Database
Dim Rs As Recordset
Set Db = CurrentDb
Set Rs = Db.OpenRecordset("donnees") ///// là ça
plante !!!!!!
Rs.AddNew
Rs("etablissement") = .Range("b2")
Rs("1") = .Range("j7")
Rs.Update
Set Rs = Nothing
Set Db = Nothing
End With
.ActiveWorkbook.Close
.Quit
End With
Set XL_App = Nothing
Set XL_Classeur = Nothing
Set XL_Feuille = Nothing
Evidemment, la table donnees existe.
L'erreur annoncée est "incompatibilité de type".
Qui peut m'enlever la peau de sosse que j'ai devant les yeux please ?
Ce n'était pas de la peau de sosse, mais de l'ignorance. Font ch..r ces p....ns de références...
Merci encore !
"Pierre CFI [mvp]" a écrit dans le message de news:%23H4Ik$
bonjour mets tous tes dim au début, vérifie que tu as bien microsoft dao dans les réfs et pas de ADO
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net
"Hervé DUCARNE" a écrit dans le message de news:
Bonjour, Ca fait une heure que j'ai mal au crâne à cause de ce problème. Je m'explique : Je souhaiterai aller chercher des données dans une feuille d'un classeur excel pour les insérer dans une table de ma base.
Voici une partie du code : Dim XL_App As Object Set XL_App = CreateObject("Excel.Application") Dim XL_Classeur As Object Dim XL_Feuille As Object With XL_App Set XL_Classeur = .Workbooks.Open(SelectedFile) Set XL_Feuille = XL_Classeur.Sheets("feuil1") With XL_Feuille 'on ouvre la table donnees Dim Db As Database Dim Rs As Recordset Set Db = CurrentDb Set Rs = Db.OpenRecordset("donnees") ///// là ça plante !!!!!! Rs.AddNew Rs("etablissement") = .Range("b2") Rs("1") = .Range("j7") Rs.Update Set Rs = Nothing Set Db = Nothing End With .ActiveWorkbook.Close .Quit End With Set XL_App = Nothing Set XL_Classeur = Nothing Set XL_Feuille = Nothing
Evidemment, la table donnees existe. L'erreur annoncée est "incompatibilité de type".
Qui peut m'enlever la peau de sosse que j'ai devant les yeux please ?
