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