Salut à tous,
J'ai un petit problème pas négligeable qui se pose,
J'ai un programme avec plusieurs modules
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.
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
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
Partager