XL 2010 Ouvrir un répertoire après sa création

[MarieVT]

Bonjour,

J'essaye de mettre en place une macro qui permette de créer un répertoire selon une cellule G10, ce qui fonction.
Par la suite j'aimerai que se répertoire s'ouvre...

Voici mon code:

Sub Dossier_Aviation()

Dim Nom$
 Sheets("Formulaire_demandeur").[G10] = Range("G10")
Nom = Sheets("Formulaire_demandeur").[G10].Text
If Dir("N:\Stagiaire_Raport_Theme\Stage_Marie_Tempier\PROJETS\FORMULAIRES\Aviation\" & Nom, vbDirectory) = "" Then MkDir "N:\Stagiaire_Raport_Theme\Stage_Marie_Tempier\PROJETS\FORMULAIRES\Aviation_TO\" & Nom

End Sub

Merci!!

 

[Papou-net]

Re : Ouvrir un répertoire après sa création

Bonsoir MarieVT,

Peut-être comme ceci:

Sub Dossier_Aviation()

Dim Nom$
 Sheets("Formulaire_demandeur").[G10] = Range("G10")
Nom = Sheets("Formulaire_demandeur").[G10].Text
If Dir("N:\Stagiaire_Raport_Theme\Stage_Marie_Tempier\PROJETS\FORMULAIRES\Aviation\" & Nom, vbDirectory) = "" Then
  MkDir "N:\Stagiaire_Raport_Theme\Stage_Marie_Tempier\PROJETS\FORMULAIRES\Aviation_TO\" & Nom
  ChDir "N:\Stagiaire_Raport_Theme\Stage_Marie_Tempier\PROJETS\FORMULAIRES\Aviation_TO\" & Nom
End If
End Sub

Cordialement.

 

[MJ13]

Re : Ouvrir un répertoire après sa création

Bonjour Marie, Papou

Pour ouvrir un dossier, tu peux utiliser un code de ce type:

Sub ouvre_Dossier()
Dossier = "C:\Temp"
Shell ("explorer.exe " & Dossier), vbMaximizedFocus
End Sub