Bonjour,
j'ai une erreur sur une macro "argument nommé non trouvé" mais je ne vois pas où est le probleme! L'erreur pointe sur le "Local:=True"
voici mon code
quelqu'un aurait une idée ?
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 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