Discussion :

[yodu29]

Salut, j'ai un soucis pour copier des modules...

Dans mon programme principal je fais appel à un module afin de copier 11 modules dans un autre fichier excel déjà ouvert...

En local tout fonctionne, mais en réseau, lorsque mes fichiers sont sur un long chemin... J'ai un message d'erreur...

Est-ce dû à une trop longue adresse? Est-ce qq chose venant de mon code?

Ma sub de copie:

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
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
79
80
Sub ExportationModule(nomDuModule)
 
'8 cas = 8 modules à copier pour pouvoir effectuer 2 fonctions
'FIGER / CALCULER REVENU
'DernierMois
'Figer
'FigerDernierMois
'FigerMoisAFiger
'FigerVerif
'Monthly_Revenue
'PremierMois
'verif
 
'il faut aussi copier les 3 userforms
'boiteColonne
'boiteColonneMoisAFiger
'attente
 
Select Case (nomDuModule)
    Case "DernierMois":
        Quoi = "DernierMois" ' remplace modExport par le nom du module à exporter
        ThisWorkbook.VBProject.VBComponents(Quoi).Export ("temp.bas")
        ActiveWorkbook.VBProject.VBComponents.Import ("temp.bas")
        Kill ("temp.bas")
    Case "Figer":
        Quoi = "Figer" ' remplace modExport par le nom du module à exporter
        ThisWorkbook.VBProject.VBComponents(Quoi).Export ("temp.bas")
        ActiveWorkbook.VBProject.VBComponents.Import ("temp.bas")
        Kill ("temp.bas")
    Case "FigerDernierMois":
        Quoi = "FigerDernierMois" ' remplace modExport par le nom du module à exporter
        ThisWorkbook.VBProject.VBComponents(Quoi).Export ("temp.bas")
        ActiveWorkbook.VBProject.VBComponents.Import ("temp.bas")
        Kill ("temp.bas")
    Case "FigerMoisAFiger":
        Quoi = "FigerMoisAFiger" ' remplace modExport par le nom du module à exporter
        ThisWorkbook.VBProject.VBComponents(Quoi).Export ("temp.bas")
        ActiveWorkbook.VBProject.VBComponents.Import ("temp.bas")
        Kill ("temp.bas")
    Case "FigerVerif":
        Quoi = "FigerVerif" ' remplace modExport par le nom du module à exporter
        ThisWorkbook.VBProject.VBComponents(Quoi).Export ("temp.bas")
        ActiveWorkbook.VBProject.VBComponents.Import ("temp.bas")
        Kill ("temp.bas")
    Case "Monthly_Revenue":
        Quoi = "Monthly_Revenue" ' remplace modExport par le nom du module à exporter
        ThisWorkbook.VBProject.VBComponents(Quoi).Export ("temp.bas")
        ActiveWorkbook.VBProject.VBComponents.Import ("temp.bas")
        Kill ("temp.bas")
    Case "PremierMois":
        Quoi = "PremierMois" ' remplace modExport par le nom du module à exporter
        ThisWorkbook.VBProject.VBComponents(Quoi).Export ("temp.bas")
        ActiveWorkbook.VBProject.VBComponents.Import ("temp.bas")
        Kill ("temp.bas")
    Case "verif2":
        Quoi = "verif2" ' remplace modExport par le nom du module à exporter
        ThisWorkbook.VBProject.VBComponents(Quoi).Export ("temp.bas")
        ActiveWorkbook.VBProject.VBComponents.Import ("temp.bas")
        Kill ("temp.bas")
    Case "boiteColonne":
        Quoi = "boiteColonne" ' remplace modExport par le nom du module à exporter
        ThisWorkbook.VBProject.VBComponents(Quoi).Export ("temp.frm")
        ActiveWorkbook.VBProject.VBComponents.Import ("temp.frm")
        Kill ("temp.frm")
        Kill ("temp.frx")
    Case "boiteColonneMoisAFiger":
        Quoi = "boiteColonneMoisAFiger" ' remplace modExport par le nom du module à exporter
        ThisWorkbook.VBProject.VBComponents(Quoi).Export ("temp.frm")
        ActiveWorkbook.VBProject.VBComponents.Import ("temp.frm")
        Kill ("temp.frm")
        Kill ("temp.frx")
    Case "attente":
        Quoi = "attente" ' remplace modExport par le nom du module à exporter
        ThisWorkbook.VBProject.VBComponents(Quoi).Export ("temp.frm")
        ActiveWorkbook.VBProject.VBComponents.Import ("temp.frm")
        Kill ("temp.frm")
        Kill ("temp.frx")
End Select
 
End Sub

Mon programme principal où j'appelle l'algo de copie:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Sub finRevenuRecognition()
 
    'Fermeture de cette feuille excel :'( ou pas :>
    '-----------------------------------------------
    Application.ScreenUpdating = True
    'Workbooks(ThisWorkbook.Name).Close
 
    '-----------------------------------------------
    'Copie des modules d'ici vers le fichier crée
        'Réalisera les fonctions FIGER/CALCULER
        '8 cas = 8 modules à copier pour pouvoir effectuer 2 fonctions
            'FIGER / CALCULER REVENU
            'DernierMois
            'Figer
            'FigerDernierMois
            'FigerMoisAFiger
            'FigerVerif
            'Monthly_Revenue
            'PremierMois
            'verif
            copieModule.ExportationModule ("DernierMois")
            copieModule.ExportationModule ("Figer")
            copieModule.ExportationModule ("FigerDernierMois")
            copieModule.ExportationModule ("FigerMoisAFiger")
            copieModule.ExportationModule ("FigerVerif")
            copieModule.ExportationModule ("Monthly_Revenue")
            copieModule.ExportationModule ("PremierMois")
            copieModule.ExportationModule ("verif2")
 
        'Il faut aussi copier les 3 userforms
            'boiteColonne
            'boiteColonneMoisAFiger
            'attente
            copieModule.ExportationModule ("boiteColonne")
            copieModule.ExportationModule ("boiteColonneMoisAFiger")
            copieModule.ExportationModule ("attente")
't2 = Timer
't = t2 - t1
'MsgBox ("L'opération a mis " & t & "secondes.")
 
Unload attenteRR
 
MsgBox ("Action Successful")
 
 
End Sub

[ouskel'n'or]

Peut être un problème de temps de copie. Sépare tes lignes de copie d'un DoEvents (F1 pour savoir de quoi il retourne)

Code :

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

1
2
3
4
copieModule.ExportationModule ("DernierMois")
DoEvents
copieModule.ExportationModule ("Figer")
DoEvents

Une explication ? Le réseau doit ralentir la copie, or la macro n'attend pas et continue à s'exécuter, d'où elle se croise les genoux d'où erreur (!)
Juste une suggestion... Tu testes

[yodu29]

Merci pour le DoEvents, je ne connaissais pas

Je l'ai mis, ca ne changeait rien... mais le problème est résolu

Sur mon poste, tout fonctionnait bien... mais pas sur certains postes... en fait la sécurité empêcher Excel d'accéder au projet Visual Basic... et cela empechait la copie de macro

Mon code fonctionne correctement, si certains en ont besoin, n'hésitez pas