Voila je vous sollicite car je bloque sur mon petit bout de code que je n'arrive pas à développer.

Ma macro copie et colle un dossier "Semaine" (avec tous ses sous dossiers et ses fichiers) et renomme le dossier en fonction du nom d'une cellule dans une feuille..(ex : Semaine 30).
Je souhaiterai à la suite ouvrir un fichier "Menu" du dossier créer pour importer des données mais JE N ARRIVE PAS A OUVRIR CE FICHIER AUTOMATIQUEMENT.

Pourriez vous me donner un petit coup de pouce? merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub CreerDossierAlternatif()
On Error Resume Next
    Dim Nom As String
    Dim Fso As Object, Source As String, Destination As String
    Nom = Feuil6.[g2]
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Source = "C:\Users\Alex\Desktop\SEMAINE"
    Destination = "C:\Users\Alex\Desktop\SEMAINE" & Nom
    Fso.CopyFolder Source, Destination, False
 
   Ps J'aimerai que le code ouvre le fichier "Menu" du dossier créer