Discussion :

[challe1976]

Bonjour,

Je réellement bloquée, et j'aimerais beaucoup avoir de l'aide de quelqu'un.

J'ai un application Access qui en cliquant sur un bouton copie les données dans un fichier Excel existant avec déjà un en-tête.

Sauf qu'il bogue et un message apparait: "Argument non facultatif"

Pouvez-vous m'aider s'il vous plait ?

Je remercie énormément celui qui m'aidera.

Catherine

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
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
 
 
 
        Dim rs As DAO.Recordset
        Set rs = CurrentDb().OpenRecordset("T-RMX")
 
 
        'Créer le répertoire
        RepertoireResultat = GestionFichier.CreerRepertoireMensuel(Maintenant)
 
        'Obtenir le nom du fichier
         nomOriginal = GestionFichier.FormaterNomFichier(repertoireCourant, _
                                                     Stat_Rev_RPV_RMX_SLE, _
                                                     "", _
                                                     "xlt")
 
         nomFinal = GestionFichier.FormaterNomFichier(RepertoireResultat, _
                                                     "Stat_Rev_RPV_RMX_SLE", _
                                                     Maintenant, _
                                                     "_yyyy-mm-dd", _
                                                     "xlsx")
 
        'Obtenir l'application Excel
        GestionExcel.ObtenirApplication
 
 
        'Obtenir un nouveau chiffrier Excel
        GestionExcel.ObtenirCopie nomOriginal, nomFinal
 
        'Écrire l'entête
        GestionExcel.EcrireEnteteDAO 1, 1, rs
 
        'Écrire les valeurs
        GestionExcel.EcriredonnesDAO 2, 1, rs
 
        GestionExcel.FormatterDisp 2
        GestionExcel.FormatterNoTr 7
 
        'Élargir les colonnes selon le contenu
        GestionExcel.AutofitColumns
 
        'Enregistrer
        GestionExcel.Enregistrer
 
        'Afficher les résultats
        GestionExcel.Visible = True

[marot_r]

Bonjour,

Sauf qu'il bogue et un message apparait: "Argument non facultatif"

Sur quelle ligne ?

A+

[challe1976]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
nomOriginal = GestionFichier.FormaterNomFichier(repertoireCourant, _
                                                     Stat_Rev_RPV_RMX_SLE, _
                                                     "", _
                                                     "xlt")

[marot_r]

FormaterNomFichier n'est pas une procédure standard de Access.

Il faudrait que tu vérifies le nombre de paramètres attendu par cette procédure.

Un façon rapide de l'atteindre : cliquer droit sur FormaterNomFichier puis choisir "Définition" dans le menu contextuel. Cela va t'amener directement au code correspondant.

A+