renommer tous les fichiers d'un meme répertoire sous VB

Le
j.elmaghnouji
Bonjour à tous,

je cherche à renommer ts les fichiers d'un meme dossier et en modifier
l'extention par la meme occasion. quelqu'un aurait il deja fait ce
programme?

merci d'avance
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #6159721
Bonjour.
La macro suivante renomme tous les fichiers PDF en XLS; à adapter :

Sub test()
Dim Fich As String, Texte As String
Const Chemin = "e:donneesdanielmpfe"
Fich = Dir(Chemin & "*.pdf")
Do While Fich <> ""
Texte = Left(Fich, Len(Fich) - 4)
Texte = Texte & ".xls"
Name Chemin & Fich As Chemin & Texte
Fich = Dir
Loop
End Sub

Cordialement.
Daniel

Bonjour à tous,

je cherche à renommer ts les fichiers d'un meme dossier et en modifier
l'extention par la meme occasion. quelqu'un aurait il deja fait ce
programme?

merci d'avance
j.elmaghnouji
Le #6169751
On 22 avr, 14:25, "Daniel.C"
Bonjour.
La macro suivante renomme tous les fichiers PDF en XLS; à adapter :

Sub test()
    Dim Fich As String, Texte As String
    Const Chemin = "e:donneesdanielmpfe"
    Fich = Dir(Chemin & "*.pdf")
    Do While Fich <> ""
            Texte = Left(Fich, Len(Fich) - 4)
            Texte = Texte & ".xls"
            Name Chemin & Fich As Chemin & Texte
        Fich = Dir
    Loop
End Sub

Cordialement.
Daniel

Bonjour à tous,

je cherche à renommer ts les fichiers d'un meme dossier et en modifier
l'extention par la meme occasion. quelqu'un aurait il deja fait ce
programme?

merci d'avance


ça marche, merci

Publicité
Poster une réponse
Anonyme