à la fin d'une procédure de duplication de fichiers (ouvrir, enregistrer
sous, fermer, suivant, ...), j'aimerais ouvrir le répertoire dans lequel
j'ai enregistré les fichiers.
Est-ce possible ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
| j'aimerais ouvrir le répertoire dans lequel
Peux-tu expliquer ce que tu veux faire ? Ouvrir l'explorateur Windows sur le répertoire désigné ? Si c'est cela, voici un exemple :
'--------------------------- Sub test()
Dim Répertoire As String Répertoire = "C:Atravail" ' Répertoire à ouvrir If Dir(Répertoire, vbDirectory) <> "" Then Shell "c:WindowsExplorer.exe " & Répertoire Else Msgbox "Répertoire : " & répertoire & " inexistant." End If End Sub '---------------------------
"Jac" a écrit dans le message de news: Bonjour à tous,
à la fin d'une procédure de duplication de fichiers (ouvrir, enregistrer sous, fermer, suivant, ...), j'aimerais ouvrir le répertoire dans lequel j'ai enregistré les fichiers. Est-ce possible ?
Merci d'avance à qui me mettra sur la voir.
Jac
| j'aimerais ouvrir le répertoire dans lequel
Peux-tu expliquer ce que tu veux faire ? Ouvrir l'explorateur
Windows sur le répertoire désigné ? Si c'est cela, voici un exemple :
'---------------------------
Sub test()
Dim Répertoire As String
Répertoire = "C:Atravail" ' Répertoire à ouvrir
If Dir(Répertoire, vbDirectory) <> "" Then
Shell "c:WindowsExplorer.exe " & Répertoire
Else
Msgbox "Répertoire : " & répertoire & " inexistant."
End If
End Sub
'---------------------------
"Jac" <Jsansp@mfra.net> a écrit dans le message de news: uUgbQDjBIHA.4496@TK2MSFTNGP06.phx.gbl...
Bonjour à tous,
à la fin d'une procédure de duplication de fichiers (ouvrir, enregistrer
sous, fermer, suivant, ...), j'aimerais ouvrir le répertoire dans lequel
j'ai enregistré les fichiers.
Est-ce possible ?
Peux-tu expliquer ce que tu veux faire ? Ouvrir l'explorateur Windows sur le répertoire désigné ? Si c'est cela, voici un exemple :
'--------------------------- Sub test()
Dim Répertoire As String Répertoire = "C:Atravail" ' Répertoire à ouvrir If Dir(Répertoire, vbDirectory) <> "" Then Shell "c:WindowsExplorer.exe " & Répertoire Else Msgbox "Répertoire : " & répertoire & " inexistant." End If End Sub '---------------------------
"Jac" a écrit dans le message de news: Bonjour à tous,
à la fin d'une procédure de duplication de fichiers (ouvrir, enregistrer sous, fermer, suivant, ...), j'aimerais ouvrir le répertoire dans lequel j'ai enregistré les fichiers. Est-ce possible ?
Merci d'avance à qui me mettra sur la voir.
Jac
Jac
Bonjour MichDenis,
ce que je veux faire : après avoir ouvert et enregistré sous... des fichiers dans un répertoire cible créé par vba, je voulais ouvrir ce répertoire afin que l'utilisateur ait "le nez" directement dedans. C'est ce qui correspond tout à fait à ce que tu me proposes.
Merci encore,
Jac
"MichDenis" a écrit dans le message de news:
| j'aimerais ouvrir le répertoire dans lequel
Peux-tu expliquer ce que tu veux faire ? Ouvrir l'explorateur Windows sur le répertoire désigné ? Si c'est cela, voici un exemple :
'--------------------------- Sub test()
Dim Répertoire As String Répertoire = "C:Atravail" ' Répertoire à ouvrir If Dir(Répertoire, vbDirectory) <> "" Then Shell "c:WindowsExplorer.exe " & Répertoire Else Msgbox "Répertoire : " & répertoire & " inexistant." End If End Sub '---------------------------
"Jac" a écrit dans le message de news:
Bonjour à tous,
à la fin d'une procédure de duplication de fichiers (ouvrir, enregistrer sous, fermer, suivant, ...), j'aimerais ouvrir le répertoire dans lequel j'ai enregistré les fichiers. Est-ce possible ?
Merci d'avance à qui me mettra sur la voir.
Jac
Bonjour MichDenis,
ce que je veux faire : après avoir ouvert et enregistré sous... des
fichiers dans un répertoire cible créé par vba, je voulais ouvrir ce
répertoire afin que l'utilisateur ait "le nez" directement dedans. C'est ce
qui correspond tout à fait à ce que tu me proposes.
Merci encore,
Jac
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
OKr4GcjBIHA.5652@TK2MSFTNGP02.phx.gbl...
| j'aimerais ouvrir le répertoire dans lequel
Peux-tu expliquer ce que tu veux faire ? Ouvrir l'explorateur
Windows sur le répertoire désigné ? Si c'est cela, voici un exemple :
'---------------------------
Sub test()
Dim Répertoire As String
Répertoire = "C:Atravail" ' Répertoire à ouvrir
If Dir(Répertoire, vbDirectory) <> "" Then
Shell "c:WindowsExplorer.exe " & Répertoire
Else
Msgbox "Répertoire : " & répertoire & " inexistant."
End If
End Sub
'---------------------------
"Jac" <Jsansp@mfra.net> a écrit dans le message de news:
uUgbQDjBIHA.4496@TK2MSFTNGP06.phx.gbl...
Bonjour à tous,
à la fin d'une procédure de duplication de fichiers (ouvrir, enregistrer
sous, fermer, suivant, ...), j'aimerais ouvrir le répertoire dans lequel
j'ai enregistré les fichiers.
Est-ce possible ?
ce que je veux faire : après avoir ouvert et enregistré sous... des fichiers dans un répertoire cible créé par vba, je voulais ouvrir ce répertoire afin que l'utilisateur ait "le nez" directement dedans. C'est ce qui correspond tout à fait à ce que tu me proposes.
Merci encore,
Jac
"MichDenis" a écrit dans le message de news:
| j'aimerais ouvrir le répertoire dans lequel
Peux-tu expliquer ce que tu veux faire ? Ouvrir l'explorateur Windows sur le répertoire désigné ? Si c'est cela, voici un exemple :
'--------------------------- Sub test()
Dim Répertoire As String Répertoire = "C:Atravail" ' Répertoire à ouvrir If Dir(Répertoire, vbDirectory) <> "" Then Shell "c:WindowsExplorer.exe " & Répertoire Else Msgbox "Répertoire : " & répertoire & " inexistant." End If End Sub '---------------------------
"Jac" a écrit dans le message de news:
Bonjour à tous,
à la fin d'une procédure de duplication de fichiers (ouvrir, enregistrer sous, fermer, suivant, ...), j'aimerais ouvrir le répertoire dans lequel j'ai enregistré les fichiers. Est-ce possible ?
