Sélectionne une feuille et la coller dans un autre classeur

Bonjour Le forum,

Après plusieurs recherches , je n'arrive pas à trouver la solution à mon problème , pour cela je vous sollicite pour m'aider si possible

En fait, je voudrais ouvrir un classeur qui contient un seul onglet, copier les données de cet onglet à partir de la ligne 3 (toutes les colonnes) jusqu'au la fin de la feuille ensuite coller la sélection dans une feuille nommée 'Source' d'un autre classeur (qui contient la macro) à partir de la cellule D4...

cette manipulation est à répétitive et sera fait par plusieurs utilisateurs, donc les noms des classeurs et des onglets ne sont pas fixes ( à part la feuille nommée 'Source'), donc si possible d'avoir des boites de dialogue pour sélectionner le 1er classeur qui contient la feuille à copier...

D'avance, merci pour votre aide

A+

Bonjour

A tester

Option Explicit

Sub OuvreUnFichier()
  With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = False
    If .Show = True Then
      With Workbooks.Open(.SelectedItems(1))
        With .Sheets(1)
          '
          ' Traitement
          '
        End With
        .Close savechanges:=False
      End With
    Else
      MsgBox "Aucun fichier de choisi"
    End If
  End With

End Sub

Bonjour Banzai64 et merci beaucoup pour votre retour rapide,

voici le traitement que j'ai ajouté mais ça ne fonctionne pas

Option Explicit

Sub OuvreUnFichier()
  With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = False
    If .Show = True Then
      With Workbooks.Open(.SelectedItems(1))
        With .Sheets(1)
        Range("A3").Select
        Range(Selection, Selection.End(xlToRight)).Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        ThisWorkbook.Sheets("SOURCE").Select
        Range("D3").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        End With
         .Close savechanges:=False
      End With
    Else
      MsgBox "Aucun fichier de choisi"
    End If
  End With

End Sub

le problème est au niveau du classeur qui contient la macro (thisworkbook) qui n'est pas sélectionné...

pouvez vous m'indiquer comment le corriger

Bonjour

Sans les fichiers

Fournis les fichiers en cause

Bonjour,

Voici 2 fichiers exemple :

• classeur source : celui qui contient la feuille à copier
• classeur destination : celui qui contient la feuille ou je dois coller la feuille de l'autre classeur (à partir de la cellule D3)

Merci d'avance

Bonjour

A vérifier

Bonjour et merci beaucoup pour votre aide,

ça fonctionne correctement

A+