Moonschild | Au risque d'apparaitre comme le plus con du monde, tu veux juste copier un fichier que tu nommes d'un dossier a un autre?
Code :
- private sub Button1_click()
- dim chemin1, chemin2, Nomfichier, Nomfichier1, Nomfichier2
- chemin1 = "W:\Tiger\Students\Nicolas Fumard\DOCK AUDITS SHEETS\DV4\"
- chemin2 = "W:\Tiger\Students\Nicolas Fumard\DOCK AUDITS SHEETS\DV4\Weekly save\"
- Nomfichier = "Audits Sheets DV4.xls"
- Nomfichier1 = chemin1 & nomfichier
- Nomfichier2 = chemin2 & nomfichier
- if FileExists(Nomfichier1) = true then 'test pour verifier que le fichier a copier existe
- if FileExists(Nomfichier2) = true then 'test pour verifier si le dossier de destination contient deja ce fichier
- rep = MsgBox("Le fichier " & Nomfichier & " existe deja dans " & chemin2 & Chr(13) & "Supprimer le fichier?", vbExclamation + vbOKCancel, "erreur" )
- If rep = 1 Then
- Kill (Nomfichier2) 'suppression du fichier dans le dossier de reception
- FileCopy Nomfichier1 Nomfichier2
- End If
- else
- FileCopy Nomfichier1 Nomfichier2
- end if
- Else
- msgbox ("le fichier a copier n'existe pas" )
- end if
- end sub
- Function FileExists(ByVal fname As String) As Boolean
- Dim x As String
- x = Dir(fname)
- If x <> "" Then FileExists = True Else FileExists = False
- End Function
|
Désolé si je suis hors sujet, mais je n'aurai, dans ce cas, pas compris le sens de ta demande... ---------------
Si Le Travail C'est La Santé, Donnez Le Mien A Quelqu'un De Malade
|