Bonjour,

J'essaye de copier/coller une plage de valeur d'une feuille d'un classeur vers une feuille d'un classeur différent mais ca ne fonctionne pas.

Pourtant en pas à pas, je vois bien la sélection se copier et la cellule où les donner doivent être collées, s'activer mais elle reste vierge.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public DatFvi As Workbook
Public Inv As Workbook
Sub NBBASE()
       Dim fin As Integer
       Dim plage As Range
 
       Set Inv = Workbooks.Open(Filename:="C:\Users\kguesmia\Documents\Casse du Havre\Inv Appro B90.xls")
       Set DatFvi = Workbooks.Open(Filename:="C:\Users\kguesmia\Documents\Casse du Havre\Foto Infolog.xls")
 
        fin = DatFvi.Sheets(1).Cells(1, DatFvi.Sheets(1).Cells.Columns.Count).End(xlToLeft).Column
 
      Set plage = DatFvi.Sheets(1).Range(DatFvi.Sheets(1).Cells(1, 31), DatFvi.Sheets(1).Cells(1, fin))
            plage.Copy
            Inv.Sheets(1).Activate
            Inv.Sheets(1).Range("Y3").Select
            ActiveSheet.Paste
Si vous pourriez m'aider à comprendre ce qu'il ne convient pas, ça serait sympa

Merci