[VBA EXCEL] Création de fichiers "fantômes"

Bonjour à tous !

Le problème du jour est le suivant :
j'ai un énorme fichier modèle (178 Mo) avec plein de formules et un peu de code. Ce fichier servira pour plusieurs études.

Ce qui m'embête, c'est de devoir multiplier les fichiers de taille phénoménal (un par étude).

L'idée est donc d'avoir un gros fichier qui contient le code et les formules, mais pas de données, et autant de petits fichiers que d'études avec les données et les résultats mais pas de formule ni de code (une sorte de fantôme du gros fichier).

J'ai vu un fichier qui fonctionne, je pense, comme ça avec un bouton Back_Up qui permet d'enregistrer les petits fichiers à partir du gros, un bouton Restore qui permet d'ouvrir les petits fichiers depuis le gros (taille du gros fichier > 1 Mo, taille des petits fichiers < 60 Ko).

Le problème c'est que je ne sais pas comment ça fonctionne et que le code du fichier et des boutons sont protégés...

Voilà, si ce n'est pas clair, n'hésitez pas, je répondrai à vos questions...

et tu es sur que tu peux pas d'abord réduire ton gros fichier?

moi je veux bien, mais je fais comment ?

faut voir. tu dis que tu as beaucoup de formule. le plus souvent quand un fichier est aussi énorme, c'est qu'il y a des formule sur de pages entieres alors que les 50 premieres cases seulement sont utilisés
es ce que tes données sont confidentielles ou bien on peut y jeter un oeil?
si oui, tu le zippe, et tu me l'envoie en mp.
il y a aussi les dessins, c'est lourd. l

il y a effectivement des formules sur des pages entières !
Voici un ordre de grandeur et je ne pense pas me tromper de beaucoup :
14400 mesures par jour pendant une semaine pour lesquels on fait environ 20 calcul, on est donc à plus de 1 million de formules utiles... (on serait même plus près des 2 millions !)

Ton backup doit se faire en récupérant les .Value de chaque cellule et les mettant dans un nouveau fichier Excel ou d'un fichier texte avec des ";" comme séparateurs (ce qui serait plus léger).

Pour récupérer les données d'un tel fichier, tu ne récupère en fait que les données pour les cellules n'ayant pas de formules puisque celles-ci calculeront les résultats toutes seules.

Bonsoir tout le monde !

Alsimbad : je suis désolé, mais mes collègues n'ont pas msn chez eux et moi pas internet (mais msn...). Je ne peux donc pas t'envoyer le fichier...

Voici l'état actuel des choses :

J'ai un bouton BackUp qui fait très bien ce qu'on lui demande, et en quelques secondes j'ai un petit fichier .xls (4 Mo et des brouettes) où il faut et comm il faut.
Voici son code :

Code:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
Private Sub BackUp_Click()
 
Dim FichierSauvegarde As String
Dim FL1 As Worksheet, FL2 As Worksheet
Dim Wb As Workbook
Dim NomFichier
 
FichierSauvegarde = "calcul de débit kimo vers excel - " & ThisWorkbook.Worksheets("ratios").Cells(1, 8)
ChDir ("AdresseDossier")
NomFichier = Application.GetSaveAsFilename(FichierSauvegarde, "Classeur Microsoft Office Excel (*.xls),*.xls")
 
