Bonjour,
Présentation :
Voici ma macro qui fonctionne parfaitement, elle va créer un répertoire et deux sous-répertoires.
Le nom du répertoire à créer est noté dans la cellule G1
Le répertoire est créer dans c:\mes infos

-----
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
Sub repertoire()
 
     Dim chem_base As String
 
     chem_base = "C:\mes infos"
 
	On Error Resume Next
'dossier de base       
     MkDir chem_base & "\" & Range("G1").Value
'sous dossiers
     MkDir chem_base & "\" & Range("G1").Value & "\DOSSIER"
     MkDir chem_base & "\" & Range("G1").Value & "\PHOTO"
 
	On Error GoTo 0    
 
'sauvegarde du fichier
	ActiveWorkbook.Save
 
End Sub
-----
Voici mon problème :
je voudrais affecter au dossier de base une icône particulière et seulement à ce dossier.
j'ai essayer plusieurs choses comme de mettre la commande
Code : Sélectionner tout - Visualiser dans une fenêtre à part
oShellLink.IconLocation = "SHELL32.dll, 4"
après MkDir chem_base & "\" & Range("G1").Value
ou
Code : Sélectionner tout - Visualiser dans une fenêtre à part
oShellLink.IconLocation = "%SystemRoot%\system32\SHELL32.dll, 4"
mais cela ne fonctionne pas.
ou est mon erreur
le 4 est pour avoir l'icône numéro 4 de la DLL mais si je note 1 ça ne fonctionne pas, l'icone est toujours celui de base de Windows.
Merci pour vos conseils. Je suis sous Excel 2010.
Amicalement.