Bonjour le forum, une fois de plus j'ai besoin de vos lumières. Avec le code suivant je tente de détecter la présence d'un fichier sur un serveur en réseau, si celui-ci est absent alors il doit me sauvegarder le fichier avec la date du mois précèdent. Jusque là ça va, c'est quand il tombe sur le fichier déjà existant que ça bloque, il me demande si je veux l'écraser or par le code suivant je pensai lui dire que si le fichier existe tu sors du code mais non...
Un petit coup de main svp, car là ça me rend chèvre!
Merci par avance à tous!!!
Un petit coup de main svp, car là ça me rend chèvre!
Merci par avance à tous!!!
Sub Test_Archivage()
Dim vnomfichier As String
Dim Vchemin As String
Dim strdate As String
Dim mois As String
Dim annee As String
Dim vnomfichierbase As String
Dim test As String
strdate = Format(CDate(Date), "mm") ' & Format(Time, "h-mm-ss"))
annee = Format(CDate(Date), "yy")
vnomfichier = ("Calcul")
mois = strdate - 1
vnomfichierbase = ("Calcul Mois en Cours")
test = "\\Test\2010\" + mois + " " + vnomfichier + " " + annee + ".xls"
If Dir(test, vbNormal) <> "" Then
Exit Sub
Else
Archiver_le_mois_precedent
End If
End Sub