Macro pour ouvrir un répertoire

[benadry]

Bonjour,

J'ai une macro que j'ai reprise sur un autre forum et qui imprime des fichiers en pdf.

J'ai ajouté une msgbox pour inviter l'utilisateur à aller ouvrir le répertoire où se trouve le fichier qui vient d'être imprimé, avec une réponse de type vbOkCancel. Le message s'affiche bien, mais rien ne se passe quand je clique sur OK.
J'ai essayé de lui faire comprendre de différentes manières qu'il fallait ouvrir le répertoire désigné (et, si possible, l'afficher directement, afin qu'il "saute aux yeux" de l'utilisateur) avec un tas de commandes que j'ai effacées au fur et à mesure. En dernier lieu, j'ai mis celle qui est ci-dessous ... et qui ne fonctionne pas !
J'ai trouvé aussi sur des forums beaucoup d'exemples où on demande d'ouvrir le répertoire dont le nom est contenu dans une cellule, mais ce n'est pas ce que je cherche.

Voici une partie du code :

  ' Vérifier si le fichier a été créé
  If OutputFilename <> "" Then
  MsgBox "Le fichier s'est bien créé." & vbLf & "Il se trouve dans le répertoire :" & vbLf & "G:\CPT\Relances." & vbLf & "Voulez-vous y accéder ?", vbOKCancel
  End If
  If Rep = vbOK Then
  ["G:\CPT\Relances"].Open
  End If
  If Rep = vbCancel Then Exit Sub
    
  If OutputFilename = "" Then
    MsgBox "Création du fichier PDF." & vbCrLf & vbCrLf & _
      "Une erreur s'est produite : temps écoulé !", vbExclamation + vbSystemModal
  End If

Pourriez-vous me dire comment je dois procéder ?

Merci d'avance.

Cordialement.

 

[MJ13]

Re : Macro pour ouvrir un répertoire

Bonjour Bernadry

J'ai ce code pour voir le contenu d'un dossier avec TB_Copie_Vers contenant le chemin.

Private Sub CB_Voir_Chemin_Copie_Click()
Shell "C:\Windows\explorer.exe " & TB_Copie_Vers & "", vbMaximizedFocus
End Sub

 

[Pierrot93]

Re : Macro pour ouvrir un répertoire

Bonjour,
Salut Michel🙂

s'il s'agit de vérifier si fichier existe, voir aussi du coté de la fonction "DIR", un exemple dans l'aide vba.

bon après midi
@+

 

[Staple1600]

Re : Macro pour ouvrir un répertoire

Bonsoir à tous_______________________________________EDITION: Salut MJ13 😉
___________________________________________________________Salut Pierrot93

benadry
Si ton code génère un ficher pdf, dans ce cas, pourquoi ne pas l'ouvrir directement le fichier plus tôt que le répertoire?
voici deux méthodes pour le faire

Sub openpdf1()
Dim chemin$
On Error Resume Next
chemin = "C:\Temp\"
ActiveWorkbook.FollowHyperlink chemin & "test.pdf"
End Sub

Sub opendpdf2()
Dim wsSh As Object, chemin$
Set wsSh = CreateObject("WScript.Shell")
chemin = "C:\Temp\"
wsSh.Run chemin & "test.pdf"
End Sub

Mais si vraiment tu tiens à ouvrir le dossier, voici une légère modif pour le faire

Sub voirchemin()
Dim wsSh As Object, chemin$
Set wsSh = CreateObject("WScript.Shell")
chemin = "C:\Temp\"
wsSh.Run chemin
End Sub

NB: Évidemment il faudra changer le chemin
Je te laisse mixer ces exemples avec ton code original.

 

[MJ13]

Re : Macro pour ouvrir un répertoire

Re Pierrot, Bonjour Jean-Marie

C'est sur que j'ai juste essayé de répondre à la question 🙂:

qu'il fallait ouvrir le répertoire désigné

En plus avec son code:

["G:\CPT\Relances"].Open

Cela me paraissait logique 😉.

 

[benadry]

Re : Macro pour ouvrir un répertoire

Bonjour,

Je viens de tester et ça marche.

Merci beaucoup.