J'utilise une macro pour ventiler des enregistrements d'un fichier global,
par centre d'analyse, que je stocke dans des fichiers et dans des
répertoires correspondants à chaque centre d'analyse. Puis j'ai besoin de
créer des fichiers consolidés, regroupant plusieurs centre d'analyse, et
pour ce faire j'utilise une boucle Do While qui vient ouvrir dans chaque
répertoire les fichiers présents et ainsi récupérer les infos.
Pour ne pas avoir à controler le nombre des répertoires qui contiennent les
centres d'analyse je raisonne en absolu et donc lorsqu'il n'y a pas de
fichier, dans un répertoire, la macro bloque.
Je voudrai savoir si il existe un moyen ( de type If fichier présent then
continuer la macro else end if loop) pour que la macro puisse détecter une
absence de fichier et dans ce cas continuer la boucle.
Do While DIRECTION(i, j) <> "" ' pour chaque service de la direction
'Ouverture du fichier des CA
myFichier = cheminPOLSAL & DIRECTION(i, j) & "\CA " & DIRECTION(i,
j) & ".xls"
J'ai essayé çà mais cela ne marche pas
If ("\CA " & DIRECTION(i, j) & ".xls") <> "" Then
Workbooks.Open Filename:=myFichier
else
end if
loop
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
Philippe.R
Bonjour Pascal, As tu essayé l'instruction : on error resume next qui, placée en début de procédure, ou tout au moins avant l'endroit critique, permet à la procédure d'ignorer l'erreur et de passer directement à l'instruction suivante ? -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"Pascal Manach" a écrit dans le message de news:
Bonsoir et tous mes voeux pour cette année 2004.
J'utilise une macro pour ventiler des enregistrements d'un fichier global, par centre d'analyse, que je stocke dans des fichiers et dans des répertoires correspondants à chaque centre d'analyse. Puis j'ai besoin de créer des fichiers consolidés, regroupant plusieurs centre d'analyse, et pour ce faire j'utilise une boucle Do While qui vient ouvrir dans chaque répertoire les fichiers présents et ainsi récupérer les infos. Pour ne pas avoir à controler le nombre des répertoires qui contiennent les centres d'analyse je raisonne en absolu et donc lorsqu'il n'y a pas de fichier, dans un répertoire, la macro bloque. Je voudrai savoir si il existe un moyen ( de type If fichier présent then continuer la macro else end if loop) pour que la macro puisse détecter une absence de fichier et dans ce cas continuer la boucle.
Do While DIRECTION(i, j) <> "" ' pour chaque service de la direction
'Ouverture du fichier des CA myFichier = cheminPOLSAL & DIRECTION(i, j) & "CA " & DIRECTION(i, j) & ".xls"
J'ai essayé çà mais cela ne marche pas
If ("CA " & DIRECTION(i, j) & ".xls") <> "" Then Workbooks.Open Filename:=myFichier else end if loop
Merci d'avance pour votre aide
Pascal
Bonjour Pascal,
As tu essayé l'instruction :
on error resume next
qui, placée en début de procédure, ou tout au moins avant l'endroit critique, permet à la procédure
d'ignorer l'erreur et de passer directement à l'instruction suivante ?
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"Pascal Manach" <p.manach2@libertysurf.fr> a écrit dans le message de
news:OSwnHs61DHA.1744@TK2MSFTNGP12.phx.gbl...
Bonsoir et tous mes voeux pour cette année 2004.
J'utilise une macro pour ventiler des enregistrements d'un fichier global,
par centre d'analyse, que je stocke dans des fichiers et dans des
répertoires correspondants à chaque centre d'analyse. Puis j'ai besoin de
créer des fichiers consolidés, regroupant plusieurs centre d'analyse, et
pour ce faire j'utilise une boucle Do While qui vient ouvrir dans chaque
répertoire les fichiers présents et ainsi récupérer les infos.
Pour ne pas avoir à controler le nombre des répertoires qui contiennent les
centres d'analyse je raisonne en absolu et donc lorsqu'il n'y a pas de
fichier, dans un répertoire, la macro bloque.
Je voudrai savoir si il existe un moyen ( de type If fichier présent then
continuer la macro else end if loop) pour que la macro puisse détecter une
absence de fichier et dans ce cas continuer la boucle.
Do While DIRECTION(i, j) <> "" ' pour chaque service de la direction
'Ouverture du fichier des CA
myFichier = cheminPOLSAL & DIRECTION(i, j) & "CA " & DIRECTION(i,
j) & ".xls"
J'ai essayé çà mais cela ne marche pas
If ("CA " & DIRECTION(i, j) & ".xls") <> "" Then
Workbooks.Open Filename:=myFichier
else
end if
loop
Bonjour Pascal, As tu essayé l'instruction : on error resume next qui, placée en début de procédure, ou tout au moins avant l'endroit critique, permet à la procédure d'ignorer l'erreur et de passer directement à l'instruction suivante ? -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"Pascal Manach" a écrit dans le message de news:
Bonsoir et tous mes voeux pour cette année 2004.
J'utilise une macro pour ventiler des enregistrements d'un fichier global, par centre d'analyse, que je stocke dans des fichiers et dans des répertoires correspondants à chaque centre d'analyse. Puis j'ai besoin de créer des fichiers consolidés, regroupant plusieurs centre d'analyse, et pour ce faire j'utilise une boucle Do While qui vient ouvrir dans chaque répertoire les fichiers présents et ainsi récupérer les infos. Pour ne pas avoir à controler le nombre des répertoires qui contiennent les centres d'analyse je raisonne en absolu et donc lorsqu'il n'y a pas de fichier, dans un répertoire, la macro bloque. Je voudrai savoir si il existe un moyen ( de type If fichier présent then continuer la macro else end if loop) pour que la macro puisse détecter une absence de fichier et dans ce cas continuer la boucle.
Do While DIRECTION(i, j) <> "" ' pour chaque service de la direction
'Ouverture du fichier des CA myFichier = cheminPOLSAL & DIRECTION(i, j) & "CA " & DIRECTION(i, j) & ".xls"
J'ai essayé çà mais cela ne marche pas
If ("CA " & DIRECTION(i, j) & ".xls") <> "" Then Workbooks.Open Filename:=myFichier else end if loop
