Changement de date

[Pascalbar]

Bonjour
J'ai un souci assez bizarre avec cette procédure

strFolder = ThisWorkbook.Path & "\"
    Dim wbk                        As Workbook
    Dim wbkName                    As String
    Dim fso                        As Object

    Dim Chemin$, Client$, Fichier$
    Chemin = "D:\TDR"
    Client = Txt1.Value
    Date = Txt2.Value
    Fichier = Client & ".xls"

    If Txt1 = "" Or Txt2 = "" Then
        MsgBox "Client et date Obligatoire"
        Exit Sub
    End If

    For Each wbk In Workbooks
        If wbk.Name <> ThisWorkbook.Name Then
            wbk.Close
        End If
    Next wbk

   wbkName = strFolder & Client & Date & ".xls"
    If Dir(wbkName) <> "" Then
        MsgBox "le classeur " & wbkName & "existe déjà", vbExclamation
        Exit Sub
    End If

    Set wbk = ThisWorkbook
    If Dir(strFolder & Client & Date, vbDirectory) = "" Then
        Set fso = CreateObject("Scripting.FileSystemObject")
        fso.createfolder (strFolder & Client)
    End If

    ChDir strFolder
    wbkName = strFolder & Client & Date & ".xls"
    
    ActiveWorkbook.SaveAs strFolder & Client & "\" & Fichier
    Unload Me

Je vérifie si un classeur existe, le crée et enregistre mon fichier dans ledit classeur.
Mis à part que ca rame un peu, mais je crois que j'ai quelques erreurs dans mon code, la procédure fonctionne mais change la date système de Mon PC ?????
Donc comme lors d'un test j'ai crée un fichier avec comme date 11/11/2011,mon Pc était passé à cette date.
Des pistes ?
Merci
Pascal

 

[Pierrot93]

Re : Changement de date

Bonjour Pascal

c'est la ligne de code ci-dessous qui modifie la date système...

Date = Txt2.Value

bon après midi
@+

 

[Pascalbar]

Re : Changement de date

???
A Cause du nom Date ?
Et si je le change en Dt par exemple ?

 

[Pierrot93]

Re : Changement de date

Re,

oui cela devrait mieux fonctionner, en effet le mot "Date" est déjà utilisé par vba comme instruction / fonction et type de donnée, donc ne supporte pas vraiment d'être utilisé comme variable ou nom de procédure...

 

[Pascalbar]

Re : Changement de date

Ok cela fonctionne avec Dt
Je te remercie