Ecrire dans fichier fermé PAS SQL

Version imprimable

08/11/2016, 11h31
macadamx

Ecrire dans fichier fermé PAS SQL

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 !
08/11/2016, 15h10
Menhir

Citation:

Envoyé par macadamx

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é.
08/11/2016, 15h18
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.

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

Code:

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