Discussion :

[Darkangel2014]

Bonsoir A tous,

je viens vers vous concernant des données à écrire dans un autre classeur

A l'heure actuelle je le fais en ouvrant le fichier de destination, en écrivant les données et en e refermant le tout en vision cachée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Workbooks.Open Chemin & NewFichier
 
Workbooks(NewFichier).Worksheets("Projet").Range("E3") = Project_Acronym
etc...
 
Workbooks(NewFichier).Close True

ceci étant dit:
1) sachant que je renseigne des cellules pré-déterminées dans des onglets connus, comment puis je procéder afin de ne pas avoir à ouvrir le fichier puis le fermer ce qui est assez lourd mais va le devenir plus en plus car j'ai plusieurs fichiers à générés de suite prochainement même si je dois pouvoir distancier les actions je pense

2) j'ai parcouru https://silkyroad.developpez.com/ sur l'écriture dans classeur fermé.

Aussi et tournant sur office 2016 peut on effectivement écrire dans un classeur fermé et de manière assez simple compte tenu de mon point 1?

Merci par avance pour votre aide
bonne soirée

[Menhir]

2) j'ai parcouru https://silkyroad.developpez.com/ sur l'écriture dans classeur fermé.

Si tu as lu ce didacticiel, tu devrais déjà avoir ta réponse.

Cela dit, le titre de ce didacticiel (très intéressant en soi) est quelque peu abusif puisque le classeur n'est pas réellement fermé (il est impossible de lire/écrire dans un fichier fermé). Il serait plus juste de dire qu'il est ouvert d'une manière différente.

[Darkangel2014]

Bonjour et merci à vous pour votre retour.

C'est bien ce que je pensais mais souhaitait avoir confirmation: on ne peut écrire dans un classeur complètement fermé sans l'ouvrir.
Aussi ma question est qu'elle la façon la plus optimisée pour écrire dans un classeur?

A l'heure actuelle je fonctionne comme cela et même de manière cachée je pense mais trouvant cela assez lourd je m'interroge:

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
Name Chemin & "copie.xlsm" As Chemin & NewFichier
 
 
'Empêche le raffraichissement de l'écran
Application.ScreenUpdating = False
 
'Ouverture du fichier
Workbooks.Open Chemin & NewFichier
 
'on ecrit dans le fichier
Workbooks(NewFichier).Worksheets("Projet").Range("E3") = Project_Acronym
....
 
Workbooks(NewFichier).Close True
 
Application.ScreenUpdating = True

peut on faire moins lourd?


car je vois le code sur silkroad du type:

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

Il me semble qu'il faudra répéter ce code pour chaque ligne à insérer ce qui me semble d'avance encore plus lourd mais peut etre à tort

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    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

merci à vous par avance