Code VBA copier feuille d'autre classeur dans ce classeur Xlsm

Bonsoir Forum

svp

comment completer module1

pour qu il copie feuille NotesCC du classeur ImportWorkbook dans la feuille f2 du classeur ABS1.xlsm

avec rendre f2 invisible

Merci infiniment

Bonjour hicham2610

Voici un code qui pourrait convenir, je pense,

Sub Import()
  Dim dLig As Long
  Dim sPath As String
  Dim WbkEx As Workbook, ShtEx As Worksheet
  ' Désactiver le rafraichissement écran
  Application.ScreenUpdating = False
  ' Afficher la feuille F2
  ThisWorkbook.Sheets("f2").Visible = xlSheetVisible
  ' Chemin d'accès de ce classeur
  sPath = ThisWorkbook.Path & "\"
  ' Ouvrir le fichier export qui est dans le même dossier
  Set WbkEx = Workbooks.Open(sPath & "export.xlsx")
  ' Définir la feuille à traiter
  Set ShtEx = WbkEx.Sheets("NotesCC")
  ' dernière ligne remlie de la feuille NotesCC
  dLig = ShtEx.Range("C" & Rows.Count).End(xlUp).Row
  ' Copier les lignes de la feuille
  ShtEx.Range("C18:F" & dLig).Copy
  ' Coller les valeurs
  With ThisWorkbook.Sheets("f2")
    .Activate
    .Range("C18").Select
    .Paste
    .Visible = xlSheetHidden
  End With
  ' Fermer le classeur export
  WbkEx.Close SaveChanges:=False
  ' Réactiver le rafraichissement écran
  Application.ScreenUpdating = True
  ' effacer les variables objets
  Set ShtEx = Nothing: Set WbkEx = Nothing
End Sub

A+

Bonjour BrunoM45, Bonjour Forum

Mr BrunoM45, Merci infiniment ton code fonctionne bien; il reste comment remplir D2 du feuille abs (ABS1.xlsm) par D9 du feuille NotesCC (export.xlsx )

et remplir P2 du feuille abs (ABS1.xlsm) par i9 du feuille NotesCC (export.xlsx )

et si possible rendre le nom du fichier export dans le code début par export car ce nom d'habitude export _ (+serie de lettres et nombres)

Merci infiniment