détecter erreur avec vba sous forme de condition

pierrejean

XLDnaute Barbatruc

• 24 Janvier 2008

• #2

Re : détecter erreur avec vba sous forme de condition

bonjour philppe27

une macro a adapter

Code:

Sub test()
[COLOR=blue]fichier = "testbidon.xls"
[/COLOR]While 1 = 1
On Error Resume Next
Workbooks.Open (fichier)
If Err.Number <> 1004 Then Exit Sub
On Error GoTo 0
[COLOR=blue]MsgBox ("continue")
fichier = "test.xls"
[/COLOR]Wend
End Sub

 

Vote positif 0 Vote négatif

P

philppe27

XLDnaute Occasionnel

• 24 Janvier 2008

• #3

Re : détecter erreur avec vba sous forme de condition

Merci Pierre Jean. Je vais essayer avec çà

Cordialement

 

Vote positif 0 Vote négatif

P

philppe27

XLDnaute Occasionnel

• 24 Janvier 2008

• #4

Re : détecter erreur avec vba sous forme de condition

J'ai écrit ces lignes de programmes mais je n'arrive pas au résultat escompté:
Range("G1").FormulaR1C1 = "=YEAR(TODAY())"
Range("H1").FormulaR1C1 = _
"=IF(LEN(MONTH(TODAY()))>1,MONTH(TODAY()),""0""&MONTH(TODAY()))"
Range("I1").FormulaR1C1 = _
"=IF(LEN(DAY(TODAY()))>1,DAY(TODAY()),""0""&DAY(TODAY()))"
an = Range("G1")
mo = Range("H1")
jo = Range("I1")
On Error Resume Next
Workbooks.Open Filename:="G:\Service\PB\kanban\stcs" & an & "" & mo & "" & jo & ".xls", ReadOnly _
:=True
While Err.Number = 1004
jo = jo - 1
Workbooks.Open Filename:="G:\Service\PB\kanban\stcs" & an & "" & mo & "" & jo & ".xls", ReadOnly _
:=True
Wend
On Error GoTo 0

En effet, je voudrais que dès que le 1er fichier disponible est ouvert, pouvoir continuer le programme sans ouvrir les autres fichiers. Ce n'est pas le cas avec ces lignes en effet le programme est en boucle et cherche à ouvrir tous les fichiers.

Merci d'avance,

Cordialement

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 24 Janvier 2008

• #5

Re : détecter erreur avec vba sous forme de condition

Re

Ce qui se produit c'est que l'erreur n'est pas acquittée (par le on error goto 0) et le while est toujours actif

avant chaque tentative d'ouverture de fichier l'erreur doit etre acquittée pour que le test soit probant et des la decouverte d'erreur differente (ou pas d'erreur ) sortir de la boucle

revoir ce que je t'ais proposé en remplacant exit sub par call autremacro

 

Vote positif 0 Vote négatif

P

philppe27

XLDnaute Occasionnel

• 24 Janvier 2008

• #6

Re : détecter erreur avec vba sous forme de condition

merci pour l'info sur on error goto 0. Je l'ai placé dans la boucle while suivi de on error resume next et ça fonctionne très bien.

Cordialement

 

Vote positif 0 Vote négatif