Discussion :

[Thomas69]

Voila mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[illight]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Thomas69]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

thomas.Worksheets("5")

n'a aucun sens.

[illight]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

?

[Thomas69]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[illight]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim thomas As String

t'a juste oublié de le définir

du coup ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dim fl as worksheet