Cellule excel vers cellule access
Résolu/Fermé
toubiloup
Messages postés
25
Date d'inscription
mercredi 12 janvier 2005
Statut
Membre
Dernière intervention
3 mars 2005
-
20 janv. 2005 à 10:55
3J33 - 29 déc. 2008 à 10:18
3J33 - 29 déc. 2008 à 10:18
A voir également:
- Cellule excel vers cellule access
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Liste déroulante excel - Guide
9 réponses
Salut,
comme je n'ai pas le temps je vous ais trouver ce ptit module Private Sub Commande1_Click()
On Error GoTo Err_Commande1_Click
Dim MaBase As DAO.Database
Dim Matable As DAO.recordset
'Défini le nom de votre fichier Excel
MonFichier = "nomdevotrefichier.xls"
'Ouvre l'application Excel
Set MonXL = CreateObject("Excel.Application") 'Ceci initialise la
Set MaBase = CurrentDb()
Set Matable = MaBase.openrecordset("TableName")
'Ouvre MonFichier
MonXL.Workbooks.Open FileName:="C:\Mes Documents\" & mon fichier"
matable![nomchamp]=MonXL.Range("A1").Value
Exit_Commande1_Click:
Exit Sub
Err_Commande1_Click:
MsgBox Err.description
Resume Exit_Commande1_Click
End Sub
à la place de A1 la cellules à exporter.
Bonne chance.
Merci
comme je n'ai pas le temps je vous ais trouver ce ptit module Private Sub Commande1_Click()
On Error GoTo Err_Commande1_Click
Dim MaBase As DAO.Database
Dim Matable As DAO.recordset
'Défini le nom de votre fichier Excel
MonFichier = "nomdevotrefichier.xls"
'Ouvre l'application Excel
Set MonXL = CreateObject("Excel.Application") 'Ceci initialise la
Set MaBase = CurrentDb()
Set Matable = MaBase.openrecordset("TableName")
'Ouvre MonFichier
MonXL.Workbooks.Open FileName:="C:\Mes Documents\" & mon fichier"
matable![nomchamp]=MonXL.Range("A1").Value
Exit_Commande1_Click:
Exit Sub
Err_Commande1_Click:
MsgBox Err.description
Resume Exit_Commande1_Click
End Sub
à la place de A1 la cellules à exporter.
Bonne chance.
Merci
salut,
sub essai()
dim dbs as database, rst as dao.recordset
dim xl_app as new excelapplication
dim objexcel as object, xl_feuille as object
with xl_app
set objexcel = workbook.open("c:\emplacement de votre classeur execl")
set xl_feuille=objexcel.sheets("feuil1(ou le nom de la feuille du classeur)")
end with
set dbs = currentDB
set rst = dbs.openrecordset("nom de la table")
rst.edit
rst![nomchamp]=xl_feuille.range("la cellule(expl C9)").value
rst.update
xl_app.activeworkbook.close
xl_app.quit
set xl_app = nothing
set objexcel = nothing
end sub
sub essai()
dim dbs as database, rst as dao.recordset
dim xl_app as new excelapplication
dim objexcel as object, xl_feuille as object
with xl_app
set objexcel = workbook.open("c:\emplacement de votre classeur execl")
set xl_feuille=objexcel.sheets("feuil1(ou le nom de la feuille du classeur)")
end with
set dbs = currentDB
set rst = dbs.openrecordset("nom de la table")
rst.edit
rst![nomchamp]=xl_feuille.range("la cellule(expl C9)").value
rst.update
xl_app.activeworkbook.close
xl_app.quit
set xl_app = nothing
set objexcel = nothing
end sub
Bonjour,
J'essaie d'utiliser le programme indiqué en 2005, mais bien qu'ayant coché Microsoft excel 11 au niveau des librairies, j'ai une erreur sur
dim xl_app as new excelapplication
Merci de ton aide
Cordialement
3J33
sub essai()
dim dbs as database, rst as dao.recordset
dim xl_app as new excelapplication
dim objexcel as object, xl_feuille as object
with xl_app
set objexcel = workbook.open("c:\emplacement de votre classeur execl")
set xl_feuille=objexcel.sheets("feuil1(ou le nom de la feuille du classeur)")
end with
set dbs = currentDB
set rst = dbs.openrecordset("nom de la table")
rst.edit
rst![nomchamp]=xl_feuille.range("la cellule(expl C9)").value
rst.update
xl_app.activeworkbook.close
xl_app.quit
set xl_app = nothing
set objexcel = nothing
end sub
J'essaie d'utiliser le programme indiqué en 2005, mais bien qu'ayant coché Microsoft excel 11 au niveau des librairies, j'ai une erreur sur
dim xl_app as new excelapplication
Merci de ton aide
Cordialement
3J33
sub essai()
dim dbs as database, rst as dao.recordset
dim xl_app as new excelapplication
dim objexcel as object, xl_feuille as object
with xl_app
set objexcel = workbook.open("c:\emplacement de votre classeur execl")
set xl_feuille=objexcel.sheets("feuil1(ou le nom de la feuille du classeur)")
end with
set dbs = currentDB
set rst = dbs.openrecordset("nom de la table")
rst.edit
rst![nomchamp]=xl_feuille.range("la cellule(expl C9)").value
rst.update
xl_app.activeworkbook.close
xl_app.quit
set xl_app = nothing
set objexcel = nothing
end sub
Thibal_jam
Messages postés
50
Date d'inscription
mardi 14 septembre 2004
Statut
Membre
Dernière intervention
18 mai 2005
3
24 janv. 2005 à 13:52
24 janv. 2005 à 13:52
salut toubilooup,
en fait ta plusieurs façon de faire ça la plus simple je pense c'est d'utiliser le transfertspreedsheet qui est prévu à cette usage:
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "nom de ta table ", "nom du fichier excel", True, "A1:Z500"
et tu remplace le A1:Z500 par la plage de cellules que tu veux importer.
Essaye ça et donne moi des nouvelles
thibal
en fait ta plusieurs façon de faire ça la plus simple je pense c'est d'utiliser le transfertspreedsheet qui est prévu à cette usage:
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "nom de ta table ", "nom du fichier excel", True, "A1:Z500"
et tu remplace le A1:Z500 par la plage de cellules que tu veux importer.
Essaye ça et donne moi des nouvelles
thibal
thatworldismine
Messages postés
1
Date d'inscription
vendredi 30 juin 2006
Statut
Membre
Dernière intervention
30 juin 2006
30 juin 2006 à 22:10
30 juin 2006 à 22:10
ta formule semble bonne ces juste je la comprend pas si tu peut me rajouter sur ton mns pour miex mexpliquer ca serais sympas thatworldismine@hotmail.com
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Thibal_jam
Messages postés
50
Date d'inscription
mardi 14 septembre 2004
Statut
Membre
Dernière intervention
18 mai 2005
3
27 janv. 2005 à 10:57
27 janv. 2005 à 10:57
salut mohammed
rien de plus simple
1)tu crées un état avec toutes les donnés que tu veux downloader
2)DoCmd.OutputTo acReport, "nom de ton état", acFormatXLS
(excel prends les nom des txtbox comme entete )
Thibal
rien de plus simple
1)tu crées un état avec toutes les donnés que tu veux downloader
2)DoCmd.OutputTo acReport, "nom de ton état", acFormatXLS
(excel prends les nom des txtbox comme entete )
Thibal
Salut thibal-jam,
j'ai réussi à remplire un classeur excel à partir d'access via VBA.
la 1ère methode consister à parcourire la table et transférer les infos concernanat chaque enreg l'inconv c'est qu'à l'affichage du classeur excel on ne trouve que les info du dernier enreg logique non.
donc j'ai essaié d'introduire un input box pour demander à l'useur de donner le num enreg à afficher la feuil du classeur se remplie correctement mais à la fin de l'exec du module MS ACCESS se ferme.
Merci.
j'ai réussi à remplire un classeur excel à partir d'access via VBA.
la 1ère methode consister à parcourire la table et transférer les infos concernanat chaque enreg l'inconv c'est qu'à l'affichage du classeur excel on ne trouve que les info du dernier enreg logique non.
donc j'ai essaié d'introduire un input box pour demander à l'useur de donner le num enreg à afficher la feuil du classeur se remplie correctement mais à la fin de l'exec du module MS ACCESS se ferme.
Merci.
toubiloup
Messages postés
25
Date d'inscription
mercredi 12 janvier 2005
Statut
Membre
Dernière intervention
3 mars 2005
6
10 févr. 2005 à 09:25
10 févr. 2005 à 09:25
je tien a tous vous remercier pour ces reponses
je suis desoler de repondre que maintenant.
trop de boulot.
je v essayer de combiner toutes vos reponses je vous tien au courant dans les plus bref delais
mohamed pour ton pb
regarde sur ce situe ya plein de faq
http://www.mvps.org/accessfr/modules
je suis desoler de repondre que maintenant.
trop de boulot.
je v essayer de combiner toutes vos reponses je vous tien au courant dans les plus bref delais
mohamed pour ton pb
regarde sur ce situe ya plein de faq
http://www.mvps.org/accessfr/modules
Thibal_jam
Messages postés
50
Date d'inscription
mardi 14 septembre 2004
Statut
Membre
Dernière intervention
18 mai 2005
3
10 févr. 2005 à 13:47
10 févr. 2005 à 13:47
salut toobillooupp,
Ya pas de quoi, on est la pour ça
bye
Thibal
Ya pas de quoi, on est la pour ça
bye
Thibal
toubiloup
Messages postés
25
Date d'inscription
mercredi 12 janvier 2005
Statut
Membre
Dernière intervention
3 mars 2005
6
16 févr. 2005 à 11:27
16 févr. 2005 à 11:27
kikou
c encore moi
je narrive pas a faire fonctionner mon code
le voisi
ca me met une erreur au niveau de la ligne set objexcel...
erreur d'execution 424
objet requis
si quelqun voi le probleme merci de m'aider.
a tres vite jespere.
merci
c encore moi
je narrive pas a faire fonctionner mon code
le voisi
Private Sub bo_maj_Click()
Dim dbs As Database, rst As DAO.Recordset
Dim xl_app As Excel.Application
Dim objexcel As Object, xl_feuille As Object
With xl_app
Set objexcel = Appli.Workbooks.Open(App.Path & "\projet.xls")
Set xl_feuille = objexcel.sheets("feuille2")
End With
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("LIGNE DE FACTURE")
rst.Edit
rst![Kilometrage] = xl_feuille.range("C3").Value
rst.Update
xl_app.activeworkbook.Close
xl_app.Quit
Set xl_app = Nothing
Set objexcel = Nothing
End Sub
ca me met une erreur au niveau de la ligne set objexcel...
erreur d'execution 424
objet requis
si quelqun voi le probleme merci de m'aider.
a tres vite jespere.
merci
Je suis un jeune informaticien qui travaille sur une application Vb pour la gestion de fiches et j'ai un probléme pour faire la liaison entre les données qui sont sous forme d'un fichier excel et la base de données (Access) je ne sais pas comment importer ces données dans ma base de données?
Merci de m'aider.
Merci de m'aider.
