!help! Je tourne en rond avec LookIn = ActiveWorkbook.Path
2 réponses
tepron
Bonjour,
Je suis en train d'ecrire un grosse macro pour faire, des
consolidations assez complexe, cet outils va etre dispatché dans de
nombreux pays et donc une de mes contraintes et de m'affranchir des
cheminement dans les différentes unités de stockages, alors j'ai ecris
cela:
.NewSearch
.FileType = msoFileTypeExcelWorkbooks
.LookIn = ActiveWorkbook.Path
.SearchSubFolders = False
.Execute
Application.ScreenUpdating = False
For I = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles
Et bien évidement, a un moment ou un autre, la macro essaye d'ouvrir
le fichier qui la contient et qui est donc deja ouvert!!! PROBLEME!!!
Le fichier qui contient la macro s'appel :" macroregional.xls"
Je vous remercie tous d'avance de cette aide précieuse.
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
Pierre CFI
bonjour tu glisses
For I = 1 To .FoundFiles.Count if .FoundFiles <> "nomdufichier.xls then Workbooks.Open .FoundFiles -- Pierre CFI MVP Microsoft Access
Site pour bien commencer http://users.skynet.be/mpfa/ Site perso http://access.cfi.free.fr "perrpn" a écrit dans le message de news:
Bonjour,
Je suis en train d'ecrire un grosse macro pour faire, des consolidations assez complexe, cet outils va etre dispatché dans de nombreux pays et donc une de mes contraintes et de m'affranchir des cheminement dans les différentes unités de stockages, alors j'ai ecris cela:
.NewSearch .FileType = msoFileTypeExcelWorkbooks .LookIn = ActiveWorkbook.Path .SearchSubFolders = False .Execute Application.ScreenUpdating = False For I = 1 To .FoundFiles.Count Workbooks.Open .FoundFiles
Et bien évidement, a un moment ou un autre, la macro essaye d'ouvrir le fichier qui la contient et qui est donc deja ouvert!!! PROBLEME!!!
Le fichier qui contient la macro s'appel :" macroregional.xls"
Je vous remercie tous d'avance de cette aide précieuse.
cordialement
t.
bonjour
tu glisses
For I = 1 To .FoundFiles.Count
if .FoundFiles
<> "nomdufichier.xls then Workbooks.Open .FoundFiles
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"perrpn" <tepron@hotmail.com> a écrit dans le message de news: 879ab229.0307040706.1b1bcb83@posting.google.com...
Bonjour,
Je suis en train d'ecrire un grosse macro pour faire, des
consolidations assez complexe, cet outils va etre dispatché dans de
nombreux pays et donc une de mes contraintes et de m'affranchir des
cheminement dans les différentes unités de stockages, alors j'ai ecris
cela:
.NewSearch
.FileType = msoFileTypeExcelWorkbooks
.LookIn = ActiveWorkbook.Path
.SearchSubFolders = False
.Execute
Application.ScreenUpdating = False
For I = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles
Et bien évidement, a un moment ou un autre, la macro essaye d'ouvrir
le fichier qui la contient et qui est donc deja ouvert!!! PROBLEME!!!
Le fichier qui contient la macro s'appel :" macroregional.xls"
Je vous remercie tous d'avance de cette aide précieuse.
For I = 1 To .FoundFiles.Count if .FoundFiles <> "nomdufichier.xls then Workbooks.Open .FoundFiles -- Pierre CFI MVP Microsoft Access
Site pour bien commencer http://users.skynet.be/mpfa/ Site perso http://access.cfi.free.fr "perrpn" a écrit dans le message de news:
Bonjour,
Je suis en train d'ecrire un grosse macro pour faire, des consolidations assez complexe, cet outils va etre dispatché dans de nombreux pays et donc une de mes contraintes et de m'affranchir des cheminement dans les différentes unités de stockages, alors j'ai ecris cela:
.NewSearch .FileType = msoFileTypeExcelWorkbooks .LookIn = ActiveWorkbook.Path .SearchSubFolders = False .Execute Application.ScreenUpdating = False For I = 1 To .FoundFiles.Count Workbooks.Open .FoundFiles
Et bien évidement, a un moment ou un autre, la macro essaye d'ouvrir le fichier qui la contient et qui est donc deja ouvert!!! PROBLEME!!!
Le fichier qui contient la macro s'appel :" macroregional.xls"
Je vous remercie tous d'avance de cette aide précieuse.
cordialement
t.
Clément Marcotte
Bonjour,
Me semble qu'il manque une apostrophe ;-)
mettre
if .FoundFiles <> "nomdufichier.xls" _ then Workbooks.Open .FoundFiles
au lieu de
if .FoundFiles <> "nomdufichier.xls then Workbooks.Open .FoundFiles
Bonjour,
Me semble qu'il manque une apostrophe ;-)
mettre
if .FoundFiles <> "nomdufichier.xls" _
then Workbooks.Open .FoundFiles
au lieu de
if .FoundFiles
<> "nomdufichier.xls then Workbooks.Open .FoundFiles
