{VBA Excel}Ouvrir copier et fermer plusieurs fichiers excel

Voila mon code

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub recopie() Dim A180_PROD_1_LOT_7083004 As Workbook Dim fl As Worksheet Dim Cell As Range Set thomas = Workbooks.Open("C:\Documents and Settings\S8746037\Bureau\Etude\Programme Excel Stephane\JB\Archivage\A180_PROD_1_LOT_7083004.xls") Set fl = thomas.Worksheets("5") Workbooks("thomas.xls").Sheets("Feuil1").Range("A1").Value = _ fl.Range("A14").Value   End Sub

---

ce code me permet d'ouvrir un fichier et de copier une cellule

je voudrais trouver une solution pour que ce code ouvre plusieurs fichier qui ont le meme nom A180_PROD_1_LOT_7083004 mais pas le meme numero de fin (en rouge)

et de copier la cellule A14 de tous ces fichier dans le fichier thomas a la suite
et apres de fermer les fichiers excel

Est ce possible de faire cette opération en caché?


J'ai deja essayer de remplacer les numéros par des * ou des # car ils ont tous le meme nombre de numéro mais ca ne marche pas

si vous avez une idée pour m'aiguiller

merci d'avance

Regarde du coté de la fonction Dir, tu peux parcourir des fichiers dans un dossier :)

A c emoment la tu pourra écrire un truc du genre :

Code:

---

1 2 3 4 5 6 7

dim fic as string fic = Dir("C:\Documents and Settings\S8746037\Bureau\Etude\Programme Excel Stephane\JB\Archivage\A180_PROD_1_LOT*.xls") Do Until fic = "" 'ta procédure fic = Dir Loop

---

Pour plus d'informations sur la fonction Dir, tu peux regarder dans l'aide en ligne tout cela est parfaitement expliqué et très clair :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub compter() Dim fic As String thomas = Dir("C:\Documents and Settings\S8746037\Bureau\Etude\Programme Excel Stephane\JB\Archivage\A180_PROD_1_LOT*.xls") Do Until thomas = "" Set fl = thomas.Worksheets("5") Workbooks("thomas.xls").Sheets("Feuil1").Range("A1").Value = _ fl.Range("A14").Value thomas = Dir Loop End Sub

---

mais ca me marque une erreur en me disant "objet requis"

Dir renvoie une String...

Et une string n'a pas de propriété ni de collections de même qu'on ne peut pas lui appliquer une méthode.

Autrement dit,

Code:

---

thomas.Worksheets("5")

---

n'a aucun sens.

Normal, déja thomas tu l'as pas défini :)

je pense que tu voulais le définir comme suit :

Code:

---

Dim thomas As String

---

t'a juste oublié de le définir :)

du coup ça :

Code:

---

Set fl = thomas.Worksheets("5")

---

est faux car thomas n'est pas un classeur, mais un NOM de classeur, et il faut l'utiliser comme suit :

Code:

---

Set fl = workbooks(thomas).sheets("5")

---

mais fl il faut le définir auparavant tu l'as pas fait :

Code:

---

dim fl as worksheet

---

Citation:

---

Envoyé par AlainTech

Dir renvoie une String...

Et une string n'a pas de propriété ni de collections de même qu'on ne peut pas lui appliquer une méthode.

Autrement dit,

Code:

---

thomas.Worksheets("5")

---

n'a aucun sens.

---

Alain, au vu de ce que tu dis, je sais que la fonction dir renvoie une string, mais est-ce qu'on peut quand meme le définir directement comme un workbook ? ou faut quand meme le définir avant, en faisant par exemple :

Code:

---

1 2	dim w as workbook set w = workbooks(thomas)

---

? :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub compter() Dim fic As String Dim fl As Worksheet fic = Dir("C:\Documents and Settings\S8746037\Bureau\Etude\Programme Excel Stephane\JB\Archivage\A180_PROD_1_LOT*.xls") Do Until fic = "" Set fl = Workbooks(thomas).Sheets("5") Workbooks("thomas.xls").Sheets("Feuil1").Range("A1").Value = _ fl.Range("A14").Value thomas = Dir Loop End Sub

