On Error GoTo finN
Workbooks.Open Filename:="TestN.xls"
finN:
On Error GoTo finN1
Workbooks.Open Filename:="TestN1.xls"
finN1:
ActiveWorkbook.Close SaveChanges:=True
Je souhaiteriai en fait ouvrir le fichier TestN puis TestN1, mais que la
macro passe à l'instruction suivante si le fichier n'est pas trouvé. Pour
l'instant quand TestN1 n'est pas présent sur mon disque cela fonctionne ;
mais quand c'est TestN, cela ne fonctionne plus.
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
michdenis
Bonjour Tucky,
On error Resume next Workbooks.Open Filename:="TestN.xls" if err<>0 then err=0 Workbooks.Open Filename:="TestN1.xls" end if
Salutations!
"Tucky" a écrit dans le message de news: Bonjour,
Voici un extrait de code qui me pose problème :
On Error GoTo finN Workbooks.Open Filename:="TestN.xls" finN: On Error GoTo finN1 Workbooks.Open Filename:="TestN1.xls" finN1: ActiveWorkbook.Close SaveChanges:=True
Je souhaiteriai en fait ouvrir le fichier TestN puis TestN1, mais que la macro passe à l'instruction suivante si le fichier n'est pas trouvé. Pour l'instant quand TestN1 n'est pas présent sur mon disque cela fonctionne ; mais quand c'est TestN, cela ne fonctionne plus.
Merci de votre aide.
Tucky
Bonjour Tucky,
On error Resume next
Workbooks.Open Filename:="TestN.xls"
if err<>0 then
err=0
Workbooks.Open Filename:="TestN1.xls"
end if
Salutations!
"Tucky" <Tucky@discussions.microsoft.com> a écrit dans le message de news: 0E3C967F-ADF7-4CFA-8939-BE4CD47FADE9@microsoft.com...
Bonjour,
Voici un extrait de code qui me pose problème :
On Error GoTo finN
Workbooks.Open Filename:="TestN.xls"
finN:
On Error GoTo finN1
Workbooks.Open Filename:="TestN1.xls"
finN1:
ActiveWorkbook.Close SaveChanges:=True
Je souhaiteriai en fait ouvrir le fichier TestN puis TestN1, mais que la
macro passe à l'instruction suivante si le fichier n'est pas trouvé. Pour
l'instant quand TestN1 n'est pas présent sur mon disque cela fonctionne ;
mais quand c'est TestN, cela ne fonctionne plus.
On error Resume next Workbooks.Open Filename:="TestN.xls" if err<>0 then err=0 Workbooks.Open Filename:="TestN1.xls" end if
Salutations!
"Tucky" a écrit dans le message de news: Bonjour,
Voici un extrait de code qui me pose problème :
On Error GoTo finN Workbooks.Open Filename:="TestN.xls" finN: On Error GoTo finN1 Workbooks.Open Filename:="TestN1.xls" finN1: ActiveWorkbook.Close SaveChanges:=True
Je souhaiteriai en fait ouvrir le fichier TestN puis TestN1, mais que la macro passe à l'instruction suivante si le fichier n'est pas trouvé. Pour l'instant quand TestN1 n'est pas présent sur mon disque cela fonctionne ; mais quand c'est TestN, cela ne fonctionne plus.
Merci de votre aide.
Tucky
Tucky
Bonsoir,
Un grand merci Michedenis pour ta réponse, car maintenant cela fonctionne parfaitement. A tout hasard, serait-il possible de savoir pourquoi ma solution ne fonctionnait pas ?
Tucky
Bonjour Tucky,
On error Resume next Workbooks.Open Filename:="TestN.xls" if err<>0 then err=0 Workbooks.Open Filename:="TestN1.xls" end if
Salutations!
"Tucky" a écrit dans le message de news: Bonjour,
Voici un extrait de code qui me pose problème :
On Error GoTo finN Workbooks.Open Filename:="TestN.xls" finN: On Error GoTo finN1 Workbooks.Open Filename:="TestN1.xls" finN1: ActiveWorkbook.Close SaveChanges:=True
Je souhaiteriai en fait ouvrir le fichier TestN puis TestN1, mais que la macro passe à l'instruction suivante si le fichier n'est pas trouvé. Pour l'instant quand TestN1 n'est pas présent sur mon disque cela fonctionne ; mais quand c'est TestN, cela ne fonctionne plus.
Merci de votre aide.
Tucky
Bonsoir,
Un grand merci Michedenis pour ta réponse, car maintenant cela fonctionne
parfaitement. A tout hasard, serait-il possible de savoir pourquoi ma
solution ne fonctionnait pas ?
Tucky
Bonjour Tucky,
On error Resume next
Workbooks.Open Filename:="TestN.xls"
if err<>0 then
err=0
Workbooks.Open Filename:="TestN1.xls"
end if
Salutations!
"Tucky" <Tucky@discussions.microsoft.com> a écrit dans le message de news: 0E3C967F-ADF7-4CFA-8939-BE4CD47FADE9@microsoft.com...
Bonjour,
Voici un extrait de code qui me pose problème :
On Error GoTo finN
Workbooks.Open Filename:="TestN.xls"
finN:
On Error GoTo finN1
Workbooks.Open Filename:="TestN1.xls"
finN1:
ActiveWorkbook.Close SaveChanges:=True
Je souhaiteriai en fait ouvrir le fichier TestN puis TestN1, mais que la
macro passe à l'instruction suivante si le fichier n'est pas trouvé. Pour
l'instant quand TestN1 n'est pas présent sur mon disque cela fonctionne ;
mais quand c'est TestN, cela ne fonctionne plus.
Un grand merci Michedenis pour ta réponse, car maintenant cela fonctionne parfaitement. A tout hasard, serait-il possible de savoir pourquoi ma solution ne fonctionnait pas ?
Tucky
Bonjour Tucky,
On error Resume next Workbooks.Open Filename:="TestN.xls" if err<>0 then err=0 Workbooks.Open Filename:="TestN1.xls" end if
Salutations!
"Tucky" a écrit dans le message de news: Bonjour,
Voici un extrait de code qui me pose problème :
On Error GoTo finN Workbooks.Open Filename:="TestN.xls" finN: On Error GoTo finN1 Workbooks.Open Filename:="TestN1.xls" finN1: ActiveWorkbook.Close SaveChanges:=True
Je souhaiteriai en fait ouvrir le fichier TestN puis TestN1, mais que la macro passe à l'instruction suivante si le fichier n'est pas trouvé. Pour l'instant quand TestN1 n'est pas présent sur mon disque cela fonctionne ; mais quand c'est TestN, cela ne fonctionne plus.
Merci de votre aide.
Tucky
Fredo P
Bouge pas Denis, je me dévoue on error resume next , signifie simplement quand une erreur est rencontrée excel passe à la ligne de code suivante, alors que on error goto FinN1 envoie vers la ligne de code référencée aprés FinN1:
"Tucky" a écrit dans le message de news:
Bonsoir,
Un grand merci Michedenis pour ta réponse, car maintenant cela fonctionne parfaitement. A tout hasard, serait-il possible de savoir pourquoi ma solution ne fonctionnait pas ?
Tucky
Bonjour Tucky,
On error Resume next Workbooks.Open Filename:="TestN.xls" if err<>0 then err=0 Workbooks.Open Filename:="TestN1.xls" end if
Salutations!
"Tucky" a écrit dans le message de news:
Bonjour,
Voici un extrait de code qui me pose problème :
On Error GoTo finN Workbooks.Open Filename:="TestN.xls" finN: On Error GoTo finN1 Workbooks.Open Filename:="TestN1.xls" finN1: ActiveWorkbook.Close SaveChanges:=True
Je souhaiteriai en fait ouvrir le fichier TestN puis TestN1, mais que la macro passe à l'instruction suivante si le fichier n'est pas trouvé. Pour
l'instant quand TestN1 n'est pas présent sur mon disque cela fonctionne ;
mais quand c'est TestN, cela ne fonctionne plus.
Merci de votre aide.
Tucky
Bouge pas Denis, je me dévoue
on error resume next , signifie simplement quand une erreur est rencontrée
excel passe à la ligne de code suivante, alors que on error goto FinN1
envoie vers la ligne de code référencée aprés FinN1:
"Tucky" <Tucky@discussions.microsoft.com> a écrit dans le message de
news:6EC764A9-1B6F-4EA8-8506-75C1906AB23E@microsoft.com...
Bonsoir,
Un grand merci Michedenis pour ta réponse, car maintenant cela fonctionne
parfaitement. A tout hasard, serait-il possible de savoir pourquoi ma
solution ne fonctionnait pas ?
Tucky
Bonjour Tucky,
On error Resume next
Workbooks.Open Filename:="TestN.xls"
if err<>0 then
err=0
Workbooks.Open Filename:="TestN1.xls"
end if
Salutations!
"Tucky" <Tucky@discussions.microsoft.com> a écrit dans le message de
news: 0E3C967F-ADF7-4CFA-8939-BE4CD47FADE9@microsoft.com...
Bonjour,
Voici un extrait de code qui me pose problème :
On Error GoTo finN
Workbooks.Open Filename:="TestN.xls"
finN:
On Error GoTo finN1
Workbooks.Open Filename:="TestN1.xls"
finN1:
ActiveWorkbook.Close SaveChanges:=True
Je souhaiteriai en fait ouvrir le fichier TestN puis TestN1, mais que la
macro passe à l'instruction suivante si le fichier n'est pas trouvé.
Pour
l'instant quand TestN1 n'est pas présent sur mon disque cela fonctionne
;
Bouge pas Denis, je me dévoue on error resume next , signifie simplement quand une erreur est rencontrée excel passe à la ligne de code suivante, alors que on error goto FinN1 envoie vers la ligne de code référencée aprés FinN1:
"Tucky" a écrit dans le message de news:
Bonsoir,
Un grand merci Michedenis pour ta réponse, car maintenant cela fonctionne parfaitement. A tout hasard, serait-il possible de savoir pourquoi ma solution ne fonctionnait pas ?
Tucky
Bonjour Tucky,
On error Resume next Workbooks.Open Filename:="TestN.xls" if err<>0 then err=0 Workbooks.Open Filename:="TestN1.xls" end if
Salutations!
"Tucky" a écrit dans le message de news:
Bonjour,
Voici un extrait de code qui me pose problème :
On Error GoTo finN Workbooks.Open Filename:="TestN.xls" finN: On Error GoTo finN1 Workbooks.Open Filename:="TestN1.xls" finN1: ActiveWorkbook.Close SaveChanges:=True
Je souhaiteriai en fait ouvrir le fichier TestN puis TestN1, mais que la macro passe à l'instruction suivante si le fichier n'est pas trouvé. Pour
l'instant quand TestN1 n'est pas présent sur mon disque cela fonctionne ;
mais quand c'est TestN, cela ne fonctionne plus.
Merci de votre aide.
Tucky
michdenis
Bonjour Tucky,
Tu aurais pu aussi utiliser quelque chose comme : '---------------------------- Sub Test() Dim FinN as string On Error GoTo finN Workbooks.Open Filename:="TestN.xls" Workbooks.Open Filename:="TestN1.xls" ActiveWorkbook.Close SaveChanges:=True
Exit sub finN: Err= 0 Msgbox "Premier fichier introuvable. Passons au deuxième." Resume
End sub '----------------------------
Salutations!
"Tucky" a écrit dans le message de news: Bonsoir,
Un grand merci Michedenis pour ta réponse, car maintenant cela fonctionne parfaitement. A tout hasard, serait-il possible de savoir pourquoi ma solution ne fonctionnait pas ?
Tucky
Bonjour Tucky,
On error Resume next Workbooks.Open Filename:="TestN.xls" if err<>0 then err=0 Workbooks.Open Filename:="TestN1.xls" end if
Salutations!
"Tucky" a écrit dans le message de news: Bonjour,
Voici un extrait de code qui me pose problème :
On Error GoTo finN Workbooks.Open Filename:="TestN.xls" finN: On Error GoTo finN1 Workbooks.Open Filename:="TestN1.xls" finN1: ActiveWorkbook.Close SaveChanges:=True
Je souhaiteriai en fait ouvrir le fichier TestN puis TestN1, mais que la macro passe à l'instruction suivante si le fichier n'est pas trouvé. Pour l'instant quand TestN1 n'est pas présent sur mon disque cela fonctionne ; mais quand c'est TestN, cela ne fonctionne plus.
Merci de votre aide.
Tucky
Bonjour Tucky,
Tu aurais pu aussi utiliser quelque chose comme :
'----------------------------
Sub Test()
Dim FinN as string
On Error GoTo finN
Workbooks.Open Filename:="TestN.xls"
Workbooks.Open Filename:="TestN1.xls"
ActiveWorkbook.Close SaveChanges:=True
Exit sub
finN:
Err= 0
Msgbox "Premier fichier introuvable. Passons au deuxième."
Resume
End sub
'----------------------------
Salutations!
"Tucky" <Tucky@discussions.microsoft.com> a écrit dans le message de news: 6EC764A9-1B6F-4EA8-8506-75C1906AB23E@microsoft.com...
Bonsoir,
Un grand merci Michedenis pour ta réponse, car maintenant cela fonctionne
parfaitement. A tout hasard, serait-il possible de savoir pourquoi ma
solution ne fonctionnait pas ?
Tucky
Bonjour Tucky,
On error Resume next
Workbooks.Open Filename:="TestN.xls"
if err<>0 then
err=0
Workbooks.Open Filename:="TestN1.xls"
end if
Salutations!
"Tucky" <Tucky@discussions.microsoft.com> a écrit dans le message de news: 0E3C967F-ADF7-4CFA-8939-BE4CD47FADE9@microsoft.com...
Bonjour,
Voici un extrait de code qui me pose problème :
On Error GoTo finN
Workbooks.Open Filename:="TestN.xls"
finN:
On Error GoTo finN1
Workbooks.Open Filename:="TestN1.xls"
finN1:
ActiveWorkbook.Close SaveChanges:=True
Je souhaiteriai en fait ouvrir le fichier TestN puis TestN1, mais que la
macro passe à l'instruction suivante si le fichier n'est pas trouvé. Pour
l'instant quand TestN1 n'est pas présent sur mon disque cela fonctionne ;
mais quand c'est TestN, cela ne fonctionne plus.
Tu aurais pu aussi utiliser quelque chose comme : '---------------------------- Sub Test() Dim FinN as string On Error GoTo finN Workbooks.Open Filename:="TestN.xls" Workbooks.Open Filename:="TestN1.xls" ActiveWorkbook.Close SaveChanges:=True
Exit sub finN: Err= 0 Msgbox "Premier fichier introuvable. Passons au deuxième." Resume
End sub '----------------------------
Salutations!
"Tucky" a écrit dans le message de news: Bonsoir,
Un grand merci Michedenis pour ta réponse, car maintenant cela fonctionne parfaitement. A tout hasard, serait-il possible de savoir pourquoi ma solution ne fonctionnait pas ?
Tucky
Bonjour Tucky,
On error Resume next Workbooks.Open Filename:="TestN.xls" if err<>0 then err=0 Workbooks.Open Filename:="TestN1.xls" end if
Salutations!
"Tucky" a écrit dans le message de news: Bonjour,
Voici un extrait de code qui me pose problème :
On Error GoTo finN Workbooks.Open Filename:="TestN.xls" finN: On Error GoTo finN1 Workbooks.Open Filename:="TestN1.xls" finN1: ActiveWorkbook.Close SaveChanges:=True
Je souhaiteriai en fait ouvrir le fichier TestN puis TestN1, mais que la macro passe à l'instruction suivante si le fichier n'est pas trouvé. Pour l'instant quand TestN1 n'est pas présent sur mon disque cela fonctionne ; mais quand c'est TestN, cela ne fonctionne plus.
