Insertion donnée dans une table accessRésolu

Question

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	est.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	able1\2012.xlsx]"

Cn.Execute strSQL

End Sub

anthooooony · Accepted Answer

j'ai reussi wiiii







Sub test()

strCon = "Provider=Microsoft.Ace.Oledb.12.0;Data Source=C:\Documents and Settings\RC1194\Desktop\formulaire	est.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	able1\2012.xlsx]"

Cn.Execute strSQL

End Sub

Insertion donnée dans une table access

1 réponse

Votre réponse

Discussions similaires