S slimsamfr Guest 16 Février 2006 #1 bonjour Je souhaite ecrire des données ds un classeur (ex: toto.xls), sans l'ouvrir via un code vba d'un autre classeur (ex: riri.xls). On me parle d 'ADO comment cela fonctionne. Merci de votre aide
bonjour Je souhaite ecrire des données ds un classeur (ex: toto.xls), sans l'ouvrir via un code vba d'un autre classeur (ex: riri.xls). On me parle d 'ADO comment cela fonctionne. Merci de votre aide
M MichelXld XLDnaute Barbatruc 16 Février 2006 #2 bonjour tu trouveras un exemple dans ce lien Lien supprimé Lien supprimé bonne journée MichelXld Vote positif 0 Vote négatif
S slimsamfr Guest 16 Février 2006 #3 Merci pour ton aide mais ds l'exemple il envoye les données n'importe ou dans le fichier fermé comment forcé à envoyé dans une cellule bien precise? merci pour votre réponse Vote positif 0 Vote négatif
Merci pour ton aide mais ds l'exemple il envoye les données n'importe ou dans le fichier fermé comment forcé à envoyé dans une cellule bien precise? merci pour votre réponse
M MichelXld XLDnaute Barbatruc 16 Février 2006 #4 rebonjour on ne doit pas parler de la meme chose car l'exemple n'envoie pas les données 'n'importe ou dans le classeur fermé'... Sinon voici un exemple qui exporte une donnée dans la cellule A1 du classeur fermé Sub exportDonneeDansCellule() Dim Cn As ADODB.Connection Dim Cd As ADODB.Command Dim Rst As ADODB.Recordset Dim Fichier As String Fichier = 'C:\\\\\\\\repertoire\\\\\\\\monClasseur.xls' 'adapter le chemin des fichiers fermés Set Cn = New ADODB.Connection Cn.Open 'Provider=Microsoft.Jet.OLEDB.4.0;' & _ 'Data Source=' & Fichier & ';' & _ 'Extended Properties=''Excel 8.0;HDR=No;'';' Set Cd = New ADODB.Command Cd.ActiveConnection = Cn Cd.CommandText = 'SELECT * from `Feuil1$A1:A1`' Set Rst = New ADODB.Recordset Rst.Open Cd, , adOpenKeyset, adLockOptimistic Rst(0).Value = ' donnée test' Rst.Update Cn.Close Set Cn = Nothing Set Cd = Nothing Set Rst = Nothing End Sub bonne soirée MichelXld Vote positif 0 Vote négatif
rebonjour on ne doit pas parler de la meme chose car l'exemple n'envoie pas les données 'n'importe ou dans le classeur fermé'... Sinon voici un exemple qui exporte une donnée dans la cellule A1 du classeur fermé Sub exportDonneeDansCellule() Dim Cn As ADODB.Connection Dim Cd As ADODB.Command Dim Rst As ADODB.Recordset Dim Fichier As String Fichier = 'C:\\\\\\\\repertoire\\\\\\\\monClasseur.xls' 'adapter le chemin des fichiers fermés Set Cn = New ADODB.Connection Cn.Open 'Provider=Microsoft.Jet.OLEDB.4.0;' & _ 'Data Source=' & Fichier & ';' & _ 'Extended Properties=''Excel 8.0;HDR=No;'';' Set Cd = New ADODB.Command Cd.ActiveConnection = Cn Cd.CommandText = 'SELECT * from `Feuil1$A1:A1`' Set Rst = New ADODB.Recordset Rst.Open Cd, , adOpenKeyset, adLockOptimistic Rst(0).Value = ' donnée test' Rst.Update Cn.Close Set Cn = Nothing Set Cd = Nothing Set Rst = Nothing End Sub bonne soirée MichelXld