Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Do While .. loop

Do While .. loop

3 réponses
Avatar
AnB
Bonsoir
j'ai ce bout de macro
mais j'aimerai ajouter une condition après do while nf <> nf

Do While nf <> "" and nf <> d'un fichier appelé récap qui se trouve avec les
autres fichiers


nf = Dir(Repertoire & "\" & sousRépertoire & "\*.xls") ' premier fichier
Do While nf <> ""
Workbooks.Open Filename:=Repertoire & "\" & sousRépertoire & "\" & nf
' For Each Sheets In ActiveWorkbook.Sheets
On Error Resume Next
Sheets("fabrication").Select

merci pour votre aide
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
Papyjac
Bonjour AnB

Tu peux ajouter le test : If nf = "recap" then exit do

Mais tu risques de louper des fichiers car l'ordre des fichiers n'est pas
obligatoirement alphabétique, ni chronologique

Le Do While nf <> "" permet d'explorer tous les fichiers : et il faut bien
les explorer tous


--
Papyjac


"AnB" a écrit :

Bonsoir
j'ai ce bout de macro
mais j'aimerai ajouter une condition après do while nf <> nf

Do While nf <> "" and nf <> d'un fichier appelé récap qui se trouve avec les
autres fichiers


nf = Dir(Repertoire & "" & sousRépertoire & "*.xls") ' premier fichier
Do While nf <> ""
Workbooks.Open Filename:=Repertoire & "" & sousRépertoire & "" & nf
' For Each Sheets In ActiveWorkbook.Sheets
On Error Resume Next
Sheets("fabrication").Select

merci pour votre aide





Avatar
LSteph
Bonsoir,
dans l'idée

'...
chdir Repertoire & "" & sousRépertoire
nf=dir("*.xls")
do while len(nf)>0
if instr(nf,"récap")=0 then
' ici le code
end if
nf=dir
loop
'...

'lSteph

AnB a écrit :
Bonsoir
j'ai ce bout de macro
mais j'aimerai ajouter une condition après do while nf <> nf

Do While nf <> "" and nf <> d'un fichier appelé récap qui se trouve avec les
autres fichiers

Repertoire & "" & sousRépertoire
nf = Dir(& "*.xls") ' premier fichier
Do While nf <> ""
Workbooks.Open Filename:=Repertoire & "" & sousRépertoire & "" & nf
' For Each Sheets In ActiveWorkbook.Sheets
On Error Resume Next
Sheets("fabrication").Select

merci pour votre aide




Avatar
AnB
Merci
je testerai

"LSteph" a écrit dans le message de news:

Bonsoir,
dans l'idée

'...
chdir Repertoire & "" & sousRépertoire
nf=dir("*.xls")
do while len(nf)>0
if instr(nf,"récap")=0 then
' ici le code
end if
nf=dir
loop
'...

'lSteph

AnB a écrit :
Bonsoir
j'ai ce bout de macro
mais j'aimerai ajouter une condition après do while nf <> nf

Do While nf <> "" and nf <> d'un fichier appelé récap qui se trouve avec
les autres fichiers

Repertoire & "" & sousRépertoire nf = Dir(& "*.xls") ' premier fichier
Do While nf <> ""
Workbooks.Open Filename:=Repertoire & "" & sousRépertoire & "" & nf
' For Each Sheets In ActiveWorkbook.Sheets
On Error Resume Next
Sheets("fabrication").Select

merci pour votre aide