---

ca me marque l'indice n'appartient pas a la selection
la je suis completement perdus

Normal :

Code:

---

Set fl = Workbooks(thomas).Sheets("5")

---

thomas tu l'as définit ou ?

Pour écrire ça,

Citation:

---

Set fl = Workbooks(thomas).Sheets("5")

---

ta feuille de calculs doit se nommer "5"
As-tu une feuille de calculs qui se nomme "5" ?

oui justement ma feuille de calcul est nommé "5"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub compter() Dim fic As String Dim fl As Worksheet Dim thomas As Worksheet   fic = Dir("C:\Documents and Settings\S8746037\Bureau\Etude\Programme Excel Stephane\JB\Archivage\A180_PROD_1_LOT*.xls") Do Until fic = ""   Set fl = Workbooks(thomas).Sheets("5") Workbooks("thomas.xls").Sheets("Feuil1").Range("A1").Value = _ fl.Range("A14").Value   fic = Dir Loop   End Sub

---

voila j'ai definit thomas sur l'exemple j'ai mis WorsSheets mais j'ai aussi essaye Worbooks

mais ca me marque incompabilité de type

Au lieu de :

Code:

---

Set fl = Workbooks(thomas).Sheets("5")

---

écris :

Code:

---

Set fl = Workbooks(fic).Sheets("5")

---

thomas tu l'as déifnit nulle part c'est normal qu'il te trouve rien..

Thomas est une feuille de calculs, pas un classeur.
Un peu de syntaxe

Code:

---

1 2 3 4

Dim CL1 as Workbook Dim FL1 as Worksheet Set CL1 = Workbooks("NomDuClasseur.xls") Set FL1 = Worksheets("NomDeLaFeuille")

---

que tu peux aussi écrire

Code:

---

Set FL1 = CL1.Worksheets("NomDeLaFeuille")

---

pour avoir la feuille "NomDeLaFeuille" du classeur "NomDuClasseur.xls"
Mais j'ai une question : Tu l'ouvres quand ton classeur ?
A+

Oui, ousk a raison en plus et je l'ai meme pas vu, faut ouvrir ton classeur avant :mrgreen: (merci Ousk, heureusement que t'arrive :king: )

la fonction Dir ne t'ouvre pas le classeur, elle t'aide juste a trouver le nomd e ton classeur :)

d'accord

moi je pensais que la fonction dir ouvrais le classeur

ben justement je ne l'ouvre pas
a aucun moment



ce que je voudrais c'est que ma macro comme la premiere que j'ai poste
face la meme fonction mais avec une boucle qui ouvre tous les classeurs la meme cellule dans ces classeurs et ensuite ferme ces classeurs


et c'est sur ce probleme que je bloque

Citation:

---

Envoyé par Thomas69

d'accord

moi je pensais que la fonction dir ouvrais le classeur

ben justement je ne l'ouvre pas
a aucun moment

ce que je voudrais c'est que ma macro comme la premiere que j'ai poste
face la meme fonction mais avec une boucle qui ouvre tous les classeurs la meme cellule dans ces classeurs et ensuite ferme ces classeurs


et c'est sur ce probleme que je bloque

---

En effet, c'est très clair... Tu fais quoi une fois qu'il a trouvé la même cellule ?
Pour ouvrir et fermer, c'est facile avec ton code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub compter() Dim fic As String Dim CL1 as Workbook, Chemin Dim fl As Worksheet 'Dim thomas As Worksheet Chemin = "C:\Documents and Settings\S8746037\Bureau\Etude\Programme Excel Stephane\JB\Archivage\" fic = Dir(Chemin & "A180_PROD_1_LOT*.xls") Do Until fic = "" Set CL1 = Workbooks.Open Filename:=Chemin & fic DoEvents Set fl = CL1.Worksheets("5") 'Workbooks("thomas.xls").Sheets("Feuil1").Range("A1").Value = _   fl.Range("A14").Value fic = Dir CL1.Close True 'si tu enregistres le fichier ouvert -> Sinon c'est False DoEvents Loop Set CL1 = NoThing Set fl = Nothing End Sub

