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
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 a écrit dans le message de news:
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
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
<j.elmaghnouji@gmail.com> a écrit dans le message de news:
d7403892-7851-4a6c-b16a-e55c34c71fb9@p25g2000hsf.googlegroups.com...
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?
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 a écrit dans le message de news:
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
On 22 avr, 14:25, "Daniel.C" wrote:
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 a écrit dans le message de news:
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
On 22 avr, 14:25, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
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
<j.elmaghno...@gmail.com> a écrit dans le message de news:
d7403892-7851-4a6c-b16a-e55c34c71...@p25g2000hsf.googlegroups.com...
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?
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 a écrit dans le message de news:
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?