{VBA-Excel}Création de macro

Version imprimable

01/06/2007, 10h59
Thomas69

{VBA-Excel}Création de macro

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
01/06/2007, 11h32
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:

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

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

Code:

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

Code:

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.

01/06/2007, 11h59
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:

1 2 Set Workbooks("thomas.xls").Sheets("Feuil1").Range("A1").Value = _ Workbooks("A180_PROD_1_LOT_7083004.xls").Sheets("Feuil1").Range("A14").Value
01/06/2007, 12h51
alsimbad

Code:

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).
01/06/2007, 13h43
Thomas69

alsimbad j'ai deja eut ma reponse au -dessus de toi
merci du coup de main
01/06/2007, 15h30
tonton fred

Citation:

Envoyé par Thomas69

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 ;)
01/06/2007, 15h42
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?
01/06/2007, 16h02
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 ?
04/06/2007, 08h57
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
04/06/2007, 09h30
ouskel'n'or
Pour ouvrir un fichier existant, ce n'est pas Add mais Open

Code:

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.

Citation:

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:

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

:oops: desolé ouskel j'avais completement zappe ca
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 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

04/06/2007, 10h20
tonton fred
Resumons pour que tu comprennes bien:
newwb est un Workbook et "vaut"

Code:

workbooks("A180_PROD_1_LOT_7083004.xls")

fl est une Worksheet et "vaut"
Code:

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

Code:

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

Tu comprends ?
04/06/2007, 10h25
ouskel'n'or
Autant pour moi. :oops: newwb est ton classeur, tu dois utiliser la feuille : FL1
Code:

1 2 Workbooks("thomas.xls").Sheets("Feuil1").Range("A1").Value = _ FL1.Range("A14").Value
Désolé
A+
04/06/2007, 11h54
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