Discussion :

[kimou75]

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

[MarcelG]

Bonjour,

As-tu un message d'erreur?
Dans l'affirmative, lequel?

[joe.levrai]

Bonjour,

en remplaçant ta ligne 13 par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et en supprimant les 3 dernières lignes de ton code, c'est toujours pas ok ?

[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.

[kimou75]

Bravo mister Joe ! ca fonctionne.

Merci

[MarcelG]

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 :

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
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

[kimou75]

Merci Marcel pour tes conseils !