tester si un fichier existe avant de le sauvegarder par macro
4 réponses
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)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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" <anonymous@discussions.microsoft.com> a écrit dans le message news:
073701c3c8a0$b23116f0$a601280a@phx.gbl...
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)
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
Pierre CFI [mvp]
bonjour pour savoir si un fichier existe if dir("chemin et nom fichier") = "" existe pas
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
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" <anonymous@discussions.microsoft.com> a écrit dans le message de news: 073701c3c8a0$b23116f0$a601280a@phx.gbl...
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)
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
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
.
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" <anonymous@discussions.microsoft.com> a écrit
dans le message news:
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)
-----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
.
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
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
.
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" <anonymous@discussions.microsoft.com> a écrit
dans le message de news: 073701c3c8a0$b23116f0
$a601280a@phx.gbl...
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)
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)