Bonjour,

Je m'adresse à vous pour savoir s'il est possible de renommer un fichier après l'avoir sélectionné dans un répertoire, j'ai un petit bout de code qui permet d'ouvrir l'explorer, mais comment récupérer le chemin complet du fichier sélectionné dans une variable et ensuite rechercher le texte saisie dans un MsgBox ou InputBox et le remplacé le texte saisie dans un second MsgBox ou InputBox ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Dim Saisie1, Saisie2, oShell, objFSO, chemin
Set oShell = CreateObject("WScript.Shell")
oShell.Run("explorer.exe /select, C:")
 
Saisie1 = InputBox("Quelle chaine de caracteres voulez-vous remplacer ")
If Saisie1 = "" Then WScript.Quit
 
Saisie2 = InputBox("Par quelle chaine de caracteres voulez-vous remplacer la chaine ( " & Saisie1 & " ) ?")
If Saisie2 = "" Then WScript.Quit
 
'chemin= chemin complet du fichier sélectionné
 
Replace (chemin, "active", "desactive")
Merci d'avance pour votre aide.