---

Ce que j'ai mis en remarque c'est ce que je n'ai pas compris
Thomas est un classeur ou une feuille de calculs ?
Dans quel fichier places-tu "Range("A14").Value" et où ? Là tu places la donnée sur la même cellule, la dernière remplace la précédente, en admettant que le reste du code soit correct...
Tu dis
A+

Citation:

---

Thomas est un classeur ou une feuille de calculs ?

---

Thomas est un classeur je pensais que tu avais compris quand je l'est definit par workbook

Citation:

---

Dans quel fichier places-tu "Range("A14").Value" et où ? Là tu places la donnée sur la même cellule, la dernière remplace la précédente, en admettant que le reste du code soit correct...

---

je copie la cellule A14 de la feuille 5 dans mon classeur Thomas feuil1 dans la cellule A1 pour commencer et les autres a la suitre a2;a3;a4.......


voila en esperant etre plus claire


J'ai essayer le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub compter() Dim fic As String Dim CL1 As Workbook, Chemin Dim fl As Worksheet 'Dim thomas As Worksheet Chemin = "C:\Documents and Settings\S8746037\Bureau\Etude\Programme Excel Stephane\JB\Archivage\" fic = Dir(Chemin & "A180_PROD_1_LOT*.xls") Do Until fic = "" Set CL1 = Workbooks.Open Filename:=Chemin & fic DoEvents Set fl = CL1.Worksheets("5") 'Workbooks("thomas.xls").Sheets("Feuil1").Range("A1").Value = _ fl.Range("A14").Value fic = Dir CL1.Close True 'si tu enregistres le fichier ouvert -> Sinon c'est False DoEvents Loop Set CL1 = Nothing Set fl = Nothing End Sub

---

par contre il y une erreur de syntaxe

Code:

---

Set CL1 = Workbooks.Open.Filename = "Chemin & fic"

---

j'ai retape le code
maintenant ca m'a'affiche

Argument non facultatif

Citation:

---

Envoyé par Thomas69

Code:

---

Set CL1 = Workbooks.Open.Filename = "Chemin & fic"

---

j'ai retape le code
maintenant ca m'a'affiche

Argument non facultatif

---

Essaye ça :

Code:

---

Set CL1 = Workbooks.Open(Chemin & fic)

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub compter() Dim fic As String Dim CL1 As Workbook, Chemin Dim fl As Worksheet 'Dim thomas As Worksheet Chemin = "C:\Documents and Settings\S8746037\Bureau\Etude\Programme Excel Stephane\JB\Archivage\" fic = Dir(Chemin & "A180_PROD_1_LOT*.xls") Do Until fic = "" Set CL1 = Workbooks.Open(Chemin & fic) DoEvents Set fl = CL1.Worksheets("5") Workbooks("thomas.xls").Sheets("5").Range("A1").Value = _ fl.Range("A14").Value fic = Dir CL1.Close True 'si tu enregistres le fichier ouvert -> Sinon c'est False DoEvents Loop Set CL1 = Nothing Set fl = Nothing End Sub

---

j'ai fait ta modification illight
ca marche pas tout as fait

on recopie seulement la valeur du 1er classeur pas des autres

Euh, Thomas69...

Tu ne chercherais pas un peu par toi-même au lieu de venir nous poster chaque erreur que tu rencontres?

Utilises-tu l'aide de temps en temps?

On peut te donner des pistes de recherches mais pas écrire tout ton code pour toi.

Un coup de F1 sur Dir et Open aurait dû te mettre sur la voie pour tes erreurs précédentes.

Pour celle-ci, fais du pas à pas et regarde pourquoi tu ne traites qu'un fichier.

Un petit coup de pouce, parce que je suis dans un bon jour:
Tu n'as pas l'impression d'écrire les valeurs de tous tes fichiers au même endroit?