Discussion :

[stephanies_1977]

Bonjour à tous,

Je sais qu'il y a déjà plusieurs discussions sur ce sujet, mais apparemment personne n'a le même problème que moi, et je suis sure qu'il est tout bête !

Voila, j'utilise le code suivant pour sauvegarder un fichier avec la date du jour dans un dossier qui change selon la valeur d'une cellule:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub SaveWorkbook()
 
Dim Chemin1$, Client$, Fichier$, Jour$
Chemin1 = "C:\Analyse Competition\Offers\"
Jour = Format(Now(), "yyyymmdd"
Client = Range("B3")
Fichier = "Analyse" & "_" & Client & "_" & Jour & ".xls"
If Dir(Chemin1 & Client, 16) = "" Then MkDir Chemin1 & Client
ActiveWorkbook.SaveAs Chemin1 & Client & "\" & Fichier
 
End Sub

Jusque la tout va bien.
je recopie ce code dans un autre classeur et en modifie certains paramètres (chemin, client, fichier) mais j'obtiens un message d'erreur sur le mot FORMAT

J’ai donc modifié un petit peu le code pour avoir ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
 
 
Dim Chemin1$, Client$, Fichier$, Jour$
Chemin1 = "C:\2008\SALES RESULTS\Intranet Files\"
Jour = Range("Q3").NumberFormat = "yyymmdd"
Client = Month(Now)
Fichier = "Daily" & "_" & Jour & ".xls"
If Dir(Chemin1 & Client, 16) = "" Then MkDir Chemin1 & Client
ActiveWorkbook.SaveAs Chemin1 & Client & "\" & Fichier
 
 
End Sub

Ça fonctionne correctement sauf que le nom du fichier devient :
Daily_Faux.xls
Et donc pas avec la date du jour

Est-ce que quelqu'un peut m'aider ???

d'avance merci !

[ouskel'n'or]

Oui, NumberFormat s'applique pour une cellule ou une plage de cellule, non pour affecter un format à la valeur récupérée. Teste ça

Code :

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

Jour = Format(Range("Q3"),"yyymmdd")

[ucfoutu]

Code :

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

Jour = Range("Q3").NumberFormat = "yyymmdd"

cette expression (avec 2 égalités) est du type a = b = c
et ne peut que renvoyer True ou False

ceci, par exemple, te renverra True :

Code :

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

1
2
3
4
5
6
Private Sub Command1_Click()
 a = 2
 b = 2
 c = -1
 MsgBox a = b = c
End Sub

[stephanies_1977]

OK
en mettant

Code :

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

Jour = Format(Range("Q3"),"yyymmdd")

j'obtiens le fameux message d'erreur sur le mot FORMAT:
"Erreur de compilation
Nombre d'arguments incorrect ou affectation de propriété incorrecte"

...

[ouskel'n'or]

Ok. As-tu vérifié si la référence "Visual Basic for application" était validée dans le projet VBA -> Editeur VBA -> Outils -> Références
Je viens de tester avec now() et j'ai un résultat "abracadabrantesque". Tu as quelque chose de cohérent, toi ?
Teste ça, sans Format

Code :

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

Jour = Right(Year(Cells(2, 1)), 3) & Right("0" & Month(Cells(2, 1)), 2) & Right("0" & Day(Cells(2, 1)), 2)

[stephanies_1977]

ça fonctionne, mais voici le résultat : Daily_8991230.xls

quant aux références, tout y est

en cherchant sur différents forums, j'ai également trouvé le code suivant :

Code :

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

1
2
3
D = Day(Now) & Month(Now) & Year(Now)
 
 ActiveWorkbook.SaveAs Filename:="C:\2008\SALES RESULTS\Intranet Files\Daily" & "_" & D & ".xls"

ça fonctionne, mais j'aimerais vraiment avoir ma date au format "yyyymmdd"

comment ce fait que dans un fichier mon code initial fonctionne correctement et que dans un autre il bug sur le mot "format" ?
la encore j'ai vérifié les référence entres les deux classeurs et j'ai fait en sorte que ce soient les mêmes

...

[ucfoutu]

Code :

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

MsgBox Format(Now, "ddmm") & Right(Format(Now, "yyyy"), 3)