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
el-joker
Ce genre de Macro ne devrai pas être loin de fonctionner.
Sub Macro1() Dim NomFic As String Dim MonRepertoire As String MonRepertoire = "C:..." NomFic = Dir(MonRepertoire) While NomFic <> vbNullString 'test vérifiant l'extention du fichier If LCase(Right(NomFic, 3)) = "dac" Then 'renommage du fichier Name NomFic As Left(NomFic, Len(NomFic) - 3) & "doc" End If NomFic = Dir Wend End Sub
-----Message d'origine----- Bonjour,
Est il possible via VBA, de scanner un répertoire précis et de changer certaines extensions de fichiers ?
Par exemple, je veux renommer tous les .doc du répertoire
C:Temp en .dac
C:Temptoto.doc devient C:Temptoto.dac
Merci .
Ce genre de Macro ne devrai pas être loin de fonctionner.
Sub Macro1()
Dim NomFic As String
Dim MonRepertoire As String
MonRepertoire = "C:..."
NomFic = Dir(MonRepertoire)
While NomFic <> vbNullString
'test vérifiant l'extention du fichier
If LCase(Right(NomFic, 3)) = "dac" Then
'renommage du fichier
Name NomFic As Left(NomFic, Len(NomFic) - 3)
& "doc"
End If
NomFic = Dir
Wend
End Sub
-----Message d'origine-----
Bonjour,
Est il possible via VBA, de scanner un répertoire précis
et de changer certaines extensions de fichiers ?
Par exemple, je veux renommer tous les .doc du
répertoire
Ce genre de Macro ne devrai pas être loin de fonctionner.
Sub Macro1() Dim NomFic As String Dim MonRepertoire As String MonRepertoire = "C:..." NomFic = Dir(MonRepertoire) While NomFic <> vbNullString 'test vérifiant l'extention du fichier If LCase(Right(NomFic, 3)) = "dac" Then 'renommage du fichier Name NomFic As Left(NomFic, Len(NomFic) - 3) & "doc" End If NomFic = Dir Wend End Sub
-----Message d'origine----- Bonjour,
Est il possible via VBA, de scanner un répertoire précis et de changer certaines extensions de fichiers ?
Par exemple, je veux renommer tous les .doc du répertoire
