Discussion :

[zangaloni]

Bonsoir,
En cherchant comment écrire sur un classeur fermé, je suis tombé sur le code suivant :

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

Le code permet en effet d'écrire sur une cellule.
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.

[kiki29]

Salut, lire et adapter http://silkyroad.developpez.com/VBA/...sFermes/#LIV-D

[zangaloni]

Bonjour,

J'ai bien vu cet exemple, le problème c'est que moi je n'utilise pas access.

Je n'utilise que des classeurs excel.
Mon besoin est de transmettre une feuille de données ou tout simplement une plage de données d'un classeur ouvert à un classeur fermé.

Je vais essayer de remplacer access par la plage que je veux copier, pour voir si ça donne quelque chose.

[kiki29]

Re, à combiner avec http://silkyroad.developpez.com/VBA/...sFermes/#LIV-A

[zangaloni]

J'ai beau essayer de combiner mais ça ne marche pas.

Je récapitule mon besoin, est de copier des données de mon classeur ouvert pour les coller dans un classeur fermé.

Merci de m'aider.

[SfJ5Rpw8]

ben si ton classeur est fermé il suffit de l'ouvrir comme cela tu te retrouve avec 2 classeurs ouvert...
Utiliser ADO pour accéder à un classeur excel n'as vraiment de l'intérêt que dans le cas ou tu ne fait pas cela depuis excel...