Alyre

Bonsoir a Toutes et a tous

Je voudrais écrire dans un classeur fermé avec cette SUB, elle ne marche pas , je m'explique a la ligne

SetExternalDatas Fich, "Feuil2", cell.Address(A1, A2), cell.Text

elle me répond que Sub ou Function non Défini, J'ai bien cochée dans la bibliothèque, 'Microsoft ActiveX Data Objects 2.x Library

Comment je doit définir ma Function

'Pour lire et écrire dans un classeur fermé en utilisant ADO,
'la bibliothèque
'Microsoft ActiveX Data Objects 2.x Library
'doit être cochée dans Outils\Références du VBAProject



Sub EcritDatas()
Dim Fich$, cell As Range

Fich = "C:\Documents and Settings\Mes documents\Classeur1.xls" 'à adapter

'écrit dans le classeur fermé la valeur des cellules A1:A5
'du classeur actif
For Each cell In ActiveWorkbook.Sheets("Feuil2").Range("A1:A5")
SetExternalDatas Fich, "Feuil2", cell.Address( 0, 0), cell.Text
Next

'écrit en A6 la date et l'heure de l'opération
SetExternalDatas Fich, "Feuil1", "A6", "mise à jour du " & Now

'on regarde le résultat
DoEvents
Workbooks.Open Fich

End Sub


Merci a l'avance

@ ++ alyre