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).

[Thomas69]

alsimbad j'ai deja eut ma reponse au -dessus de toi
merci du coup de main

[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

[Thomas69]

ok

j'ai compris il faudrait que je dise ou je copie la cellule car mon fichier thomas n'est pas dans le meme repertoire

comment je pourrais faire?

[tonton fred]

Ca n'a pas de rapport (enfin ca ne devrait pas en avoir...). j'utilise ce type de syntaxe tous les jours avec des fichiers qui sont sur plusieurs disques reseaux et ca marche. Il faut juste que le fichier soit ouvert.

Par contre je suis moins sur du set, si tu l'enleves ca fait quoi ?

[Thomas69]

j'ai enlever le SET et ca m'affiche toujours la meme erreur
mon fichier thomas est ouvert et ca ouvre bien mon autre fichier

donc je vois pas pk la selection n'est pas prise

[ouskel'n'or]

Pour ouvrir un fichier existant, ce n'est pas Add mais Open

Code :

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

    Set newwb = Workbooks.Open filname:="C:\Documents and Settings\S8746037\Bureau\Etude\Programme Excel Stephane\JB\Archivage\A180_PROD_1_LOT_7083004.xls"

Et tout ça ne rime à rien. Tu n'as qu'une seule cellule. Supprime les ligne en rouge, non seulement elles ne riment à rien mais elles nuisent à ta ligne.

For Each Cell In fl.Range("A14")
Workbooks("thomas.xls").Sheets("Feuil1").Range("A1").Value = _
Workbooks("A180_PROD_1_LOT_7083004.xls").Sheets("Feuil1").Range("A14").Value
Next

Enfin, une fois ton fichier ouvert, tu dois utiliser newwb comme on te l'a dit

Code :

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

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

Et je crois te l'avoir déjà dit.
A+

Edit
Effectivement, relis ce que je t'ai mis ici

[Thomas69]

desolé ouskel j'avais completement zappe ca

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 newwb = Workbooks.Open("C:\Documents and Settings\S8746037\Bureau\Etude\Programme Excel Stephane\JB\Archivage\A180_PROD_1_LOT_7083004.xls")
    Set fl = newwb.Worksheets("5")
    Workbooks("thomas.xls").Sheets("Feuil1").Range("A1").Value = _
      newwb.Range("A14").Value
 
End Sub

voici le code
mais maintenant j'ai une erreur qui apparait

propriéte ou methode non gérée par cette objet sur la ligne en rouge.

J'ai essayer de rajouter un set et cela ne change rien toujours la meme erreur

[tonton fred]

Resumons pour que tu comprennes bien:
newwb est un Workbook et "vaut"

Code :

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

workbooks("A180_PROD_1_LOT_7083004.xls")

fl est une Worksheet et "vaut"

Code :

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

1
2
3
newwb.Worksheets("5")
'equivalent a
workbooks("A180_PROD_1_LOT_7083004.xls").Worksheets("5")

Tu as donc ecrit

Code :

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

workbooks("A180_PROD_1_LOT_7083004.xls").range("A14")

Tu comprends ?

[ouskel'n'or]

Autant pour moi. newwb est ton classeur, tu dois utiliser la feuille : FL1

Code :

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

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

Désolé
A+

[Thomas69]

merci tonton pour ton explication

ouskel tu as fait une faute c'est fl et non FL1
mais maintenant ca marche

je vous remercie beaucoup encore une fois de plus vous m'avez beaucoup aider