VBA copier-coller
Bonjour le forum,
J'ai réussi, tant bien que mal, à construire une macro allant chercher des plages de données non vides dans 2 classeurs différents pour ensuite les reporter dans un 3 ème classeur (de récap).
J'ai eu l'idée de tester cette macro avec une plage de données de cellules vides (fichier source non alimenté).
Et je suis confronté à un problème :
Si le premier fichier de la macro ne contient pas de données à coller et que le second oui, les valeurs de ce second ne se mettent pas à la suite sur le fichier de destination.
J'espère être clair ?
Voici le code :
rivate Sub CommandButton1_Click()
Workbooks.Open Filename:= _
"\\vcn.ds.volvo.net\rtc-bour\proj02\015443\02_Dossiers par UEP\UEP 5375 Pont&Essieu\00_Team Board\TL1 YD\2020\ANDON 2020 TL1.xlsm" _
, UpdateLinks:=3
Worksheets("ICP").Activate
ActiveSheet.Range("$A$1:$I$2000").AutoFilter Field:=9, Criteria1:="=", _
Operator:=xlAnd
Range("G:G,H:H,I:I").Select
Selection.EntireColumn.Hidden = True
Rows("1:1").Select
Selection.EntireRow.Hidden = True
derlig = Range("A1").CurrentRegion.Select
dercol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
Selection.Copy
Workbooks("NEW UP2 SUGGESTIONS 2020.xlsm").Activate
Destination = Sheets("PREP P&E").Cells(Rows.Count, 1).End(xlUp)(2).PasteSpecial(xlPasteValues)
Range("G121").Select
'code à insérer pour passer à la suite de la macro si pas de données à copier depuis la macro ci-dessus
Workbooks.Open Filename:= _
"\\vcn.ds.volvo.net\rtc-bour\proj02\015443\02_Dossiers par UEP\UEP 5375 Pont&Essieu\00_Team Board\TL2 RV\INDICATEUR\2020\ANDON 2020 TL2.xlsm" _
, UpdateLinks:=3
Worksheets("ICP").Activate
ActiveSheet.Range("$A$1:$I$2000").AutoFilter Field:=9, Criteria1:="=", _
Operator:=xlAnd
Range("G:G,H:H,I:I").Select
Selection.EntireColumn.Hidden = True
Rows("1:1").Select
Selection.EntireRow.Hidden = True
derlig = Range("A1").CurrentRegion.Select
dercol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
Selection.Copy
Workbooks("NEW UP2 SUGGESTIONS 2020.xlsm").Activate
Destination = Sheets("PREP P&E").Cells(Rows.Count, 1).End(xlUp)(2).PasteSpecial(xlPasteValues)
Unload Import_Données_STs
Range("G121").Select
If MsgBox("Données importées avec succès !", vbOKOnly + vbApplicationModal + vbInformation, "INFORMATION") = vbOK Then
End If
End Sub
C'est un fichier comportant beaucoup de données sensibles, c'est pour cela que je ne le joins pas...