VBA, classeur actif pb de destination
gopo
Messages postés
65
Date d'inscription
Statut
Membre
Dernière intervention
-
gopo Messages postés 65 Date d'inscription Statut Membre Dernière intervention -
gopo Messages postés 65 Date d'inscription Statut Membre Dernière intervention -
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
- Pourquoi je ne vois plus actif il y a ✓ - Forum Facebook Messenger
- Incompatibilité de type vba ✓ - Forum Programmation
- Service audio non actif ✓ - Forum Audio
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
65
Date d'inscription
Statut
Membre
Dernière intervention
2
J'essaie ca tout de suite, merci a toi de ta réponse