Discussion :

[BenoitM]

Ah oui , donner du code à la va-vite c'est pas top

En faite c'est juste pour voir s'ils sont attentifs où s'ils ne font qu'un simple copier coller sans essayer de comprendre le code

[Attila54]

mouaichhhhhhh c'est bon, ca fonctionne impeccablement. C'etait effectivement un problème de syntaxe que j'avais .......
Un gros merci a vous 2 pour l'aide à la résolution du probleme

[Attila54]

par contre, je "dérésouds" le topic car avec cette histoire de formatage de date, j'ai du mal a transferer le fichier d'un rep a l'autre visiblement a cause de cette date

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
Private Sub filemove()
        Dim myDate As DateTime
        Imprimer.Visible = False
        Quitter.Visible = False
        Buttonvalidate.Visible = False
        Try
            Dim FileSource As String
            Dim FileDestination As String
            FileSource = "\\nas\mon_repsource\" & Txtnom.Text & "-" & txtPrenom.Text & "-" & myDate.ToString("ddMMyyyy") & ".jpeg"
            FileDestination = "\\nas\mon_repdestination\" & Txtnom.Text & "-" & txtPrenom.Text & "-" & myDate.ToString("ddMMyyyy") & ".jpeg"
            If File.Exists(FileSource) = False Then
                MessageBox.Show("Fichier introuvable")
                Exit Sub
            End If
            If File.Exists(FileDestination) Then
                File.Delete(FileDestination)
            End If
            File.Move(FileSource, FileDestination)
        Catch ex As Exception
            MessageBox.Show(String.Format("The process failed: {0}", ex.ToString()))
        End Try
    End Sub

et paf, a chaque fois j'ai "fichier introuvable". alors que le fichier existe bien dans le rep source. Je pense que c'est du au

& myDate.ToString("ddMMyyyy")

pourtant j'ai bien declare le mydate

[shayw]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim myDate As DateTime

tu ne lui assignes aucune valeur dans ton code

[Attila54]

mais sauf erreur de ma part, c'est la même valeur que dans la sub validation precedante puisque c'est ce même fichier image que je déplace d'un rep à l'autre ....

[BenoitM]

myDate est déclarée dans la Sub donc elle n'a une porté que dans celle-ci or aucune valeur n'est associée à cette variable

Il faut refaire le tryParse

Le mieux serait de passer en parametre à ta foncton filemove fileSource et fileDestination

[-N4w4k-]

Je serais toi je jetterais un coup d'oeil au cours sur la portée des variables.

[shayw]

en faite je n'ai pas compris pourquoi tu fais une conversion en date
c'est juste pour faire une concatenation pour le filename de ton fichier
puisque tu saisis la date avec DateTime.Now.ToShortDateString
donc tu as forcément une date valide
et ensuite tu peux écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  txtdate.text = DateTime.Now.ToShortDateString.Replace("/", "")

[Attila54]

c'est fait nawak j'ai el cours et je le regarde depuis pas mal de temps .....
ceci dit c'est bon, tout fonctionne correctemetn cette fois ci, fallait remettre le tryParse comme tu l'as dit benoitM
Ce coup ci, repassage definitif en résolu et gros merci a tous

[BenoitM]

Faut surtout lui passer en parametre les nom des fichiers sources et destination

Faut pas lire que la moitier du post

euh shayw

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

txtdate.text = DateTime.Now.ToString("ddMMyyyy")

pas besoin de replace