Bonjour à tous.

Je vous écris parce que j'ai des problème avec les fichiers que j'ai enregistrés par la macro suivante :

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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
Sub EnregistrerS()
 
'enregistrer le warid_bss et le template sous les dates du jour
Dim a, b, c, e, f, g As String
Dim d As Integer
 
d = InputBox("choisir le type de fichier a enregistrer :" & Chr(13) & Chr$(10) & "1 pour le consolidate;" & Chr(13) & Chr$(10) & _
"2 pour letemplate;" & Chr(13) & Chr$(10) & "3 pour le daily RS report;" & Chr(13) & Chr$(10) & "4 pour le weekly optimization consolidate report ;" _
& Chr(13) & Chr$(10) & "5 pour le Weekly optimization template;" & Chr(13) & Chr$(10) & "6 pour le CSSR analysis;" & Chr(13) & Chr$(10) & "7 pour le blocking analysis;" _
& Chr(13) & Chr$(10) & "8 pour le CDR analysis;" & Chr(13) & Chr$(10) & "9 pour le weekly optimization BSC ;" _
& Chr(13) & Chr$(10) & "10 pour le RF GPRS report1-disque dur", "Enregistrement automatique")
a = InputBox("veuillez inserer la date du jour dans le modele anglosaxon _month/day/year_ex:3/31/2008 pour le 31 mars 2008 _ ou le numero de semaine)", _
"date", Date - 1)
 
c = Format(a, "[$-409]mmmm d, yyyy;@")
 
Select Case d
 
    Case 1
    Windows("Warid_Bss.xls").Activate
    c = "WaridBSS Consolidated Stats " & c
    MsgBox c
    g = "D:\performances\BSS reports\Daily BSS report\Transient\Step-1\200907\"
 
    Case 2
    Windows("WaridBSS Busy Hour Stats Template.xls").Activate
    Sheets("report").Visible = False
    Sheets("Summary").Select
    Range("a3").Select
    ActiveWorkbook.Save
    c = "WaridBSS Busy Hour Stats " & c
    MsgBox c
    g = "D:\performances\BSS reports\Daily BSS report\Daily BSS report 2009\daily BSS reports-July09\"
 
    Case 3
    c = "daily evolution RS KPI BH-" & c
    MsgBox c
    g = "D:\performances\DAILY REPORTS FOR RS\July 2009\"
 
    Case 4
    Windows("weekly Warid_Bss.xls").Activate
    c = "Optimization Consolidated data-Week " & a
    MsgBox c
    g = "D:\performances\BSS reports\Weekly optimization report\Excel Weekly Optimization Report\Consolidated data\"
 
    Case 5
    Windows("Weekly Optimization Report Week template.xlsm").Activate
    c = "Weekly Optimization Report Week " & a
    MsgBox c
    g = "D:\performances\BSS reports\Weekly optimization report\Excel Weekly Optimization Report\Excel Optim reports 2009\"
 
    Case 6
    Windows("hourly CSSR analysis.xls").Activate
    c = "Cells Busy hour CSSR analysis of " & c
    MsgBox c
    g = "D:\performances\DAILY REPORTS FOR RS\Main KPIs analysis\CSSR analysis-2009\BH CSSR-2009July\"
 
    Case 7
    Windows("hourly blocking analysis.xls").Activate
    c = "Cells Busy hour blocking analysis of " & c
    MsgBox c
    g = "D:\performances\DAILY REPORTS FOR RS\Main KPIs analysis\Blocking analysis-2009\BH blocking-2009July\"
 
    Case 8
    Windows("hourly CDR analysis.xls").Activate
    c = "Cells Busy hour CDR analysis of " & c
    MsgBox c
    g = "D:\performances\DAILY REPORTS FOR RS\Main KPIs analysis\Blocking analysis-2009\BH CDR-2009July\"
 
    Case 9
    Windows("Weekly Optimization BSC.xls").Activate
    c = "Weekly Optimization BSC-Week " & a
    MsgBox c
    g = "D:\performances\BSS reports\Weekly optimization report\Excel Weekly Optimization Report\BSC optimization data\"
 
    Case 10
    Windows("GPRS report template.xlsx").Activate
 
    Sheets("GPRS summary").Select
    ActiveWorkbook.Save
    c = "RF GPRS reports-" & c
    g = "D:\performances\GPRS report\RF GPRS reports 2009\RF GPRS reports-July2009\"
    MsgBox c
 
 
End Select
 
e = g + c
 
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=e
Application.DisplayAlerts = True
If d = 1 And 4 Then
 
    ActiveWorkbook.Close
 
End If
 
If d = 10 Then
    'Suppression des feuilles avec graphes
    j = ActiveWorkbook.Sheets.Count
    Application.DisplayAlerts = False
    For i = j To 4 Step -1
         Sheets(i).Delete
    Next
    ActiveWorkbook.Save
    Application.DisplayAlerts = True
 
 
End If
 
End Sub


J'extrais mes données d'un serveur qui ne fournit que des fichiers compatibles 97-2000. Au départ, j'ai voulu les enregistrer directement en version xlsx (case 4) en changeant l'extension, mais cela m'as donné des fichiers corrompus impossibles à ouvrir. J'ai donc décidé de les enregistrer dans le format d'origine càd .xls. au début, pas de problème, mais depuis 2 ou 3 semaine (c une macro que j'execute hebdomadairement), la macro se déroule sans problème mais qd je tente de réouvrir ledit fichier, Excel se plante et qd je tente de récupérer le fichier, il est complètement modifier, donc inutilisable.
c'est à peu près le même problème avec le case 5 sauf que le fichier d'origine est de format .xlsm et que je veux l'enregistrer sous .xlsx.

C'est vraiment embêtant car ce sont des fichiers-source pour un rapport word que je dois envoyer chaque lundi matin et ces problèmes font que je suis obligée de l'envoyer dans l'après-midi ou de les refaire manuellement alors qu'ils sont très long. Est-ce que quelqu'un peut m'aider à résoudre ce problème ou m'indiquer un tutoriel qui traite de la gestion des formats avec VBA?

Merci d'avance et bonne fin d'après-midi.