Bonsoir,
En cherchant comment écrire sur un classeur fermé, je suis tombé sur le code suivant :
Le code permet en effet d'écrire sur une cellule.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27 Sub exportDonneeDansCelluleClasseurFerme() Dim Cn As ADODB.Connection Dim Cd As ADODB.Command Dim Rst As ADODB.Recordset Dim Fichier As String Fichier = "C:\Documents and Settings\mimi\dossier\LeClasseur.xls" 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$G30:G30]" 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
Ce que je cherche c'est de pouvoir copier le contenu de toute la feuille ou au moins le contenu d'une grande plage de données.
Partager