Flux rss
Ils ont besoin de votre aide
Collection CommentCaMarche.net
Rechercher : dans
Par : Mots clés Nom d'utilisateur
Messages sans réponse

Cellule excel vers cellule access

toubiloup, le jeudi 20 janvier 2005 à 10:55:30 
 Signaler ce message aux modérateurs

Bonjour,

je souhaite recuper la donnee d'une cellule excel et la mettre dans une cellule access d'une table
comment puis-je faire?

merci de m'aider.



toubiiiiiiiiiiiiloooooooooooooouuuuuuuuuuuuuuuuuuuuuupppp

Meilleures réponses pour « cellule excel vers cellule access »
Posez votre question Répondre

1

mohammed, le dimanche 23 janvier 2005 à 11:36:38

Salut,
vous devriez user vba.
bonne chance
Merci.

   
Répondre à mohammed

2

mohammed, le dimanche 23 janvier 2005 à 15:58:09

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

   
Répondre à mohammed

3

mohammed, le lundi 24 janvier 2005 à 11:41:01

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

   
Répondre à mohammed

17

 3J33, le lundi 29 décembre 2008 à 10:18:26

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

   
Répondre à 3J33

4

Thibal_jam, le lundi 24 janvier 2005 à 13:52:32
  • +1

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

   
Répondre à Thibal_jam

5

mohammed, le mercredi 26 janvier 2005 à 11:48:44

Salut THibal_jam,
connaissez vous une autre poue l'exportation de données d'access vers excel.
Merci

   
Répondre à mohammed

12

thatworldismine, le vendredi 30 juin 2006 à 22:10:21
  • +1

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

   
Répondre à thatworldismine

6

Thibal_jam, le jeudi 27 janvier 2005 à 10:57:24
  • +1

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

   
Répondre à Thibal_jam

7

mohammed, le dimanche 30 janvier 2005 à 21:12:18

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.

   
Répondre à mohammed

14

GSYLLA, le mardi 6 mars 2007 à 10:33:24

Salut Mohammed, ton code pour remplir un classeur excel à partir d'access via vba m-interresserai bien.
Peux tu me l'envoyer par mail stp ?
gsylla@visteon.com

@+

   
Répondre à GSYLLA

8

toubiloup, le jeudi 10 février 2005 à 09:25:41
  • +1

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
toubiiiiiiiiiiiiloooooooooooooouuuuuuuuuuuuuuuuuuuuuupppp

   
Répondre à toubiloup

9

Thibal_jam, le jeudi 10 février 2005 à 13:47:21
  • +1

Salut toobillooupp,

Ya pas de quoi, on est la pour ça

bye

Thibal

   
Répondre à Thibal_jam

10

toubiloup, le mercredi 16 février 2005 à 11:27:58
  • +1

Kikou
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 toubiiiiiiiiiiiiloooooooooooooouuuuuuuuuuuuuuuuuuuuuupppp

   
Répondre à toubiloup

11

Serge Henri, le vendredi 11 mars 2005 à 10:47:37

Assure toi que la bibliothèque Excel est intégrée.

   
Répondre à Serge Henri

13

mohammed, le mardi 4 juillet 2006 à 20:02:48

Salut,
essaye
Set objexcel = Appli.Workbooks.Open(c:\projet.xls")
Bonne chance.
Merci.

   
Répondre à mohammed

15

fayssal, le mercredi 26 décembre 2007 à 12:37:02

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.

   
Répondre à fayssal

16

jérém, le mardi 15 juillet 2008 à 15:48:29

Bonjour,

je cherche a envoyer un tableau excel vers access pour l'y utiliser....

Je ne sait plus comment faire et je ne comprends pas vos termes....

qui peut me donner la méthode basique pour mettre un fichier excel sur access?

Merci

jérém

   
Répondre à jérém
Posez votre question Répondre
Importation cellules vides excel vers access Bonjour, J'ai un probleme lorsque j'importe une feuille Excel vers Access. En fait, plusieurs colonnes d'excel ont des cellules vides (au départ d'excel) et devraient avoir la valeur zéro. Au moment de ma query en access, je ne peux effectuer des... www.commentcamarche.net/forum/affich-5754169-importation-cellules-vides-excel-vers-access
Transfert donnée num excel vers access (Résolu) Bonjour, Je transfère des données d'Excel vers Access (2007) en procèdant par copier/coller (une ligne à la fois) Je rencontre un problème sur un champ contenant un numéro SIRET (n° à 14 chiffres): bien que cette colonne soit définie comme comportant... www.commentcamarche.net/forum/affich-8199205-transfert-donnee-num-excel-vers-access
Importer des données excel vers Access... Bonjour à tous Je ne parviens pas à régler un problème... Voila je vous expose la problématique : J'ai un fichier excel avec des données precises... J'ai crée une base de données access et je voudrai créer un formulaire avec un bouton de commande... www.commentcamarche.net/forum/affich-231323-importer-des-donnees-excel-vers-access
Importer ses contacts sous Outlook à partir d'ExcelImporter ses contacts sous Outlook à partir d'Excel Problème Comment importer une liste de contact d'Excel vers Outlook, en ne les mettant que dans une seule liste de contact, et non contact par contact ? Solution En utilisant les logiciels... www.commentcamarche.net/faq/sujet-6589-importer-ses-contacts-sous-outlook-a-partir-d-excel
[Excel] Colorer des cellules sur conditionsIl existe dans Excel des fonctions très pratiques mais peu connues et peu utilisées. Exemple : vous souhaitez qu'une cellule se colore automatiquement en rouge (ou autre mise en forme de police, de bordure, de trame) selon une condition : un... www.commentcamarche.net/faq/sujet-3975-excel-colorer-des-cellules-sur-conditions
Résultats pour cellule excel vers cellule access
Transfert Excel vers AccessBonjour, J'importe sur Excel des données issues d'1 AS400 via 1 petit logiciel XL400. Sur certaines importations, le nombre de données envoyées dépasse les 65536 lignes d'Excel. Je crois que même s'il ne les affiche pas, Excel les garde en mémoire. Je... www.commentcamarche.net/forum/affich-2075228-transfert-excel-vers-access
Extraire cellules excel vers un fichier texteBonjour, Alors voilà, on m'a demandé au travail d'exporter des valeurs de certaines cellules d'un fichier excel, dans un fichier texte. Mais le souci est que je ne m'y connais pass du tout en VBA!!! J'espère que vous pourrez m'aider à résoudre ce... www.commentcamarche.net/forum/affich-10170608-extraire-cellules-excel-vers-un-fichier-texte
[access] Importer des données depuis d'Excel (Résolu)Salut! Est-il possible d'importer des données de Excel vers Access? Si oui, alors pourriez-vous me spécifier comment ? Merci pour tout. www.commentcamarche.net/forum/affich-2913215-access-importer-des-donnees-depuis-d-excel
Résultats pour cellule excel vers cellule access