Erreur dans la copie d'onglets d'une feuille vers une autre

Bonjour à vous !

Je vous contacte car j'essaie de créer une macro pour mon travail qui copie/colle les onglets d'un fichier Excel qui fait office de base de données vers un fichier excel contenant d'autres infos ou vers un classeur vierge où je me situerai avant d'exécuter la macro.

J'ai une erreur 9 qui apparaît dans mon code et que je n'arrive pas à solutionner même en parcourant les cas d'erreurs 9 présents sur le forum...

Voici mon code

1 Sub Ouv_Fich3()

2 Dim Fichier_data As Workbook
3 Dim Ws_Data As Worksheet
4 Dim fichier_globale As Workbook
5 Dim onglet As Worksheet
6 Dim ws_menu As Worksheet
7 Dim chemin_global As String

'identifier les fichiers et les onglets

8 chemin_global = "L:\COMMERCIALISATION\FIBRE\Suivi du parc Fibre\BASE DE DONNEES (A METTRE A JOUR).xlsx"

'identifier les fichiers et onglets
9 Set Fichier_data = ActiveWorkbook
10 Set Ws_Data = Fichier_data.Worksheets(1)

11 Set fichier_globale = Application.Workbooks.Open(chemin_global)
12 Set ws_menu = fichier_globale.Worksheets(Sheet1)

'copier coller l'onglet après l'onglet Menu

Ws_Data.Copy after:=ws_menu

End Sub

Mon erreur intervient après le "set fichier_globale" ligne 12.

Pouvez-vous m'aider à résoudre ce problème SVP ?

Merci d'avance pour votre aide,

Très bonne journée à vous!

Salut Flouz,

change la ligne comme ca

Set ws_menu = fichier_globale.Worksheets("Sheet1")

Bonne journée

Hello m3ellem1 !

Merci de la réponse mais j'ai toujours la même erreur après correction .