Salut à tous,

J'ai un petit problème pas négligeable qui se pose,

J'ai un programme avec plusieurs modules

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
 
Sub fichier_parPM()
Dim nb_pm As Integer
Dim i As Integer
 
Application.ScreenUpdating = False
Chemin = "C:\Users\frdorap\Documents\fichier analyse\"
Fichier = "analyse " & nom_PM & " du " & Format(Date, "dd_mmm_yyyy")
 
With Feuil3
.Columns("A:A").Hidden = False
nb_pm = .Cells(.Rows.Count, 1).End(xlUp).Row
 
For i = 1 To nb_pm
  nom_PM = .Cells(i, 1).Value
   Call mise_en_forme  'met en forme le fichier resultat
   Call ouvrir_analyse_pm  'ouvre et enregistre le fichier
   Call controle_technique  'traite les contrôle des résultat
 
Application.DisplayAlerts = False
Workbooks("analyse " & nom_PM & " du " & Format(Date, "dd_mmm_yyyy") & ".xls").SaveAs Chemin & Fichier & ".xls"
 
Workbooks("analyse " & nom_PM & " du " & Format(Date, "dd_mmm_yyyy") & ".xls").Close
Application.DisplayAlerts = True
Next i
 
.Columns("A:A").Hidden = True
 
End With
 
Application.ScreenUpdating = True
Shell "Explorer.exe ""C:\Users\frdorap\Documents\fichier analyse""", vbNormalFocus
le problème c'est qu'il y a des macro accroché à une page des fichiers qui sont créés... et lors de la sauvegarde, il perd toute les macro.

Comment faire pour ne pas perdre ces ligne de code??

N'hésitez pas à demander plus de précision, c'est très difficile à expliquer comme il faut le problème par ce que je vais pas donner tout le code.

Merci d'avance pour votre aide
Cdt
DoDo