Bonjour,
Je voudrais résoudre le problème suivant :
J'ai des nom de fichiers du type:
Fich1 = "Facturation20100101.xls"
Je retrouve avec le code ci-dessous l'année, le mois, le jour qui correspondent à ce fichier
annee1 = Mid(Fich1, 12, 4) * 1 'soit 2010
If Mid(Fich1, 16, 1) = "0" Then mois1 = Mid(Fich1, 17, 1) * 1 Else mois1 = Mid(Fich1, 16, 2) * 1 'soit 1
If Mid(Fich1, 18, 1) = "0" Then jour1 = Mid(Fich1, 19, 1) * 1 Else jour1 = Mid(Fich1, 18, 2) * 1 'soit 1
Je voudrais retrouver le nombre qui correspond à cette date soit pour le 1er janvier 2010: 40179
j'essaie :
dat1= date(annee1, mois1, jour1) mais cela ne marche pas
Merci pour votre aide,
Cordialement
Je voudrais résoudre le problème suivant :
J'ai des nom de fichiers du type:
Fich1 = "Facturation20100101.xls"
Je retrouve avec le code ci-dessous l'année, le mois, le jour qui correspondent à ce fichier
annee1 = Mid(Fich1, 12, 4) * 1 'soit 2010
If Mid(Fich1, 16, 1) = "0" Then mois1 = Mid(Fich1, 17, 1) * 1 Else mois1 = Mid(Fich1, 16, 2) * 1 'soit 1
If Mid(Fich1, 18, 1) = "0" Then jour1 = Mid(Fich1, 19, 1) * 1 Else jour1 = Mid(Fich1, 18, 2) * 1 'soit 1
Je voudrais retrouver le nombre qui correspond à cette date soit pour le 1er janvier 2010: 40179
j'essaie :
dat1= date(annee1, mois1, jour1) mais cela ne marche pas
Merci pour votre aide,
Cordialement