OVH Cloud OVH Cloud

boucle

5 réponses
Avatar
Céline
Bonjour,

voilà j'ai un petit souci, j'ai un changement a faire sur plusieurs
clasieurs classeurs, mes classeurs portent des numéros comme :
B2006-455-1
B2006-455-2
B2006-455-3
B2006-455-7
B2006-455-8
B2006-455-9
B2006-455-12 etc jusqu'à B2006-455-85
les numéros ne se suivent pas pour autant ma boucle est comme ceci :

i=1 to 85
Workbooks.Open ("C:\chemin\B2006-455-" & i)

mon problème est que dès qu'un numéro n'existe pas comme ici par exemple au
classeur 4 qui n'existe pas la macro s'arrête, je suis toujours obliger de
changer mon i=7 to 9
et ainsi de suite

comment faire pour que ma boucle ne s'occupe pas des numéros manquant ???

merci de me renseigner

5 réponses

Avatar
Céline
En fait ce que je cherche c'est faire une déclaration comme quoi s'il ne
trouve pas le classeur qu'il passe au numéro suivant


Bonjour,

voilà j'ai un petit souci, j'ai un changement a faire sur plusieurs
clasieurs classeurs, mes classeurs portent des numéros comme :
B2006-455-1
B2006-455-2
B2006-455-3
B2006-455-7
B2006-455-8
B2006-455-9
B2006-455-12 etc jusqu'à B2006-455-85
les numéros ne se suivent pas pour autant ma boucle est comme ceci :

i=1 to 85
Workbooks.Open ("C:cheminB2006-455-" & i)

mon problème est que dès qu'un numéro n'existe pas comme ici par exemple au
classeur 4 qui n'existe pas la macro s'arrête, je suis toujours obliger de
changer mon i=7 to 9
et ainsi de suite

comment faire pour que ma boucle ne s'occupe pas des numéros manquant ???

merci de me renseigner


Avatar
Michel
Salut,

as-tu essaye :

On Error Resume Next

@+

Michel.

"Céline" a écrit dans le message de news:

Bonjour,

voilà j'ai un petit souci, j'ai un changement a faire sur plusieurs
clasieurs classeurs, mes classeurs portent des numéros comme :
B2006-455-1
B2006-455-2
B2006-455-3
B2006-455-7
B2006-455-8
B2006-455-9
B2006-455-12 etc jusqu'à B2006-455-85
les numéros ne se suivent pas pour autant ma boucle est comme ceci :

i=1 to 85
Workbooks.Open ("C:cheminB2006-455-" & i)

mon problème est que dès qu'un numéro n'existe pas comme ici par exemple
au
classeur 4 qui n'existe pas la macro s'arrête, je suis toujours obliger de
changer mon i=7 to 9
et ainsi de suite

comment faire pour que ma boucle ne s'occupe pas des numéros manquant ???

merci de me renseigner


Avatar
Daniel
Bonjour.
Essaie :
On Error Resume Next
For i = 1 To 85
Workbooks.Open ("C:cheminB2006-455-" & i)
If Err.Number = 0 Then
ici ton traitement
Else
Err.Clear
End If
Next i
Cordialement.
Daniel
"Céline" a écrit dans le message de news:

Bonjour,

voilà j'ai un petit souci, j'ai un changement a faire sur plusieurs
clasieurs classeurs, mes classeurs portent des numéros comme :
B2006-455-1
B2006-455-2
B2006-455-3
B2006-455-7
B2006-455-8
B2006-455-9
B2006-455-12 etc jusqu'à B2006-455-85
les numéros ne se suivent pas pour autant ma boucle est comme ceci :

i=1 to 85
Workbooks.Open ("C:cheminB2006-455-" & i)

mon problème est que dès qu'un numéro n'existe pas comme ici par exemple
au
classeur 4 qui n'existe pas la macro s'arrête, je suis toujours obliger de
changer mon i=7 to 9
et ainsi de suite

comment faire pour que ma boucle ne s'occupe pas des numéros manquant ???

merci de me renseigner


Avatar
Céline
ça ne marche pas et ça me bug excel


Salut,

as-tu essaye :

On Error Resume Next

@+

Michel.

"Céline" a écrit dans le message de news:

Bonjour,

voilà j'ai un petit souci, j'ai un changement a faire sur plusieurs
clasieurs classeurs, mes classeurs portent des numéros comme :
B2006-455-1
B2006-455-2
B2006-455-3
B2006-455-7
B2006-455-8
B2006-455-9
B2006-455-12 etc jusqu'à B2006-455-85
les numéros ne se suivent pas pour autant ma boucle est comme ceci :

i=1 to 85
Workbooks.Open ("C:cheminB2006-455-" & i)

mon problème est que dès qu'un numéro n'existe pas comme ici par exemple
au
classeur 4 qui n'existe pas la macro s'arrête, je suis toujours obliger de
changer mon i=7 to 9
et ainsi de suite

comment faire pour que ma boucle ne s'occupe pas des numéros manquant ???

merci de me renseigner







Avatar
Céline
Merci beaucoup beaucoup ça marche


Bonjour.
Essaie :
On Error Resume Next
For i = 1 To 85
Workbooks.Open ("C:cheminB2006-455-" & i)
If Err.Number = 0 Then
ici ton traitement
Else
Err.Clear
End If
Next i
Cordialement.
Daniel
"Céline" a écrit dans le message de news:

Bonjour,

voilà j'ai un petit souci, j'ai un changement a faire sur plusieurs
clasieurs classeurs, mes classeurs portent des numéros comme :
B2006-455-1
B2006-455-2
B2006-455-3
B2006-455-7
B2006-455-8
B2006-455-9
B2006-455-12 etc jusqu'à B2006-455-85
les numéros ne se suivent pas pour autant ma boucle est comme ceci :

i=1 to 85
Workbooks.Open ("C:cheminB2006-455-" & i)

mon problème est que dès qu'un numéro n'existe pas comme ici par exemple
au
classeur 4 qui n'existe pas la macro s'arrête, je suis toujours obliger de
changer mon i=7 to 9
et ainsi de suite

comment faire pour que ma boucle ne s'occupe pas des numéros manquant ???

merci de me renseigner