Ouverture d'un répertoire via VBA

Bonjour à tous,

Je rencontre un problème avec un code VBA.

Je souhaite ouvrir un dossier via un bouton sur Excel. Le dossier en question est sur un lecteur réseau.

J'ai utilisé plusieurs codes dont les deux ci-dessous:

Code:

---

1 2 3 4

Sub ouvrirdossier1() ChDir "\\nomserveur\dossier_a_ouvrir\" Application.GetOpenFilename End Sub

---

ou celui-ci:

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub ouvrirdossier2() Dim Rep As String Rep = "\\nomseveur\dossier_a_ouvrir" 'Chemin et répertoire à ouvrir If Dir(Rep, vbDirectory) <> "" Then Application.Dialogs(xlDialogOpen).Show Rep Else MsgBox "Chemin introuvable" End If End Sub

---

Le code ne trouve pas le dossier cité.

Quelqu'un aurait il la solution pour ce cas?

Par avance merci.

Zielite

pour exemple:

Code:

---

1 2 3 4 5 6 7 8 9

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long   Const SW_SHOWNORMAL = 1 Sub OuvrirDossiers() Dim Chemin As String   Chemin = "\\nomserveur\dossier_a_ouvrir\" ShellExecute 0, "explore", Chemin, "", "", 10 End Sub

---

Merci pour la réponse mais un message d'erreur apparait:

Erreur de compilation

Seuls des commentaires peuvent apparaitre après End Sub, End fonction, ou End property.

Je suis un newbie mais je pense qu'il faut que j'appelle la procédure "Declare function"

Bonjour,

l'idée de lucasgaetan est de voir si le système à accès au dossier,
le plus serait de tester la valeur retournée en cas de succès avec un dossier sur un disque dur local (42 de mon côté)
puis de tester le dossier réseau, code à copier dans un nouveau module :

Code:

---

1 2 3 4 5 6 7 8 9

Private Declare Function ShellExecuteA& Lib "shell32.dll" (ByVal hwnd&, ByVal lpOperation$, _ ByVal lpFile$, ByVal lpParameters$, ByVal lpDirectory$, ByVal nShowCmd&)   Sub Explorer() Dossier$ = "\\nomserveur\dossier\"   If ShellExecuteA(0, "explore", Dossier, "", "", 10) <> 42 Then _ MsgBox "Pas d'accès à " & Dossier, vbCritical End Sub

---

Merci Marc

VBA me renvoi toujours le même message d'erreur:

Erreur de compilation
"Seuls des commentaires peuvent apparaitre après End Sub, End fonction, ou End property."

Il n'arrive pas à lire la fonction Private Declare function

Le code initial comme le mien fonctionnant sans souci de mon côté sur plusieurs ordinateurs et différentes versions d'Excel,
j'en déduis ma directive quant à la copie du code n'a pas été suivie !

Et le message d'erreur est pourtant clair !

pour vérifier ton chemin tu peux bidouiller comme ça:

Code:

---

1 2	Chemin = ThisWorkbook.Path MsgBox Chemin , vbOk

---

Citation:

---

Envoyé par zielite

Merci pour la réponse mais un message d'erreur apparait:

Erreur de compilation

Seuls des commentaires peuvent apparaitre après End Sub, End fonction, ou End property.

Je suis un newbie mais je pense qu'il faut que j'appelle la procédure "Declare function"

---

Bonjour,

Tout ce qui est Declare Function à mettre en tête de module, pas à copier à la suite d'un code !

J'ai compris mon erreur, j'ai mis les paramètres Function en début de macro et cela fonctionne maintentant.

Merci à tous les deux.
A+
Zi

Citation:

---

Envoyé par Marc-L

Le code initial comme le mien fonctionnant sans souci de mon côté sur plusieurs ordinateurs et différentes versions d'Excel,
j'en déduis ma directive quant à la copie du code n'a pas été suivie !

Et le message d'erreur est pourtant clair !

---

Effectivement Marc, la précipitation n'est jamais bonne!