Insertion donnée dans une table access [Résolu]

Messages postés
28
Date d'inscription
mercredi 1 février 2012
Statut
Membre
Dernière intervention
17 avril 2013
- - Dernière réponse : anthooooony
Messages postés
28
Date d'inscription
mercredi 1 février 2012
Statut
Membre
Dernière intervention
17 avril 2013
- 18 sept. 2012 à 18:07
Bonjour,

Je crée un post concernant un problème que j'ai pour mettre à jour une table excel à partir d'un fichier excel donné et d'une feuil donnée.
J'ai trouvé l'info en VB pour excel 2003 et access 2003 mais ma société à changé de version et du coup j'ai excel 2007 et access 2007 et ça ne marche plus.

J'ai trouvé une commande SQL qui me permet de récupérer toute la donnée d'une feuille excel donnée vers Access, mais j'ai un message d'erreur qui est Attention "2012" existe deja, en fait cette table existe dans access et lorsque je mets 2013
strSQL = "SELECT * INTO 2013  FROM [Feuil1$] IN '' " _
Il crée une table.

Ma procédure est je supprime la table et je rajoute tout le contenu du fichier excel mais je ne sais pas comment faire.

J'ai regardé dans un livre il marque Insert mais il n'aime pas, faut savoir aussi que je ne connais pas du tout SQL c'est un peu difficile pour moi..

Auriez vous une idée?

En vous remerciant par avance

Anthooooony


Sub test()

strCon = "Provider=Microsoft.Ace.Oledb.12.0;Data Source=C:\Documents and Settings\RC1194\Desktop\formulaire\test.accdb"

Set Cn = CreateObject("ADODB.Connection")

Cn.Open strCon

strSQL = "SELECT * INTO 2012  FROM [Feuil1$] IN '' " _
  & "[Excel 8.0;HDR=NO;IMEX=2;DATABASE=C:\Documents and Settings\RC1194\Desktop\formulaire\table1\2012.xlsx]"

Cn.Execute strSQL

End Sub
Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
28
Date d'inscription
mercredi 1 février 2012
Statut
Membre
Dernière intervention
17 avril 2013
3
Merci
j'ai reussi wiiii






Sub test()

strCon = "Provider=Microsoft.Ace.Oledb.12.0;Data Source=C:\Documents and Settings\RC1194\Desktop\formulaire\test.accdb"

Set Cn = CreateObject("ADODB.Connection")

Cn.Open strCon

strSQL = "INSERT INTO 2012 SELECT * FROM [Feuil1$] IN '' " _
  & "[Excel 8.0;HDR=Yes;IMEX=2;DATABASE=C:\Documents and Settings\RC1194\Desktop\formulaire\table1\2012.xlsx]"

Cn.Execute strSQL

End Sub

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 195 internautes nous ont dit merci ce mois-ci

Commenter la réponse de anthooooony