VBA, classeur actif pb de destination Fermé

Question

Bonjour,


J'ai un soucis dans ma ligne de code, il copie la cellule A1 dans la feuille 2 de Teste.xls et m'ouvre la feuille2 de teste1.xls, c'est cool mais il se trompe de classeur .... il reste dans le premier classeur et ne copie pas la A1 dans teste1.xls il ouvre seulement la feuille2....et copie dans le 1er classeur

code : 

Private Sub CommandButton1_Click()

Windows("teste.xls").Activate
Sheets("Feuil1").Select
Feuil1.Range("A1:A1").Copy

Windows("teste1.xls").Activate
Sheets("Feuil2").Select
Feuil2.Range("A12:A12").PasteSpecial
Operation = xlPasteSpecialOperationNon

End Sub


Est il possible de mettre Feuil1.Cells(1,1).Copy ??? je voudrais utiliser les Cells au lieu de Range


Amicalement

RailBird · Answer

Private Sub CommandButton1_Click() 

Dim Variable1 As String

ActiveWorkbook.Sheets("Feuil1").Select
Variable1 = ActiveSheet.Cells(1, 1).Value

Workbooks.Open ActiveWorkbook.Path & "	este1.xls"
ActiveWorkbook.Sheets("Feuil2").Cells(12, 1).Value = Variable1
ActiveWorkbook.Sheets("Feuil2").Select

End Sub

gopo · Answer

niquel, jte remercie profondement.. !

VBA, classeur actif pb de destination

2 réponses

Discussions similaires