Bonjour tout le monde

Mon petit problème du jour est le suivant :

en utilisant Date$, il me donne la valeur suivante :
19/07/2010

Moi je voudrais qu'il me retourne 20100719 en gardant le format string

Le bute de la manœuvre étant qu'avant de modifier quoi que ce soit du fichier source appelé toto.xls, je crée une copie SAV20100719toto.xls

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
 
Sub Macro2()
 
 
    Public Type stockdate
        jour As String
        mois As String
        annee As String
    End Type
 
    'Mid("Vendredi", 5, 2)           renvoie "re"    Mid(chaine, start, nb_caractere)
 
    stockdate = Date$
    stockdate.jour = Mid(stockdate, 1, 2)
    stockdate.mois = Mid(stockdate, 4, 2)
    stockdate.annee = Mid(stockdate, 7, 4)
 
    stockdate = stockdate.annee & stockdate.mois & stockdate.jour
 
    Cells(1, "E") = stockdate
 
End Sub
je stocke dans la cellule E1 pour vérifier si ça a bien fonctionné pour ensuite
remplacer ce stockage par la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
nomfichier = "C:\Documents and Settings\laborder\Bureau\SAV" & stockdate & ".xls"
FileCopy "C:\Documents and Settings\laborder\Bureau\toto.xls", nomfichier
mais apparemment, il y a un problème avec la déclaration de la structure stockdate

merci d'avance pour votre aide