Discussion :

[ouioui_cmoi]

Bonjour
J’écris un programme qui permet de copier coller le fichier blabla+date anterieure d’un dossier A à un dossier B, et qui supprime ensuite le fichier du dossier B.
(d’ailleurs, je le fais par des saveas, donc s’il existe le moyen de couper un fichier pour le coller, je suis preneur…)
Un nouveau fichier est alors créé avec la date du jour.
Mais, si la macro est effectuee 2 fois le meme jour par mégarde, la macro ne fonctionnera plus, et le fichier disparaitra du dossier A
Y’a-t-il un moyen de trouver une condition qui dans le cas où le programme ne trouve pas le fichier demandé, va aller copier le fichier dans le dossier B et le coller dans A, afin d’éxécuter la macro normalement… (c’est surtout l’écriture de la condition qui me pose probleme…)
Merci par avance de toute aide

[ML0808]

Vu sur le net :

Code :

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

1
2
3
4
5
6
7
8
9
Function FichierExistant(NomFichier)
 
    Dim fso
 
    Set fso = CreateObject("Scripting.FileSystemObject")
    FichierExistant = fso.FileExists(NomFichier)
    Set fso = Nothing
 
End Function

à utiliser en guise de condition ainsi :

Code :

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

1
2
3
If FichierExistant(NomFichier) = False Then
pouet pouet
End If

pas testé

[ucfoutu]

A main levée :

Code :

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

1
2
3
If dir(chemin_du-fichier,0) = "" then
  'pôuet pouet  (comme dit ailleurs ;))
end if

et je ne charge pas la référence à FSO !!!

profite de l'occasion ... va voir ma réponse (pour plus "compliqué") ici :
http://www.developpez.net/forums/sho...d.php?t=507600
et analyse-là (ce te sera utile un jour ou l'autre).