Copier cellules d'un classeur dans un autre (avec pages masquées)

[Jon]

Bonsoir à tous,

Débutant en VBA, j'ai réussi grâce à différents posts sur le forum à créer cette petite macro. Qui me permet de copier des cellules d'un classeur dans un autre classeur fermé.
Néanmoins j'ai une erreur: dans la dernière partie de la macro, cela ne marche que si la feuille "import" est affiché alors j'aimerais qu'elle soit masqué.

Voici la macro en question.

Sub Envoyer2()

Dim Plageacopier As Range
Dim Destination As Range


With Worksheets("Import")
Set Plageacopier = .Range("A3:AL100")
Plageacopier.Copy
End With


Application.ScreenUpdating = False
Workbooks.Open Filename:="F:\A finir\Validation des demandes.xlsm", _
UpdateLinks:=0 'pour que le fichier de destination ne met pas à jour ses liaisons

With Worksheets("A valider").Select
Range("G4").Select
ActiveSheet.Paste
Sheets("Validation").Select 'Retour sur l'onglet d'acceuil
ActiveWorkbook.Save
ActiveWorkbook.Close
End With

With Worksheets("Import")
Plageacopier.Select
Selection.ClearContents
End With


End Sub​

Avez-vous une piste? 😕

 

[Dranreb]

Re : Copier cellules d'un classeur dans un autre (avec pages masquées)

Bonsoir.
Essayez comme ça:

Sub Envoyer2()
Dim PlageÀCopier As Range
Set PlageÀCopier = Worksheets("Import").Range("A3:AL100")
Application.ScreenUpdating = False
Workbooks.Open Filename:="F:\A finir\Validation des demandes.xlsm", _
   UpdateLinks:=0 'pour que le fichier de destination ne met pas à jour ses liaisons
PlageÀCopier.Copy Destination:=ActiveWorkbook.Worksheets("A valider").Range("G4")
ActiveWorkbook.Save
ActiveWorkbook.Close
PlageÀCopier.ClearContents
End Sub

À +