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


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
quelqu'un aurait une idée ?