Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

tester si un fichier existe avant de le sauvegarder par macro

4 réponses
Avatar
kared
bonjour,

j'ai 2 fichiers : le premier est constitu=E9 de diverses=20
donn=E9es qui concernent la journ=E9e en cours et le duxieme=20
recapiltule ligne apres lignes le total du prmier =E0 la fin=20
de chaque journ=E9e (je recopie la ligne total du premier =E0=20
dans le deuxieme fichier) celui ci est nom=E9 toto_aaaa.xls=20
(ou aaaa correspond =E0 l'ann=E9e en cours. il me manque la=20
commande qui me permette de tester si le fichier existe.

if #test si le fichier existe#
then workbook.open "toto_" + date + ".xls"
else workbook.open toto_vierge.xls
#recopie de la ligne total#
workbook.save as "toto_" + date + ".xls"

je recupere la date avec dateserial(year(now), month ....)=20

si quelqu'un connais la commande ou une astuce pour faire=20
ce genre de chose ce serait super sympa

cela existe peut etre d=E9ja dans le forum mais je n'ai pas=20
trouv=E9 ainsi que sur excel labo ( je sais c'est pas bien=20
je poste la meme journ=E9e)

merci d'avance

4 réponses

Avatar
Hervé
Salut Kared,
Peut être de cette façon ?

Function Existe(Fichier As String) As Boolean
If Dir(Fichier) <> "" Then Existe = True
End Function

Sub test()
MsgBox Existe("D:Classeur1.xls")
End Sub

Hervé

"kared" a écrit dans le message news:
073701c3c8a0$b23116f0$
bonjour,

j'ai 2 fichiers : le premier est constitué de diverses
données qui concernent la journée en cours et le duxieme
recapiltule ligne apres lignes le total du prmier à la fin
de chaque journée (je recopie la ligne total du premier à
dans le deuxieme fichier) celui ci est nomé toto_aaaa.xls
(ou aaaa correspond à l'année en cours. il me manque la
commande qui me permette de tester si le fichier existe.

if #test si le fichier existe#
then workbook.open "toto_" + date + ".xls"
else workbook.open toto_vierge.xls
#recopie de la ligne total#
workbook.save as "toto_" + date + ".xls"

je recupere la date avec dateserial(year(now), month ....)

si quelqu'un connais la commande ou une astuce pour faire
ce genre de chose ce serait super sympa

cela existe peut etre déja dans le forum mais je n'ai pas
trouvé ainsi que sur excel labo ( je sais c'est pas bien
je poste la meme journée)

merci d'avance
Avatar
Pierre CFI [mvp]
bonjour
pour savoir si un fichier existe
if dir("chemin et nom fichier") = "" existe pas

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"kared" a écrit dans le message de news: 073701c3c8a0$b23116f0$
bonjour,

j'ai 2 fichiers : le premier est constitué de diverses
données qui concernent la journée en cours et le duxieme
recapiltule ligne apres lignes le total du prmier à la fin
de chaque journée (je recopie la ligne total du premier à
dans le deuxieme fichier) celui ci est nomé toto_aaaa.xls
(ou aaaa correspond à l'année en cours. il me manque la
commande qui me permette de tester si le fichier existe.

if #test si le fichier existe#
then workbook.open "toto_" + date + ".xls"
else workbook.open toto_vierge.xls
#recopie de la ligne total#
workbook.save as "toto_" + date + ".xls"

je recupere la date avec dateserial(year(now), month ....)

si quelqu'un connais la commande ou une astuce pour faire
ce genre de chose ce serait super sympa

cela existe peut etre déja dans le forum mais je n'ai pas
trouvé ainsi que sur excel labo ( je sais c'est pas bien
je poste la meme journée)

merci d'avance
Avatar
kared
merci beaucoup ca me convient parfaitement
-----Message d'origine-----
Salut Kared,
Peut être de cette façon ?

Function Existe(Fichier As String) As Boolean
If Dir(Fichier) <> "" Then Existe = True
End Function

Sub test()
MsgBox Existe("D:Classeur1.xls")
End Sub

Hervé

"kared" a écrit
dans le message news:

073701c3c8a0$b23116f0$
bonjour,

j'ai 2 fichiers : le premier est constitué de diverses
données qui concernent la journée en cours et le duxieme
recapiltule ligne apres lignes le total du prmier à la fin
de chaque journée (je recopie la ligne total du premier à
dans le deuxieme fichier) celui ci est nomé toto_aaaa.xls
(ou aaaa correspond à l'année en cours. il me manque la
commande qui me permette de tester si le fichier existe.

if #test si le fichier existe#
then workbook.open "toto_" + date + ".xls"
else workbook.open toto_vierge.xls
#recopie de la ligne total#
workbook.save as "toto_" + date + ".xls"

je recupere la date avec dateserial(year(now), month ....)

si quelqu'un connais la commande ou une astuce pour faire
ce genre de chose ce serait super sympa

cela existe peut etre déja dans le forum mais je n'ai pas
trouvé ainsi que sur excel labo ( je sais c'est pas bien
je poste la meme journée)

merci d'avance


.



Avatar
merci pour la reponse et ta contribution pour ce petit
souci




-----Message d'origine-----
bonjour
pour savoir si un fichier existe
if dir("chemin et nom fichier") = "" existe pas

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"kared" a écrit
dans le message de news: 073701c3c8a0$b23116f0

$
bonjour,

j'ai 2 fichiers : le premier est constitué de diverses
données qui concernent la journée en cours et le duxieme
recapiltule ligne apres lignes le total du prmier à la fin
de chaque journée (je recopie la ligne total du premier à
dans le deuxieme fichier) celui ci est nomé toto_aaaa.xls
(ou aaaa correspond à l'année en cours. il me manque la
commande qui me permette de tester si le fichier existe.

if #test si le fichier existe#
then workbook.open "toto_" + date + ".xls"
else workbook.open toto_vierge.xls
#recopie de la ligne total#
workbook.save as "toto_" + date + ".xls"

je recupere la date avec dateserial(year(now), month ....)

si quelqu'un connais la commande ou une astuce pour faire
ce genre de chose ce serait super sympa

cela existe peut etre déja dans le forum mais je n'ai pas
trouvé ainsi que sur excel labo ( je sais c'est pas bien
je poste la meme journée)

merci d'avance


.