Modifier l'extension d'un fichier [Résolu]

[Arsene12]

Bonjour,

J'ai un dossier contenant un fichier .txt. J'ai crée une macro qui modifie l'extension d'un fichier connu :

Code :

1
2
3
4
5
6
7
Sub RenommerFichier()
Dim FSO As New Scripting.FileSystemObject
Dim DossierSource As Scripting.Folder, SousDossier As Scripting.Folder
Set DossierSource = FSO.GetFolder("C:\Users\MyName\Desktop\MonDossier")
Name "C:\Users\MyName\Desktop\MonDossier\MonFichier.txt" As "C:\Users\MyName\Desktop\MonDossier\MonFichier.htm"
' (Renommage du dossier .txt en .htm)
End Sub

J'aimerai pouvoir effectuer cette opération sur le fichier sans avoir à en préciser le nom ("MonFichier") dans la macro.

Auriez-vous une méthode simple à me proposer?

Merci d'avance.

[bbil]

bonjour,

sans FSO :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub RenommeTxt()
Dim stPath As String
Dim stFic As String
Dim NouvNom As String
stPath = "C:\Users\MyName\Desktop\MonDossier\" 'attention terminer par \
 
stFic = Dir(stPath & "*.txt")
'Je considére qu'il n'y as qu'un seul fichier .txt sous le répertoire
' et lon renomme le premier fichier trouvé
 
If stFic <> "" Then
    NouvNom = Replace(stFic, ".txt", ".htm")
    Name stPath & stFic As stPath & NouvNom
Else
 MsgBox "pas de fichiers trouvé ", vbCritical
End If
End Sub

[Arsene12]

Merci Bbil,

Ce que je voulais faire, c'était renommer tous les fichiers .txt se trouvant dans le dossier. Grâce à ta réponse, j'ai trouvé le code qu'il me fallait :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub RenommerFichiers()
Dim FSO As New Scripting.FileSystemObject
Dim DossierSource As Scripting.Folder, SousDossier As Scripting.Folder
Dim fichier As Scripting.File
Dim stPath As String
Dim stFic As String
Dim NouvNom As String
Set DossierSource = FSO.GetFolder("C:\Users\MyName\Desktop\MonDossier")
For Each fichier In DossierSource.Files
stPath = "C:\Users\MyName\Desktop\MonDossier\" 'attention terminer par \
stFic = Dir(stPath & "*.txt")
If stFic <> "" Then
    NouvNom = Replace(stFic, ".txt", ".htm")
    Name stPath & stFic As stPath & NouvNom
Else
 MsgBox "pas de fichiers trouvé ", vbCritical
End If
Next
End Sub

Merci beaucoup.

[bbil]

salut,

Envoyé par Arsene12

Ce que je voulais faire, c'était renommer tous les fichiers .txt se trouvant dans le dossier. Grâce à ta réponse, j'ai trouvé le code qu'il me fallait :

cela c'est dans ton premier message qu'il fallait le dire ...


il faut te décider soit tu utilise FSO soit DIR pas un mélange indigeste...

Code :

1
2
3
4
5
6
7
stFic = Dir(stPath & "*.txt")
 
 While stFic <> "" 
    NouvNom = Replace(stFic, ".txt", ".htm")
    Name stPath & stFic As stPath & NouvNom
   stFic = Dir
Wend

[Arsene12]

Merci. Le code est beaucoup plus simple que ce que je croyais. J'avais pas tout précisé car j'essaye d'éviter de demander plusieurs choses à la fois.