Bonjour,

Faisant rarement des macros, je butte aujourd'hui sur un problème d'enregistrement de fichier.
J'ai défini des variables qui se répètent maintes fois dans la macro. J'aimerai les utiliser pour l'enregistrement de mon fichier, mais ma macro me renvoie une erreur 76 lorsqu'arrive la sélection du répertoire cible.
Voici la déclaration de mes variables (variables qui changeront lorsque la macro sera achevé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
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
' Définition des variables CONSTANTES
'
'
' ****************************************************************************
' LETTRE RESSOURCE
' ****************************************************************************
'
' Lettre de la ressource utilisée
Const LettreRessource As String = "S:\"
'
'
' ****************************************************************************
' CHEMINS D'ACCES
' ****************************************************************************
'
' Chemin d'accès du fichier modèle
Const CheminFichierModele As String = LettreRessource _
& "OMQ\SAME-QD\QD\Tests\"
'
' Chemin d'accès du fichier à traiter
Const CheminFichierRequete As String = LettreRessource _
& "OMQ\SAME-QD\QD\Tests\Fichiers originaux juin 07\"
'
' Chemin d'accès des fichiers finaux
Const CheminFichierFinal As String = LettreRessource _
& "OMQ\SAME-QD\QD\Tests\Fichier définitif\"
'
' Chemin d'accès du fichier web
Const CheminFichierWeb As String = LettreRessource _
& "OMQ\SAME-QD\QD\Ets inactifs INSEE\ETA-Fichier login web\"
'
'
' ****************************************************************************
' NOMS DES FICHIERS
' ****************************************************************************
'
' Nom du fichier modèle
Const NomFichierModele As String = "STINCC-Modèle et macro.xls"
'
' Nom du fichier 1 à traiter - STINCC avec LOGIN et avec AR
Const NomFichierATraiter1 As String = "STINCC avec LOGIN et avec AR"
'
' Nom du fichier 2 à traiter - STINCC avec LOGIN et sans AR
Const NomFichierATraiter2 As String = "STINCC avec LOGIN et sans AR"
'
' Nom du fichier 3 à traiter - STINCC sans LOGIN et avec AR
Const NomFichierATraiter3 As String = "STINCC sans LOGIN et avec AR"
'
' Nom du fichier 4 à traiter - STINCC sans LOGIN et sans AR
Const NomFichierATraiter4 As String = "STINCC sans LOGIN et sans AR"
'
' Nom du fichier web - ETA inactifs AESOM - Login web-yyyy-m-d
Const NomFichierWeb As String = "ETA inactifs AESOM - Login web-"
'
' Nom du fichier des entreprises - ENT inactives AESOM
Const NomFichierENT As String = "ENT inactives AESOM-"
'
' Nom du fichier des établissements - ETA inactifs AESOM
Const NomFichierETA As String = "ETA inactifs AESOM-"
'
' ****************************************************************************
' EXTENSIONS
' ****************************************************************************
'
' Extension .xls
Const XLS As String = ".xls"
'
'
' ****************************************************************************
' DATES
' ****************************************************************************
'
' Date du jour (format à l'anglaise : aaaa-m-j)
Dim DateJourRU As String
DateJourRU = DatePart("yyyy", Date) & "-" & DatePart("m", Date) & "-" & DatePart("d", Date)
'
' Date du jour (format à la française : j-m-aaaa)
Dim DateJourF As String
DateJourF = Day(Date) & "-" & Month(Date) & "-" & Year(Date)
Et voici la partie commandant l'enregistrement :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
' Sélection du répertoire cible
    ChDir CheminFichierWeb
' Nommage et enregistrement du fichier web
    ActiveWorkbook.SaveAs Filename:= _
        CheminFichierWeb & NomFichierWeb & DateJourRU & XLS _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
Pouvez-vous m'aider à résoudre mon problème ? A noter que la macro fonctionne avec le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
' Sélection du répertoire
    ChDir CheminFichierWeb
' Nommage et enregistrement du fichier
    ActiveWorkbook.SaveAs Filename:= _
        CheminFichierWeb & NomFichierWeb _
        & DatePart("yyyy", Date) & "-" & DatePart("m", Date) & "-" & DatePart("d", Date) & XLS _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
Bruno