Je veux cr=E9er un repertoire avec comme param=E9tre l'ann=E9e=20
et le mois en cours, j'ai d=E9velopp=E9 ce code mais il ne=20
cr=E9e rien ?
Dim periode as date
Dim mois, annee, rep as string=20
Periode =3D CDate(Now())
Mois =3D Mid(Periode, 4, 2)
Annee =3D Mid(Periode, 7, 4)
valeur_date =3D Mois & Annee
rep =3D "D:\LCF\" & valeur_date
ChDrive "D:\"
=20
On Error Resume Next
x =3D GetAttr(rep) And 0
If Err <> 0 Then
MkDir rep
End If
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel Pierron
Bonjour RacKar; Sub CreateDir() Const Prefix As String = "C:LCF" Dim Suffix As String
' Au cas où le répertoire Prefix est inexistant ! If Dir(Prefix, vbDirectory) = "" Then MkDir Prefix Suffix = Prefix & "" & Format(Month(Date), "00") & Year(Date) & "" If Dir(Suffix, vbDirectory) = "" Then MkDir Suffix End Sub
MP "RacKar" a écrit dans le message de news:0a2801c352a3$92b94c70$ Bonjour,
Je veux créer un repertoire avec comme paramétre l'année et le mois en cours, j'ai développé ce code mais il ne crée rien ?
Dim periode as date Dim mois, annee, rep as string
Periode = CDate(Now()) Mois = Mid(Periode, 4, 2) Annee = Mid(Periode, 7, 4) valeur_date = Mois & Annee rep = "D:LCF" & valeur_date ChDrive "D:"
On Error Resume Next x = GetAttr(rep) And 0 If Err <> 0 Then MkDir rep End If
Bonjour RacKar;
Sub CreateDir()
Const Prefix As String = "C:LCF"
Dim Suffix As String
' Au cas où le répertoire Prefix est inexistant !
If Dir(Prefix, vbDirectory) = "" Then MkDir Prefix
Suffix = Prefix & "" & Format(Month(Date), "00") & Year(Date) & ""
If Dir(Suffix, vbDirectory) = "" Then MkDir Suffix
End Sub
MP
"RacKar" <rkarkari@gfimaroc.com> a écrit dans le message de
news:0a2801c352a3$92b94c70$a301280a@phx.gbl...
Bonjour,
Je veux créer un repertoire avec comme paramétre l'année
et le mois en cours, j'ai développé ce code mais il ne
crée rien ?
Dim periode as date
Dim mois, annee, rep as string
Periode = CDate(Now())
Mois = Mid(Periode, 4, 2)
Annee = Mid(Periode, 7, 4)
valeur_date = Mois & Annee
rep = "D:LCF" & valeur_date
ChDrive "D:"
On Error Resume Next
x = GetAttr(rep) And 0
If Err <> 0 Then
MkDir rep
End If
Bonjour RacKar; Sub CreateDir() Const Prefix As String = "C:LCF" Dim Suffix As String
' Au cas où le répertoire Prefix est inexistant ! If Dir(Prefix, vbDirectory) = "" Then MkDir Prefix Suffix = Prefix & "" & Format(Month(Date), "00") & Year(Date) & "" If Dir(Suffix, vbDirectory) = "" Then MkDir Suffix End Sub
MP "RacKar" a écrit dans le message de news:0a2801c352a3$92b94c70$ Bonjour,
Je veux créer un repertoire avec comme paramétre l'année et le mois en cours, j'ai développé ce code mais il ne crée rien ?
Dim periode as date Dim mois, annee, rep as string
Periode = CDate(Now()) Mois = Mid(Periode, 4, 2) Annee = Mid(Periode, 7, 4) valeur_date = Mois & Annee rep = "D:LCF" & valeur_date ChDrive "D:"
On Error Resume Next x = GetAttr(rep) And 0 If Err <> 0 Then MkDir rep End If
