Ouverture de dossiers Xls

Salut Baptiste,

J'ai !
tu renseignes le chemin d'accès:

PathCourant = "e:Documents and SettingsbaptisteMy Documents"

tu renseignes le type de nom (attention, j'ai mis un espace entre année et *)

FichierRecherché = PathCourant & "Année *.xls"
FichierCible = Dir(FichierRecherché)
Do while FichierCible <> ""
Workbooks.Open FichierRecherché
ETC...

Loop
End Sub.

Essaie ça, ça devrait fonctionner...

Cdt

Bonjour a tout le groupe!!!

J'aimerai savoir s'il existe un code qui est capable d'ouvrir les fichiers
Excel d'un répertoire défini.

En fait la macro doit ouvrir dans le Fichier X, un par un tout les fichier
excele commençants par le terme "Année" ! Sachant qu'il peut y en avoir
plusieurs (jusqu'à 6) !

Le but générale est d'ouvrir le fichier, copier la plage de cellule de
A1:A500, et de la copier sur un autre fichier de consolidation. Cette
opération doit ce répéter autant de fois qu'il y a de fichier xls commençant
par "Année de le répertoire en question !

J'ai quelques doute sur la faisabilité d'une telle opération mais bon! on ne
sait jamais !

Merci d'avance!

Bonjour Ricou!

Merci beaucoup pour le code! je vais l'essayer et le bidouller! Je
reviendrai à vous en cas de problème! j'espère que non!!!

Salut Baptiste,

J'ai !
tu renseignes le chemin d'accès:

PathCourant = "e:Documents and SettingsbaptisteMy Documents"

tu renseignes le type de nom (attention, j'ai mis un espace entre année et *)

FichierRecherché = PathCourant & "Année *.xls"
FichierCible = Dir(FichierRecherché)
Do while FichierCible <> ""
Workbooks.Open FichierRecherché
ETC...

Loop
End Sub.

Essaie ça, ça devrait fonctionner...

Cdt

Bonjour a tout le groupe!!!

J'aimerai savoir s'il existe un code qui est capable d'ouvrir les fichiers
Excel d'un répertoire défini.

En fait la macro doit ouvrir dans le Fichier X, un par un tout les fichier
excele commençants par le terme "Année" ! Sachant qu'il peut y en avoir
plusieurs (jusqu'à 6) !

Le but générale est d'ouvrir le fichier, copier la plage de cellule de
A1:A500, et de la copier sur un autre fichier de consolidation. Cette
opération doit ce répéter autant de fois qu'il y a de fichier xls commençant
par "Année de le répertoire en question !

J'ai quelques doute sur la faisabilité d'une telle opération mais bon! on ne
sait jamais !

Merci d'avance!

Bonjour
Exemple avec FileSearch à adapter à ton besoin :
Sub Traitement()
Dim RechFich As FileSearch
Set RechFich = Application.FileSearch
With RechFich
.NewSearch
.LookIn = "C:TEST"
.Filename = "Class*.xls"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
ActiveWorkbook.Worksheets("Feuil1").Range("A1:A5").Copy _
ThisWorkbook.Worksheets("Feuil1").Range("A" &
ThisWorkbook.Worksheets("Feuil1").Range("A65536").End(xlUp)(2).Row)
ActiveWorkbook.Close False
Next i
Else
MsgBox "Pas de fichiers correspondant trouvés", vbInformation
End If
End With
End Sub

Cordialement
Pascal

"Baptiste" <Baptiste@discussions.microsoft.com> a écrit dans le message de
news:306F2C33-0D3A-4E77-A791-239E38DCDE8B@microsoft.com...

Bonjour a tout le groupe!!!

J'aimerai savoir s'il existe un code qui est capable d'ouvrir les fichiers
Excel d'un répertoire défini.

En fait la macro doit ouvrir dans le Fichier X, un par un tout les fichier
excele commençants par le terme "Année" ! Sachant qu'il peut y en avoir
plusieurs (jusqu'à 6) !

Le but générale est d'ouvrir le fichier, copier la plage de cellule de
A1:A500, et de la copier sur un autre fichier de consolidation. Cette
opération doit ce répéter autant de fois qu'il y a de fichier xls
commençant

par "Année de le répertoire en question !

J'ai quelques doute sur la faisabilité d'une telle opération mais bon! on
ne

sait jamais !

Merci d'avance!

re bonjour!

Pour l'instant j'ai tester cette technique mais il semble y avoir un petit
problème. Ce n'est pas une question de lien car même si le chemin d'accès
semble complexe, je l'ai tester et il marche! Ensuite il y a bien dans ce
répertoire des fichiers qui commences par Année ! (j'ai essayé avec et sans
l'espace entre l'*)!

Mais il y a erreur d'executin 1004 qui dit de vérifier l'emplacement du
classeur et du fichier. Mais il recherche le fichier Année*.xls ! Ca veut
bien dire fichier qui commence par Année ??

Voilà! Si vous connaissez la cause du problème !!!!

En attendant je vais faire un autre teste sur la methode de Papou que je
remercie vivement pour sonaide également!

Le code que j'ai mis est le suivant :

PathCourant = Sheets("LIEN").Range("B16").Value &
Sheets("RESUMER").Range("B9").Value & "" & Sheets("LIEN").Range("c18").Value
& "" & Sheets("LIEN").Range("A38").Value & ""

FichierRecherché = PathCourant & "Année*.xls"
FichierCible = Dir(FichierRecherché)
Do While FichierCible <> ""
Workbooks.Open FichierRecherché
Loop

Salut Baptiste,

J'ai !
tu renseignes le chemin d'accès:

PathCourant = "e:Documents and SettingsbaptisteMy Documents"

tu renseignes le type de nom (attention, j'ai mis un espace entre année et *)

FichierRecherché = PathCourant & "Année *.xls"
FichierCible = Dir(FichierRecherché)
Do while FichierCible <> ""
Workbooks.Open FichierRecherché
ETC...

Loop
End Sub.

Essaie ça, ça devrait fonctionner...

Cdt

Bonjour a tout le groupe!!!

J'aimerai savoir s'il existe un code qui est capable d'ouvrir les fichiers
Excel d'un répertoire défini.

En fait la macro doit ouvrir dans le Fichier X, un par un tout les fichier
excele commençants par le terme "Année" ! Sachant qu'il peut y en avoir
plusieurs (jusqu'à 6) !

Le but générale est d'ouvrir le fichier, copier la plage de cellule de
A1:A500, et de la copier sur un autre fichier de consolidation. Cette
opération doit ce répéter autant de fois qu'il y a de fichier xls commençant
par "Année de le répertoire en question !

J'ai quelques doute sur la faisabilité d'une telle opération mais bon! on ne
sait jamais !

Merci d'avance!

Alors, je me suis peut-être mal exprimé :
à Pathcourant, il faut attribuer le chemin d'accès aux classeurs, du type
Pathcourant = "C:documentstoto"
Il faut mettre votre code (copie et collage des données) à la place du
ETC.., que j'ai inscrit, soit dans la boucle While.
Dîtes-moi où se trouvent (les nom des fichiers) les classeurs et je vous
inscirais le pathcourant nécessaire.

Cdt

re bonjour!

Pour l'instant j'ai tester cette technique mais il semble y avoir un petit
problème. Ce n'est pas une question de lien car même si le chemin d'accès
semble complexe, je l'ai tester et il marche! Ensuite il y a bien dans ce
répertoire des fichiers qui commences par Année ! (j'ai essayé avec et sans
l'espace entre l'*)!

Mais il y a erreur d'executin 1004 qui dit de vérifier l'emplacement du
classeur et du fichier. Mais il recherche le fichier Année*.xls ! Ca veut
bien dire fichier qui commence par Année ??

Voilà! Si vous connaissez la cause du problème !!!!

En attendant je vais faire un autre teste sur la methode de Papou que je
remercie vivement pour sonaide également!

Le code que j'ai mis est le suivant :

PathCourant = Sheets("LIEN").Range("B16").Value &
Sheets("RESUMER").Range("B9").Value & "" & Sheets("LIEN").Range("c18").Value
& "" & Sheets("LIEN").Range("A38").Value & ""

FichierRecherché = PathCourant & "Année*.xls"
FichierCible = Dir(FichierRecherché)
Do While FichierCible <> ""
Workbooks.Open FichierRecherché
Loop

Salut Baptiste,

J'ai !
tu renseignes le chemin d'accès:

PathCourant = "e:Documents and SettingsbaptisteMy Documents"

tu renseignes le type de nom (attention, j'ai mis un espace entre année et *)

FichierRecherché = PathCourant & "Année *.xls"
FichierCible = Dir(FichierRecherché)
Do while FichierCible <> ""
Workbooks.Open FichierRecherché
ETC...

Loop
End Sub.

Essaie ça, ça devrait fonctionner...

Cdt

Bonjour a tout le groupe!!!

J'aimerai savoir s'il existe un code qui est capable d'ouvrir les fichiers
Excel d'un répertoire défini.

En fait la macro doit ouvrir dans le Fichier X, un par un tout les fichier
excele commençants par le terme "Année" ! Sachant qu'il peut y en avoir
plusieurs (jusqu'à 6) !

Le but générale est d'ouvrir le fichier, copier la plage de cellule de
A1:A500, et de la copier sur un autre fichier de consolidation. Cette
opération doit ce répéter autant de fois qu'il y a de fichier xls commençant
par "Année de le répertoire en question !

J'ai quelques doute sur la faisabilité d'une telle opération mais bon! on ne
sait jamais !

Merci d'avance!

Salut,

Insère un MsgBox après avoir déclaré ta variable FichierRecherché pour voir
s'il n'y aurait pas d'erreur de syntaxe.
FichierRecherché = PathCourant & "Année*.xls"
MsgBox FichierRecherché

Michel

"Daniel" <Daniel@discussions.microsoft.com> a écrit dans le message de
news:1DABF632-0852-4CCF-ACCA-2D45A290B717@microsoft.com...

re bonjour!

Pour l'instant j'ai tester cette technique mais il semble y avoir un petit
problème. Ce n'est pas une question de lien car même si le chemin d'accès
semble complexe, je l'ai tester et il marche! Ensuite il y a bien dans ce
répertoire des fichiers qui commences par Année ! (j'ai essayé avec et
sans

l'espace entre l'*)!

Mais il y a erreur d'executin 1004 qui dit de vérifier l'emplacement du
classeur et du fichier. Mais il recherche le fichier Année*.xls ! Ca veut
bien dire fichier qui commence par Année ??

Voilà! Si vous connaissez la cause du problème !!!!

En attendant je vais faire un autre teste sur la methode de Papou que je
remercie vivement pour sonaide également!

Le code que j'ai mis est le suivant :

PathCourant = Sheets("LIEN").Range("B16").Value &
Sheets("RESUMER").Range("B9").Value & "" &
Sheets("LIEN").Range("c18").Value

& "" & Sheets("LIEN").Range("A38").Value & ""

FichierRecherché = PathCourant & "Année*.xls"
FichierCible = Dir(FichierRecherché)
Do While FichierCible <> ""
Workbooks.Open FichierRecherché
Loop

Salut Baptiste,

J'ai !
tu renseignes le chemin d'accès:

PathCourant = "e:Documents and SettingsbaptisteMy Documents"

tu renseignes le type de nom (attention, j'ai mis un espace entre année
et *)

FichierRecherché = PathCourant & "Année *.xls"
FichierCible = Dir(FichierRecherché)
Do while FichierCible <> ""
Workbooks.Open FichierRecherché
ETC...

Loop
End Sub.

Essaie ça, ça devrait fonctionner...

Cdt

Bonjour a tout le groupe!!!

J'aimerai savoir s'il existe un code qui est capable d'ouvrir les
fichiers

Excel d'un répertoire défini.

En fait la macro doit ouvrir dans le Fichier X, un par un tout les
fichier

excele commençants par le terme "Année" ! Sachant qu'il peut y en
avoir

plusieurs (jusqu'à 6) !

Le but générale est d'ouvrir le fichier, copier la plage de cellule de
A1:A500, et de la copier sur un autre fichier de consolidation. Cette
opération doit ce répéter autant de fois qu'il y a de fichier xls
commençant

par "Année de le répertoire en question !

J'ai quelques doute sur la faisabilité d'une telle opération mais bon!
on ne

sait jamais !

Merci d'avance!

Bonjour MPi : Le résultat est que je voie le lien que je souhaite avec à la
fin Année*.xls !!

?? Que faire !

Alors, je me suis peut-être mal exprimé :
à Pathcourant, il faut attribuer le chemin d'accès aux classeurs, du type
Pathcourant = "C:documentstoto"
Il faut mettre votre code (copie et collage des données) à la place du
ETC.., que j'ai inscrit, soit dans la boucle While.
Dîtes-moi où se trouvent (les nom des fichiers) les classeurs et je vous
inscirais le pathcourant nécessaire.

Cdt

re bonjour!

Pour l'instant j'ai tester cette technique mais il semble y avoir un petit
problème. Ce n'est pas une question de lien car même si le chemin d'accès
semble complexe, je l'ai tester et il marche! Ensuite il y a bien dans ce
répertoire des fichiers qui commences par Année ! (j'ai essayé avec et sans
l'espace entre l'*)!

Mais il y a erreur d'executin 1004 qui dit de vérifier l'emplacement du
classeur et du fichier. Mais il recherche le fichier Année*.xls ! Ca veut
bien dire fichier qui commence par Année ??

Voilà! Si vous connaissez la cause du problème !!!!

En attendant je vais faire un autre teste sur la methode de Papou que je
remercie vivement pour sonaide également!

Le code que j'ai mis est le suivant :

PathCourant = Sheets("LIEN").Range("B16").Value &
Sheets("RESUMER").Range("B9").Value & "" & Sheets("LIEN").Range("c18").Value
& "" & Sheets("LIEN").Range("A38").Value & ""

FichierRecherché = PathCourant & "Année*.xls"
FichierCible = Dir(FichierRecherché)
Do While FichierCible <> ""
Workbooks.Open FichierRecherché
Loop

Salut Baptiste,

J'ai !
tu renseignes le chemin d'accès:

PathCourant = "e:Documents and SettingsbaptisteMy Documents"

tu renseignes le type de nom (attention, j'ai mis un espace entre année et *)

FichierRecherché = PathCourant & "Année *.xls"
FichierCible = Dir(FichierRecherché)
Do while FichierCible <> ""
Workbooks.Open FichierRecherché
ETC...

Loop
End Sub.

Essaie ça, ça devrait fonctionner...

Cdt

Bonjour a tout le groupe!!!

J'aimerai savoir s'il existe un code qui est capable d'ouvrir les fichiers
Excel d'un répertoire défini.

En fait la macro doit ouvrir dans le Fichier X, un par un tout les fichier
excele commençants par le terme "Année" ! Sachant qu'il peut y en avoir
plusieurs (jusqu'à 6) !

Le but générale est d'ouvrir le fichier, copier la plage de cellule de
A1:A500, et de la copier sur un autre fichier de consolidation. Cette
opération doit ce répéter autant de fois qu'il y a de fichier xls commençant
par "Année de le répertoire en question !

J'ai quelques doute sur la faisabilité d'une telle opération mais bon! on ne
sait jamais !

Merci d'avance!

Le msgBox proposé par MPi ne sert qu'à afficher le lien justement. C'est un
moyen de vérifier que c'est le bon, c'est tout !
Voici une macro qui devrait suffire aux vues des informations que tu nous as
transmises.

Pathcourant = "<remplacer ici par le chemin d'accès exact>"
ChDir (Pathcourant)
FichierRecherché = Pathcourant & "Année*.xls"
FichierCible = Dir(FichierRecherché)

Do While FichierCible <> ""
Workbooks.Open FichierCible
ActiveWorkbook.Worksheets("<mettre ici le nom exact de la
feuille>").Range("A1:A500").Copy
Workbooks("<Nom du fichier de consolidation>").Activate
Sheets("<nom de la feuille où copier>").Cells(1, 1).Select
ActiveSheet.Paste

Loop

tous les champs entre <...> sont à renseigner avec ce qui est indiqué à
l'intérieur.
après, ca devrait tourner tout seul !

Cdt

Bonjour MPi : Le résultat est que je voie le lien que je souhaite avec à la
fin Année*.xls !!

?? Que faire !

Alors, je me suis peut-être mal exprimé :
à Pathcourant, il faut attribuer le chemin d'accès aux classeurs, du type
Pathcourant = "C:documentstoto"
Il faut mettre votre code (copie et collage des données) à la place du
ETC.., que j'ai inscrit, soit dans la boucle While.
Dîtes-moi où se trouvent (les nom des fichiers) les classeurs et je vous
inscirais le pathcourant nécessaire.

Cdt

re bonjour!

Pour l'instant j'ai tester cette technique mais il semble y avoir un petit
problème. Ce n'est pas une question de lien car même si le chemin d'accès
semble complexe, je l'ai tester et il marche! Ensuite il y a bien dans ce
répertoire des fichiers qui commences par Année ! (j'ai essayé avec et sans
l'espace entre l'*)!

Mais il y a erreur d'executin 1004 qui dit de vérifier l'emplacement du
classeur et du fichier. Mais il recherche le fichier Année*.xls ! Ca veut
bien dire fichier qui commence par Année ??

Voilà! Si vous connaissez la cause du problème !!!!

En attendant je vais faire un autre teste sur la methode de Papou que je
remercie vivement pour sonaide également!

Le code que j'ai mis est le suivant :

PathCourant = Sheets("LIEN").Range("B16").Value &
Sheets("RESUMER").Range("B9").Value & "" & Sheets("LIEN").Range("c18").Value
& "" & Sheets("LIEN").Range("A38").Value & ""

FichierRecherché = PathCourant & "Année*.xls"
FichierCible = Dir(FichierRecherché)
Do While FichierCible <> ""
Workbooks.Open FichierRecherché
Loop

Salut Baptiste,

J'ai !
tu renseignes le chemin d'accès:

PathCourant = "e:Documents and SettingsbaptisteMy Documents"

tu renseignes le type de nom (attention, j'ai mis un espace entre année et *)

FichierRecherché = PathCourant & "Année *.xls"
FichierCible = Dir(FichierRecherché)
Do while FichierCible <> ""
Workbooks.Open FichierRecherché
ETC...

Loop
End Sub.

Essaie ça, ça devrait fonctionner...

Cdt

Bonjour a tout le groupe!!!

J'aimerai savoir s'il existe un code qui est capable d'ouvrir les fichiers
Excel d'un répertoire défini.

En fait la macro doit ouvrir dans le Fichier X, un par un tout les fichier
excele commençants par le terme "Année" ! Sachant qu'il peut y en avoir
plusieurs (jusqu'à 6) !

Le but générale est d'ouvrir le fichier, copier la plage de cellule de
A1:A500, et de la copier sur un autre fichier de consolidation. Cette
opération doit ce répéter autant de fois qu'il y a de fichier xls commençant
par "Année de le répertoire en question !

J'ai quelques doute sur la faisabilité d'une telle opération mais bon! on ne
sait jamais !

Merci d'avance!

Ca y est en fait!!!

J'ai un de mes amis avec qui je bosse sur Excel qui à posé la question juste
au dessus et le problème était ça :

ChDrive "I"


Donc ça nous donne du :

Pathcourant = Sheets("LIEN").Range("B16").Value &
Sheets("RESUMER").Range("B9").Value & "" & Sheets("LIEN").Range("c18").Value
& "" & Sheets("LIEN").Range("A38").Value & ""
ChDrive "I"
ChDir (Pathcourant)
FichierRecherché = Pathcourant & "Soie*.xls"
FichierCible = Dir(FichierRecherché)
Do While FichierCible <> ""
Workbooks.Open FichierCible
ActiveWorkbook.Worksheets("<mettre ici le nom exact de la
feuille>").Range("A1:A500").Copy
Workbooks("<Nom du fichier de consolidation>").Activate
Sheets("<nom de la feuille où copier>").Cells(1, 1).Select
ActiveSheet.Paste

Tout s'explique !!!!!

Merci beaucoup de votre aide !!!!

"Ricou" wrote:

Le msgBox proposé par MPi ne sert qu'à afficher le lien justement. C'est un
moyen de vérifier que c'est le bon, c'est tout !
Voici une macro qui devrait suffire aux vues des informations que tu nous as
transmises.

Pathcourant = "<remplacer ici par le chemin d'accès exact>"
ChDir (Pathcourant)
FichierRecherché = Pathcourant & "Année*.xls"
FichierCible = Dir(FichierRecherché)

Do While FichierCible <> ""
Workbooks.Open FichierCible
ActiveWorkbook.Worksheets("<mettre ici le nom exact de la
feuille>").Range("A1:A500").Copy
Workbooks("<Nom du fichier de consolidation>").Activate
Sheets("<nom de la feuille où copier>").Cells(1, 1).Select
ActiveSheet.Paste

Loop

tous les champs entre <...> sont à renseigner avec ce qui est indiqué à
l'intérieur.
après, ca devrait tourner tout seul !

Cdt

Bonjour MPi : Le résultat est que je voie le lien que je souhaite avec à la
fin Année*.xls !!

?? Que faire !

Alors, je me suis peut-être mal exprimé :
à Pathcourant, il faut attribuer le chemin d'accès aux classeurs, du type
Pathcourant = "C:documentstoto"
Il faut mettre votre code (copie et collage des données) à la place du
ETC.., que j'ai inscrit, soit dans la boucle While.
Dîtes-moi où se trouvent (les nom des fichiers) les classeurs et je vous
inscirais le pathcourant nécessaire.

Cdt

re bonjour!

Pour l'instant j'ai tester cette technique mais il semble y avoir un petit
problème. Ce n'est pas une question de lien car même si le chemin d'accès
semble complexe, je l'ai tester et il marche! Ensuite il y a bien dans ce
répertoire des fichiers qui commences par Année ! (j'ai essayé avec et sans
l'espace entre l'*)!

Mais il y a erreur d'executin 1004 qui dit de vérifier l'emplacement du
classeur et du fichier. Mais il recherche le fichier Année*.xls ! Ca veut
bien dire fichier qui commence par Année ??

Voilà! Si vous connaissez la cause du problème !!!!

En attendant je vais faire un autre teste sur la methode de Papou que je
remercie vivement pour sonaide également!

Le code que j'ai mis est le suivant :

PathCourant = Sheets("LIEN").Range("B16").Value &
Sheets("RESUMER").Range("B9").Value & "" & Sheets("LIEN").Range("c18").Value
& "" & Sheets("LIEN").Range("A38").Value & ""

FichierRecherché = PathCourant & "Année*.xls"
FichierCible = Dir(FichierRecherché)
Do While FichierCible <> ""
Workbooks.Open FichierRecherché
Loop

Salut Baptiste,

J'ai !
tu renseignes le chemin d'accès:

PathCourant = "e:Documents and SettingsbaptisteMy Documents"

tu renseignes le type de nom (attention, j'ai mis un espace entre année et *)

FichierRecherché = PathCourant & "Année *.xls"
FichierCible = Dir(FichierRecherché)
Do while FichierCible <> ""
Workbooks.Open FichierRecherché
ETC...

Loop
End Sub.

Essaie ça, ça devrait fonctionner...

Cdt

Bonjour a tout le groupe!!!

J'aimerai savoir s'il existe un code qui est capable d'ouvrir les fichiers
Excel d'un répertoire défini.

En fait la macro doit ouvrir dans le Fichier X, un par un tout les fichier
excele commençants par le terme "Année" ! Sachant qu'il peut y en avoir
plusieurs (jusqu'à 6) !

Le but générale est d'ouvrir le fichier, copier la plage de cellule de
A1:A500, et de la copier sur un autre fichier de consolidation. Cette
opération doit ce répéter autant de fois qu'il y a de fichier xls commençant
par "Année de le répertoire en question !

J'ai quelques doute sur la faisabilité d'une telle opération mais bon! on ne
sait jamais !

Merci d'avance!