Bonjour a toutes et a tous !
j'ai besoin de tester l'existence d'un fichier et de lancer un traitement si
celui ci n'existe pas, puis nouveau test sur eme fichier
'test existence du fichier de sauvegarde
On Error GoTo repriseun:
Workbooks.Open Filename:=nomsav, UpdateLinks:=0
MsgBox (" Un fichier de sauvegarde existe deja sous ce nom! Il est
impossible d'en creer un autre, modifiez le prenom !")
Exit Sub
repriseun:
blabla
'test existence du fichier actif
On Error GoTo reprisede:
'Workbooks.Open Filename:=nom, UpdateLinks:=0
MsgBox (" Un fichier de saisie existe deja sous ce nom ! Il est impossible
d'en creer un autre, modifiez le prenom !")
Exit Sub
reprisede:
mais malgre le branchement goto ca coince
Quelqu'un a une idee ou une solution
Merci
Denis
--
Ce message a ete poste via la plateforme Web club-Internet.fr
This message has been posted by the Web platform club-Internet.fr
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
FxM
bonsoir,
A tester et adapter :
sub test() nom = "E:test.xls" if dir(nom) = "" then msgbox nom & " n'existe pas" else msgbox nom & " existe" end if end sub
@+ FxM
denis le breton wrote:
Bonjour a toutes et a tous ! j'ai besoin de tester l'existence d'un fichier et de lancer un traitement si celui ci n'existe pas, puis nouveau test sur eme fichier 'test existence du fichier de sauvegarde On Error GoTo repriseun: Workbooks.Open Filename:=nomsav, UpdateLinks:=0 MsgBox (" Un fichier de sauvegarde existe deja sous ce nom! Il est impossible d'en creer un autre, modifiez le prenom !") Exit Sub repriseun:
blabla
'test existence du fichier actif On Error GoTo reprisede: 'Workbooks.Open Filename:=nom, UpdateLinks:=0 MsgBox (" Un fichier de saisie existe deja sous ce nom ! Il est impossible d'en creer un autre, modifiez le prenom !") Exit Sub reprisede:
mais malgre le branchement goto ca coince Quelqu'un a une idee ou une solution Merci Denis
bonsoir,
A tester et adapter :
sub test()
nom = "E:test.xls"
if dir(nom) = "" then
msgbox nom & " n'existe pas"
else
msgbox nom & " existe"
end if
end sub
@+
FxM
denis le breton wrote:
Bonjour a toutes et a tous !
j'ai besoin de tester l'existence d'un fichier et de lancer un traitement si
celui ci n'existe pas, puis nouveau test sur eme fichier
'test existence du fichier de sauvegarde
On Error GoTo repriseun:
Workbooks.Open Filename:=nomsav, UpdateLinks:=0
MsgBox (" Un fichier de sauvegarde existe deja sous ce nom! Il est
impossible d'en creer un autre, modifiez le prenom !")
Exit Sub
repriseun:
blabla
'test existence du fichier actif
On Error GoTo reprisede:
'Workbooks.Open Filename:=nom, UpdateLinks:=0
MsgBox (" Un fichier de saisie existe deja sous ce nom ! Il est impossible
d'en creer un autre, modifiez le prenom !")
Exit Sub
reprisede:
mais malgre le branchement goto ca coince
Quelqu'un a une idee ou une solution
Merci
Denis
sub test() nom = "E:test.xls" if dir(nom) = "" then msgbox nom & " n'existe pas" else msgbox nom & " existe" end if end sub
@+ FxM
denis le breton wrote:
Bonjour a toutes et a tous ! j'ai besoin de tester l'existence d'un fichier et de lancer un traitement si celui ci n'existe pas, puis nouveau test sur eme fichier 'test existence du fichier de sauvegarde On Error GoTo repriseun: Workbooks.Open Filename:=nomsav, UpdateLinks:=0 MsgBox (" Un fichier de sauvegarde existe deja sous ce nom! Il est impossible d'en creer un autre, modifiez le prenom !") Exit Sub repriseun:
blabla
'test existence du fichier actif On Error GoTo reprisede: 'Workbooks.Open Filename:=nom, UpdateLinks:=0 MsgBox (" Un fichier de saisie existe deja sous ce nom ! Il est impossible d'en creer un autre, modifiez le prenom !") Exit Sub reprisede:
mais malgre le branchement goto ca coince Quelqu'un a une idee ou une solution Merci Denis
denis le breton
avec une legere modif dans ma macro ca tourne un grand merci quelques fois le simple vaut mieux qu'un grand complique A+ Denis -- Ce message a ete poste via la plateforme Web club-Internet.fr This message has been posted by the Web platform club-Internet.fr
http://forums.club-internet.fr/
avec une legere modif dans ma macro ca tourne
un grand merci
quelques fois le simple vaut mieux qu'un grand complique
A+
Denis
--
Ce message a ete poste via la plateforme Web club-Internet.fr
This message has been posted by the Web platform club-Internet.fr
avec une legere modif dans ma macro ca tourne un grand merci quelques fois le simple vaut mieux qu'un grand complique A+ Denis -- Ce message a ete poste via la plateforme Web club-Internet.fr This message has been posted by the Web platform club-Internet.fr