Discussion :

[seb nantes]

Bonjour à tous !
Je dispose d'un fichier excel d'une ligne et 2 cellules dont voici le contenu :
un login en A1 et un mot de passe en B1
Je cherche à écrire le contenu de A1 et B1 dans une table SQL existante qui comporte plusieurs champs dont PASSWORD et USER :

La requette serait du style :
update UTILISATEUR
set PASSWORD=Cellule Excel B1
where USER=Cellule Excel A1


Mais comment faire ???
J'ai essayé avec clic droit sur la base > Taches > importer
Source : Excel 2007 > fichier "c:\utilisateur.xlsx
(sans cocher la case 1ere ligne = noms de colonnes)
Destination : SQL Server Native Client 10.0

Ensuite je ne sais pas comment faire, faut-il choisir :
Copier les données... ou Ecrire une requête... ?

J'ai essayé "Ecrire une requete" mais que dois-je écrire ?
J'ai essayé "Copier les données" il m'indique "une nouvelle table va être créée"

L'assitant d'importation permet-il de mettre à jour des tables existantes sinon comment faire une opération aussi simple simplement ?

Merci par avance pour aide

[Invité]

Regarde du côté de OPENDATASOURCE ou les Linked Servers.

[seb nantes]

Merci pour ces pistes
Apparement ce sont des commandes à taper et les exemples ne manquent pas mais il faut écrire ces commandes dans un fichier .sql puis l'ouvrir avec SQL server ?
Merci

[d.joubert]

Hint : Cliques sur "New Query" dans Management Studio

[seb nantes]

Et voici................. La solution par un exemple en 6 lignes !!!!
Il suffit de remplacer les xxxx par vos paramètres et adapater la requette.
Testé sous Excel 2013 et SQL 2008R2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Excel_vers_MSSQL()
Set Connexion = New ADODB.Connection
Connexion.Open "Provider=SQLOLEDB.1;Password=xxxx;Persist Security Info=True;User ID=xxxxx;Initial Catalog=BDDxxxxx;Data Source=serverSQLxxxx;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Use Encryption for Data=False;Tag with column collation when possible=False"
Connexion.Execute "Update TABLE1 Set ID_UTILISAT=" & Feuil1.Cells(1, 1)
Connexion.Close
End Sub

[seb nantes]

Si ce code ne fonctionne pas sous Windows 7 et Excel 2007 il faut installer la mise à jour KB2640696-v3