VBA, classeur actif pb de destination
gopo
Messages postés
76
Statut
Membre
-
gopo Messages postés 76 Statut Membre -
gopo Messages postés 76 Statut Membre -
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
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
A voir également:
- VBA, classeur actif pb de destination
- Difference actif et en ligne messenger - Forum Facebook Messenger
- Cdg heure d'arrivée a destination shein - Forum Consommation & Internet
- Service audio non actif ✓ - Forum Audio
- Incompatibilité de type vba ✓ - Forum Programmation
- Actif il y a messenger disparu ✓ - Forum Facebook Messenger
2 réponses
Private Sub CommandButton1_Click()
Dim Variable1 As String
ActiveWorkbook.Sheets("Feuil1").Select
Variable1 = ActiveSheet.Cells(1, 1).Value
Workbooks.Open ActiveWorkbook.Path & "\teste1.xls"
ActiveWorkbook.Sheets("Feuil2").Cells(12, 1).Value = Variable1
ActiveWorkbook.Sheets("Feuil2").Select
End Sub
Dim Variable1 As String
ActiveWorkbook.Sheets("Feuil1").Select
Variable1 = ActiveSheet.Cells(1, 1).Value
Workbooks.Open ActiveWorkbook.Path & "\teste1.xls"
ActiveWorkbook.Sheets("Feuil2").Cells(12, 1).Value = Variable1
ActiveWorkbook.Sheets("Feuil2").Select
End Sub
gopo
Messages postés
76
Statut
Membre
2
J'essaie ca tout de suite, merci a toi de ta réponse