If NomFichier <> False Then
    Application.DisplayAlerts = False
    Set Wb = Workbooks.Add
    Wb.Worksheets("Feuil3").Delete
    For Each FL1 In ThisWorkbook.Worksheets
        If FL1.Name = "ratios" Then
            Set FL2 = Wb.Worksheets("Feuil1")
            FL2.Name = FL1.Name
            FL1.Range("A1:I15").Copy FL2.Range("A1")
        Else
            Set FL2 = Wb.Worksheets("Feuil2")
            If FL1.Name = "lundi" Then
                FL1.Range("A1:A14401").Copy FL2.Range("A1")
                FL1.Range("C1:C14401").Copy FL2.Range("B1")
                FL1.Range("I1:I14401").Copy FL2.Range("C1")
                FL1.Range("O1:O14401").Copy FL2.Range("D1")
                FL1.Range("U1:U14401").Copy FL2.Range("E1")
                FL1.Range("AA1:AA14401").Copy FL2.Range("F1")
            ElseIf FL1.Name = "mardi" Then
                FL1.Range("C1:C14401").Copy FL2.Range("G1")
                FL1.Range("I1:I14401").Copy FL2.Range("H1")
                FL1.Range("O1:O14401").Copy FL2.Range("I1")
                FL1.Range("U1:U14401").Copy FL2.Range("J1")
                FL1.Range("AA1:AA14401").Copy FL2.Range("K1")
            ElseIf FL1.Name = "mercredi" Then
                FL1.Range("C1:C14401").Copy FL2.Range("L1")
                FL1.Range("I1:I14401").Copy FL2.Range("M1")
                FL1.Range("O1:O14401").Copy FL2.Range("N1")
                FL1.Range("U1:U14401").Copy FL2.Range("O1")
                FL1.Range("AA1:AA14401").Copy FL2.Range("P1")
            ElseIf FL1.Name = "jeudi" Then
                FL1.Range("C1:C14401").Copy FL2.Range("Q1")
                FL1.Range("I1:I14401").Copy FL2.Range("R1")
                FL1.Range("O1:O14401").Copy FL2.Range("S1")
                FL1.Range("U1:U14401").Copy FL2.Range("T1")
                FL1.Range("AA1:AA14401").Copy FL2.Range("U1")
            ElseIf FL1.Name = "vendredi" Then
                FL1.Range("C1:C14401").Copy FL2.Range("V1")
                FL1.Range("I1:I14401").Copy FL2.Range("W1")
                FL1.Range("O1:O14401").Copy FL2.Range("X1")
                FL1.Range("U1:U14401").Copy FL2.Range("Y1")
                FL1.Range("AA1:AA14401").Copy FL2.Range("Z1")
            ElseIf FL1.Name = "samedi" Then
                FL1.Range("C1:C14401").Copy FL2.Range("AA1")
                FL1.Range("I1:I14401").Copy FL2.Range("AB1")
                FL1.Range("O1:O14401").Copy FL2.Range("AC1")
                FL1.Range("U1:U14401").Copy FL2.Range("AD1")
                FL1.Range("AA1:AA14401").Copy FL2.Range("AE1")
            ElseIf FL1.Name = "dimanche" Then
                FL1.Range("C1:C14401").Copy FL2.Range("AF1")
                FL1.Range("I1:I14401").Copy FL2.Range("AG1")
                FL1.Range("O1:O14401").Copy FL2.Range("AH1")
                FL1.Range("U1:U14401").Copy FL2.Range("AI1")
                FL1.Range("AA1:AA14401").Copy FL2.Range("AJ1")
            End If
        End If
    Next
    FL2.Name = "semaine"
    Wb.SaveAs Filename:= _
        NomFichier, FileFormat:= _
        xlExcel7, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    Wb.Close
    Application.DisplayAlerts = True
End If
 
End Sub

J'ai également un bouton Restore qui fait aussi ce qu'on lui demande, mais alors que BackUp ne prend que qq secondes, Restore prend environ 10 minutes.
En principe, Restore fait comme BackUp mais à l'envers, donc je m'attendais à un temps de réponse du même ordre !
Donc question :
Est-ce que 10 minutes pour faire la même chose que BackUp mais dans l'autre sens c'est normal, ou ai-je un souci (ou plusieurs...) dans mon code ?
Voici le code de Restore :

Code:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Private Sub Restore_Click()
 
Dim FL1 As Worksheet, FL2 As Worksheet
Dim Wb As Workbook
Dim NomFichier
 
ChDir ("AdresseDossier")
NomFichier = Application.GetOpenFilename("Classeur Microsoft Office Excel (*.xls),*.xls")
 
