ecrire dans un fichier sans l'ouvrir

[slimsamfr]

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

 

[MichelXld]

bonjour

tu trouveras un exemple dans ce lien

Lien supprimé

Lien supprimé


bonne journée
MichelXld

 

[slimsamfr]

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

 

[MichelXld]

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