Bonjour à tous,
Une fois de plus, je fais appelle à votre expérience pour ce petit problème que je me pose.
Je viens d'adapter deux macros :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 'Créer sur le bureau un nouveau dossier nommé : "Planning S+ n°sem" Sub MacroDossierSem() Dim NumSem As Byte NumSem = DatePart("ww", Date, 2, 2) Const Cible = &H10 'Bureau Dim objShell As Object Dim objFolder As Object, objFolderItem As Object Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(Cible) Set objFolderItem = objFolder.Self MkDir objFolderItem.Path & "\" & "Planning S" & NumSem End SubCes deux macros fonctionnent bien séparément mais comment faire pour les mixer en un seul code ? Je voudrais que le répertoire "NomOngletActif" soit créé dans le repertoire "Planning SX" sur le bureau.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 'Créer sur le bureau un nouveau dossier nommé comme l'onglet actif Sub MacroPlanning() Dim NumSem As Byte Dim NomFeuille As String NumSem = DatePart("ww", Date, 2, 2) NomFeuille = ActiveSheet.Name Const Cible = "C:\Users\Jerome\Desktop" Dim objShell As Object Dim objFolder As Object, objFolderItem As Object Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(Cible) Set objFolderItem = objFolder.Self MkDir objFolderItem.Path & "\" & NomFeuille End Sub
J'ai bien essayé : Const Cible = "C:\Users\Jerome\Desktop\Planning S & NumSem"
Mais ça ne fonctionne pas (ça m'aurait étonné car il doit cherché un dossier intitulé exactement "Planning S & NumSem" non ?)
En écrivant ces lignes, je me rends compte qu'un autre problème se posera ensuite. Je serai amené à créer plusieurs repertoires dans "Planning SX", comment faire dans ce cas pour ne créer ce dossier que s'il n'existe pas ?
Auriez-vous une solution par hasard ?
Merci d'avance.
Partager