Discussion :

[macadamx]

bonjour à tous,

Je bloque sur une méthode.
J'ai bien lu les différents sites dont l'excellent tutoriel de silkyroad : http://silkyroad.developpez.com/VBA/ClasseursFermes/
La méthode ADO a l'air très bien mais je n'arrive pas à écrire en direct.
Mais mes fichiers ne sont pas sous forme de BDD SQL mais des remontées de données à transférer vers plusieurs fichiers.
J'aimerai donc simplement écrire dans des fichiers pour le moment mais je n'y arrive pas.

Y a t-il donc un moyen pour écrire dans un fichier fermé (pour des soucis d'optimisation d’exécution) sans passer par une table de données ?

Je veux juste réinscrire des données dans plusieurs fichiers de formes différentes sans les ouvrir.

Merci beaucoup !

[Menhir]

Y a t-il donc un moyen pour écrire dans un fichier fermé (pour des soucis d'optimisation d’exécution) sans passer par une table de données ?

Il est tout simplement impossible d'écrire dans un fichier fermé (à moins d'aller directement modifier des secteurs disque, mais je ne connais personne qui se risque à ça).

La méthode ADO ouvre le fichier de manière différente (sans Excel) mais ça reste une ouverture.

Cela dit, à mon avis, tu te prends la tête pour un gain minime (au mieux).
Fais la méthode Workbooks.Open + Close SaveChanges:=True, tu gagneras en temps de développement, en lisibilité et en fiabilité.

[macadamx]

D'accord, je voulais optimiser le temps d’exécution de la macro car je n'aime pas attendre devant mon ordinateur.
Merci pour ta réponse, je vais passer par l'ouverture de fichiers.

[Invité]

Bonsoir,
j'ai pas tout compris, mais tu veux faire un truc comme ça?

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
Sub Test()
Dim F As String, Rep As String
Rep = ThisWorkbook.Path & "\Test\"
ThisWorkbook.Worksheets("Feuil1").Range("A2:Y" & Cells.Rows.Count).ClearContents
ThisWorkbook.Save
With CreateObject("adodb.connection")
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
                & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=YES;"""
            .Open
            F = Dir(Rep & "*.xls*")
            While F <> ""
                .Execute "Insert into [Feuil1$] select * from [Feuil1$] in '" & Rep & F & "' 'Excel 12.0;HDR=YES;IMEX=1;'"
                F = Dir
            Wend
            .Close
End With
 MsgBox "Fin"
End Sub