Discussion :

[zielite]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub ouvrirdossier1()
ChDir "\\nomserveur\dossier_a_ouvrir\"
Application.GetOpenFilename
End Sub

ou celui-ci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lucasgaetan]

pour exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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"

[Marc-L]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zielite]

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

[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 !

[zielite]

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

[lucasgaetan]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Chemin = ThisWorkbook.Path
MsgBox Chemin , vbOk

[Nico Chg]

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 !