Discussion :

[daddygraffiti]

Bonjour,

Comment ce code doit marcher ?
1) j'ouvre le fichier excel avec le modul VBA comportant le code
2) je chope un .xls que j'ouvre
3) je lance le code

Dans un module, les premieres lignes de la macro ont pour but de sauvegarder le fichier .xls ouvert en 2) avec le nom et dans le répertoire précisés le code.

Or, j'ai une "Erreur d’exécution 13 : Incompatibilité de type" sur la ligne 6
Pourquoi ?

Merci et j'attends vos feedback.

Code :

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

1
2
3
4
5
6
7
 
Sub Test()
 
rappro_zatox = "C:\Users\daddy\Desktop\projet comparaison\base\test\zatox"
date_prec = DateSerial(Year(Date), Month(Date), 1) - 1
rappro_zatox = rappro_zatox + "-" + date_prec + ".xls"
ActiveWorkbook.SaveAs rappro_zatox

[Daniel.C]

Bonjour,

Mets :

Code :

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

rappro_zatox = "C:\Users\daddy\Desktop\projet comparaison\base\test\zatox\"

[daddygraffiti]

Bonjour Daniel.C,

Merci pour ton retour mais cela n'a pas résolu l'erreur..

En fait, j'ai l'erreur '13' sur la ligne 6 du code que j'ai copié/collé dans le post #1 :

Code :

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

1
2
 
rappro_zatox = rappro_zatox + "-" + date_prec + ".xls"

As-tu une autre idée ?

Merci d'avance !

[nibledispo]

Bonjour,

Et si tu fais ceci :

Code :

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

1
2
 
rappro_zatox = rappro_zatox + "-" + Format(Date_prec, "yyyymmdd") & ".xls"

Cordialement,

[daddygraffiti]

Hello nibledispo,

Merci pour ton retour, effectivement windows n'accepte pas les "\" !

J'ai également déclaré ma variable date en string et ça marche impec !

Bonne soirée à tous