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 :
je stocke dans la cellule E1 pour vérifier si ça a bien fonctionné pour ensuite
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
remplacer ce stockage par la ligne
mais apparemment, il y a un problème avec la déclaration de la structure stockdate
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
merci d'avance pour votre aide
Partager