Que debutant en VBA

voici ce que j'ai ecris mais ça bug

pourquoi

Dim fichier_global As Workbook

Dim onglet As Worksheet

Dim ws_menu As Worksheet

Dim chemin_globale As String

Dim numero_semaine As Long

'identifier chemin fichier globale

chemin_globale = "c:\users\desktop\BILAN MENSUEL_test-copie.xlsx"

'Identifier les fichiers et onglets

Set fichier_data = ActiveWorkbook

Set ws_data = fichier_data.Worksheets(1)

Set fichier_globale = Application.Workbooks.Open(chemin_globale)

Set ws_menu = fichier_globale.Worksheets("menu")

'copier coller l'onglet apres l'onglet menu

ws_data.Copy after:=ws_menu

numero_semaine = fichier_globale.Worksheets(3).Name + 1

fichier_globale.Worksheets(2).Name = numero_semaine

End Sub

merci de votre retour

Bonjour et bienvenu

Merci d'éditer le sujet de votre demande afin que cela corresponde à votre souci

Prenez le temps de lire ces quelques lignes qui vous aideront dans vos demandes et réponses --> Charte du forum

Veillez à utiliser vos codes en utilisant l'outil </> dans vos fils.

Merci de votre participation

Merci beaucoup de votre retour