1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
Application.DisplayAlerts = False 'Les fichiers Résultat (de sortie) de même nom seront écrasés
'Création des fichiers Résultat (de sortie)
For f = 1 To 4
Workbooks.Add
ActiveWorkbook.SaveAs RepRes & FicRes(f), FileFormat:=xlCSV, CreateBackup:=False, Local:=True
'Inscription des titres des fichiers Résultat (de sortie)
For co = 1 To NbcoRes
Cells(1, co) = TitreRes(f, co)
Next co
'Mise au format de certaines colonnes
If f <> 1 Then
Range("D:D").NumberFormat = "m/d/yyyy" 'Format date jj/mm/aaaa
Range("E:E").NumberFormat = "h:mm;@" 'Format heure hh:mm
Range("M:M").NumberFormat = "m/d/yyyy" 'Format date jj/mm/aaaa
Else 'Cas particulier de Détail
Range("H:H").NumberFormat = "m/d/yyyy" 'Format date jj/mm/aaaa
End If
Next f
Application.DisplayAlerts = True |
Partager