VBA: Copier/coller une plage de valeur

Version imprimable

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:

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

25/02/2016, 15h47
MarcelG

Bonjour,

As-tu un message d'erreur?
Dans l'affirmative, lequel?
25/02/2016, 15h56
joe.levrai

Bonjour,

en remplaçant ta ligne 13 par :

Code:

plage.Copy Inv.Sheets(1).Range("Y3")

et en supprimant les 3 dernières lignes de ton code, c'est toujours pas ok ?
25/02/2016, 15h57
kimou75

Non pas de message d'erreur, c'est ce qui complique un peu l'analyse car j'ai l'impression qu'au niveau du code, ca a l'air d’être bon mais c'est peut-être mes variables qui sont mal déclarées.
25/02/2016, 16h04
kimou75

Bravo mister Joe ! :D ca fonctionne.

Merci

Salut

Quelques conseils

Pour alléger le code, utiliser la méthode "With" en évitant les redondances

D'autre part, plutôt nommer les feuilles que leur rang dans l'éditeur VBE

Enfin, il peut être utile de vider le presse-papier et libérer la mémoire des variables affectées

Pour être complet en reprenant la solution de Joe qui s'impose

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Macro2()
 
Dim plage As Range
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")
 
With DatFvi.Worksheets("mawks")
      fin = .Cells(1, .Columns.Count).End(xlToLeft).Column
      Set laplage = .Range(.Cells(1, 31), .Cells(1, fin))
      laplage.Copy Destination:=Inv.Worksheets("lautrewks").Range("Y3")
      'vider le presse-papier      
       Application.CutCopyMode = False 
       'Libérer la mémoire     
       Set laplage = Nothing
End With
 
End Sub

25/02/2016, 16h43
kimou75

Merci Marcel pour tes conseils !