Discussion :

[Thomas69]

Comme toujours un soucis

je n'arrive pas du tout a créer une macro qui va lire dans un fichier excel une valeur dans une cellule
et qui va recopier cette valeur dans un autre fichier excel dans une cellule

le nom de mon fichier ou se trouve la valeur
A180_PROD_1_LOT_7083004.xls
la cellule est A14

le nom du fichier dans laquelle je veux copier
thomas.xls
la cellule est A1

[tonton fred]

Mmm sur ce coup la une petite recherche sur le forum t'aurait donne la reponse, c'est une des questions recurrentes...

Code :

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

1
2
Workbooks("thomas.xls").Sheets("Feuil1").Range("A1").value = Workbooks("A180_PROD_1_LOT_7083004.xls
").Sheets("Feuil1").Range("A14").value

Adapte les feuilles bien sur

[Thomas69]

ben justement c'est ce que j'avais fait dans la macro

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub recopie()
Dim A180_PROD_1_LOT_7083004 As Workbook
Dim fl As Worksheet
Dim Cell As Range
    Set newwb = Workbooks.Add("C:\Documents and Settings\S8746037\Bureau\Etude\Programme Excel Stephane\JB\Archivage\A180_PROD_1_LOT_7083004.xls")
    Set fl = Worbook.Worksheets("5")
    For Each Cell In fl.Range("A14")
      Set Workbooks("thomas.xls").Sheets("Feuil1").Range("A1").Value = _
      Workbooks("A180_PROD_1_LOT_7083004.xls").Sheets("Feuil1").Range("A14").Value
    Next
 
End Sub

et mon erreur c'est

erreur d'execution
objet requis pour la ligne en rouge

[tonton fred]

Code :

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

1
2
Set newwb = Workbooks.Add("C:\Documents and Settings\S8746037\Bureau\Etude\Programme Excel Stephane\JB\Archivage\A180_PROD_1_LOT_7083004.xls")
    Set fl = newwb.Worksheets("5")

Il faut lui dire quel workbooks tu utilises sinon il veut pas.

[Thomas69]

au quel c*** que je suis une boulette si stupide

merci
mais la j'ai une nouvelle erreur

l'indice n'appartient pas a la selection

Code :

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

1
2
 Set Workbooks("thomas.xls").Sheets("Feuil1").Range("A1").Value = _
      Workbooks("A180_PROD_1_LOT_7083004.xls").Sheets("Feuil1").Range("A14").Value

[alsimbad]

Code :

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

Set fl = Worbook.Worksheets("5")

ou ta feuille s'appelle réelement 5 ou tu confond avec son index et dans ce cas, il te faut utiliser sheets(5).

[tonton fred]

l'indice n'appartient pas a la selection

Cela veut dire que tu essayes de selectionner un objet qui n'existe pas, alsimbad t'as donne une bonne piste