Microsoft 365 copier coller un onglet dans un autre fichier

[pralo]

bonsoir a tous
je suis bloquer avec une ligne, j'ai essayer avec le VBE mais sans grand sucées
je m'explique,
j'aimerais copier un onglet qui est toujours dans la même racine et le coller dans d'autre fichier excel (en dernier onglet) qui n'ont jamais le même nom. c'est a cette ligne que je bloque
si quelqu'un a une idée
merci
Sub copier_coller()
Dim Tabl(), i As Long
Workbooks.Open Filename:= _
"C:\Users\pralo\Documents\Documents pralo\Rapport TME\pralo REPORT SERVICE\Service Report.xlsm" ' ouverture du fichier source
Sheets("original report").Copy After:=Workbooks ("fichier ouvert.xlsm")
Windows("Service Report.xlsm").Close
End Sub

 

[Eric KERGRESSE]

Bonjour,

Essayez ce code :

Sub copier_coller()

Dim ShSource As Worksheet
Dim WbCible As Workbook

    Set ShSource = Sheets("original report")
    Set WbCible = Workbooks.Open(Filename:= _
      "C:\Users\pralo\Documents\Documents pralo\Rapport TME\pralo REPORT SERVICE\Service Report.xlsm")

    With WbCible
         ShSource.Copy After:=.Sheets(.Sheets.Count)
         .Close savechanges:=True
    End With

    Set ShSource = Nothing: Set WbCible = Nothing

End Sub

 

[pralo]

bonjour Eric merci pour votre réponse
j'ai une erreur quand je lance le code
sur cette ligne * j'ai mis le vrai nom du fichier et il y a 2 onglets celui qui m'intéresse ce nomme "Français"

Sub copier_coller()

Dim ShSource As Worksheet
Dim WbCible As Workbook

* Set ShSource = Sheets("Service Report.xlsm") a cette ligne, j'ai un msg l'indice n'appartient pas a la sélection
j'espère ne pas vous avoir induit en erreur sur mon premier message
merci encore pour votre aide

 

[fanch55]

Set ShSource = Sheets("Service Report.xlsm")

Salut,
Cette ligne indique la feuille à copier, pas un classeur

Set ShSource = Sheets("Service Report")

 

[pralo]

Salut,
Cette ligne indique la feuille à copier, pas un classeur

salut merci pour ton explication
en mode pas a pas (F8) le code ereur s'affiche a la lecture cette ligne
j'ai mis le nom de l'onglet qui m'intéresse "Français"

merci pour ton aide

 

[fanch55]

Regarde la pièce jointe 1186205

Est-tu sûr que l'onglet existe avec ce nom ou qu'il est bien orthographié ?
On peut créer des Onglets homonymes mais différents :
Attention aux espaces dans le nom de feuille

La feuille 1 s'appelle "Français" La feuille 2 s'appelle "Français " La feuille 3 s'appelle " Français " etc...

 

[pralo]

je viens de comprendre que le fichier source doit d'abord être ouvert pour ne pas avoir le code erreur
du coup, j'ai ajouter cette ligne avant
Workbooks.Open Filename:= _
"C:\Users\pralo\Documents\Documents pralo\Rapport TME\TMEE REPORT SERVICE\Service Report.xlsm"
mais l'idée et de lancé le code dans un fichier cible qui est jamais pareil (un fichier par client différents)
j'espère que je m'explique bien
encore merci pour vos aide