XL 2021 code que je n'arrive pas à faite fonctionner avec Range("ActiveCell.Offset(0, 0).Resize(10, 1)")

laurent950 à dit:

Bonjour @Usine à gaz

si ton classeur Test2 est déjà Ouvert
Set Wkb = Workbooks.Item("test2.xlsm")

Mais si il n'est pas ouvert alors
Set Wkb = Workbooks.Open(Ftest1.Parent.Path & "\test2.xlsm")

VB:

Sub Macro1()
    Application.ScreenUpdating = False
    Dim Ftest1 As Worksheet
        Set Ftest1 = ThisWorkbook.Worksheets("Feuil1")
    Dim Wkb As Workbook
    Dim Ftest2 As Worksheet
    On Error Resume Next
    ' Remplacez "Nom_du_Fichier.xlsm" par le nom du fichier que vous souhaitez copier
        'Set Wkb = Workbooks.Open(Ftest1.Parent.Path & "\test2.xlsm")
        Set Wkb = Workbooks.Item("test2.xlsm")
        Set Ftest2 = Wkb.Worksheets("Feuil1")
    On Error GoTo 0
    ' Copie
    Ftest1.Range("A2:A100").Value = Ftest2.Range("L2:L100").Value
    Application.ScreenUpdating = True
End Sub

Pour ton information Lionel

Code:

For Each wb In Workbooks
    MsgBox "Le classeur " & wb.Name & " est ouvert."
    For Each ws In wb.Worksheets
        MsgBox ws.Name
    Next ws
Next wb

Ici si tu sais que ton classeur est Ouvert alors tu connais le nom du classeur "Test2"
et tu n'a plus besoin de le rechercher avec cette boucle ci-dessus

la clé c'est .Item("Nom du classeur . suivie de l'extension")
Set Wkb = Workbooks.Item("test2.xlsm")

C'est le principe de la POO (Programation Orienté Objet)

Cliquez pour agrandir...

Staple1600 à dit:

Re

Relire mes posts, et les tests avec MsgBox
La taille des plages doivent être identiques
Ce qui veut dire
Meme nombre de lignes et de colonnes
Donc encore un test MsgBox
Sub test_taille()
Dim Plage As Range
Set Plage = Range("I2:I100")
MsgBox "Nombre de lignes: " & Plage.Rows.Count & vbCr & "Nombre de colonne: " & Plage.Columns.Count
End Sub

Cliquez pour agrandir...