If NomFichier <> False Then
    Application.DisplayAlerts = False
    Set Wb = Workbooks.Open(NomFichier)
    For Each FL1 In ThisWorkbook.Worksheets
        If FL1.Name = "ratios" Then
            Set FL2 = Wb.Worksheets("ratios")
            FL2.Range("A1:I15").Copy FL1.Range("A1")
        Else
            Set FL2 = Wb.Worksheets("semaine")
            If FL1.Name = "lundi" Then
                FL2.Range("A1:A14401").Copy FL1.Range("A1")
                FL2.Range("B1:B14401").Copy FL1.Range("C1")
                FL2.Range("C1:C14401").Copy FL1.Range("I1")
                FL2.Range("D1:D14401").Copy FL1.Range("O1")
                FL2.Range("E1:E14401").Copy FL1.Range("U1")
                FL2.Range("F1:F14401").Copy FL1.Range("AA1")
            ElseIf FL1.Name = "mardi" Then
                FL2.Range("A1:A14401").Copy FL1.Range("A1")
                FL2.Range("G1:G14401").Copy FL1.Range("C1")
                FL2.Range("H1:H14401").Copy FL1.Range("I1")
                FL2.Range("I1:I14401").Copy FL1.Range("O1")
                FL2.Range("J1:J14401").Copy FL1.Range("U1")
                FL2.Range("K1:K14401").Copy FL1.Range("AA1")
            ElseIf FL1.Name = "mercredi" Then
                FL2.Range("A1:A14401").Copy FL1.Range("A1")
                FL2.Range("L1:L14401").Copy FL1.Range("C1")
                FL2.Range("M1:M14401").Copy FL1.Range("I1")
                FL2.Range("N1:N14401").Copy FL1.Range("O1")
                FL2.Range("O1:O14401").Copy FL1.Range("U1")
                FL2.Range("P1:P14401").Copy FL1.Range("AA1")
            ElseIf FL1.Name = "jeudi" Then
                FL2.Range("A1:A14401").Copy FL1.Range("A1")
                FL2.Range("Q1:Q14401").Copy FL1.Range("C1")
                FL2.Range("R1:R14401").Copy FL1.Range("I1")
                FL2.Range("S1:S14401").Copy FL1.Range("O1")
                FL2.Range("T1:T14401").Copy FL1.Range("U1")
                FL2.Range("U1:U14401").Copy FL1.Range("AA1")
            ElseIf FL1.Name = "vendredi" Then
                FL2.Range("A1:A14401").Copy FL1.Range("A1")
                FL2.Range("V1:V14401").Copy FL1.Range("C1")
                FL2.Range("W1:W14401").Copy FL1.Range("I1")
                FL2.Range("X1:X14401").Copy FL1.Range("O1")
                FL2.Range("Y1:Y14401").Copy FL1.Range("U1")
                FL2.Range("Z1:Z14401").Copy FL1.Range("AA1")
            ElseIf FL1.Name = "samedi" Then
                FL2.Range("A1:A14401").Copy FL1.Range("A1")
                FL2.Range("AA1:AA14401").Copy FL1.Range("C1")
                FL2.Range("AB1:AB14401").Copy FL1.Range("I1")
                FL2.Range("AC1:AC14401").Copy FL1.Range("O1")
                FL2.Range("AD1:AD14401").Copy FL1.Range("U1")
                FL2.Range("AE1:AE14401").Copy FL1.Range("AA1")
            ElseIf FL1.Name = "dimanche" Then
                FL2.Range("A1:A14401").Copy FL1.Range("A1")
                FL2.Range("AF1:AF14401").Copy FL1.Range("C1")
                FL2.Range("AG1:AG14401").Copy FL1.Range("I1")
                FL2.Range("AH1:AH14401").Copy FL1.Range("O1")
                FL2.Range("AI1:AI14401").Copy FL1.Range("U1")
                FL2.Range("AJ1:AJ14401").Copy FL1.Range("AA1")
            End If
        End If
    Next
    Wb.Close
    Application.DisplayAlerts = True
End If
 
End Sub

Merci de vos contributions !

Le problème est résolu, car je ne pourrai pas diminuer le temps de réponse du bouton Restore qui est dû à la taille du fichier de destination (171 Mo).

J'ai testé avec un fichier vide et ça ne prend que 2 s.

Voilà merci à tous pour votre aide !

Tu pourrais gagner beaucoup de temps en désactivant le calcul automatique pendant la phase de restore.