Dans un dossier, j'ai plusieurs fichiers textes dans lesquels il faut que je
modifie l'extension de nom d'un fichier.
Je souhaiterai donc en VBA, parcourir tous les fichiers .tab du dossier et
faire une modification puis et l'écrire dans le fichier.
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
3stone
Salut,
"Jean" | Dans un dossier, j'ai plusieurs fichiers textes dans lesquels il faut que je | modifie l'extension de nom d'un fichier. | Je souhaiterai donc en VBA, parcourir tous les fichiers .tab du dossier et | faire une modification puis et l'écrire dans le fichier.
Bizarre... j'ai l'impression que la seconde partie ne concerne pas la première...
Pour renommer les extentions de fichiers, tu peux utiliser ceci :
Function fnRenameExt(strDir As String, OldExt As String, NewExt As String) '// '// Usage : remplacer l'extention des fichiers de tout un répertoire '// '// Syntaxe : fnRenameExt "E:Test","txt","htm" '//
Dim intFile As Integer Dim strFileExt As String, strFile As String
With Application.FileSearch .LookIn = strDir .FileName = "*." & OldExt
If .Execute > 0 Then For intFile = 1 To .FoundFiles.Count strFileExt = .FoundFiles(intFile) strFile = Left(strFileExt, InStrRev(strFileExt, ".")) Name strFileExt As strFile & NewExt Next intFile End If End With
"Jean"
| Dans un dossier, j'ai plusieurs fichiers textes dans lesquels il faut que je
| modifie l'extension de nom d'un fichier.
| Je souhaiterai donc en VBA, parcourir tous les fichiers .tab du dossier et
| faire une modification puis et l'écrire dans le fichier.
Bizarre... j'ai l'impression que la seconde partie ne concerne pas la première...
Pour renommer les extentions de fichiers, tu peux utiliser ceci :
Function fnRenameExt(strDir As String, OldExt As String, NewExt As String)
'//
'// Usage : remplacer l'extention des fichiers de tout un répertoire
'//
'// Syntaxe : fnRenameExt "E:Test","txt","htm"
'//
Dim intFile As Integer
Dim strFileExt As String, strFile As String
With Application.FileSearch
.LookIn = strDir
.FileName = "*." & OldExt
If .Execute > 0 Then
For intFile = 1 To .FoundFiles.Count
strFileExt = .FoundFiles(intFile)
strFile = Left(strFileExt, InStrRev(strFileExt, "."))
Name strFileExt As strFile & NewExt
Next intFile
End If
End With
"Jean" | Dans un dossier, j'ai plusieurs fichiers textes dans lesquels il faut que je | modifie l'extension de nom d'un fichier. | Je souhaiterai donc en VBA, parcourir tous les fichiers .tab du dossier et | faire une modification puis et l'écrire dans le fichier.
Bizarre... j'ai l'impression que la seconde partie ne concerne pas la première...
Pour renommer les extentions de fichiers, tu peux utiliser ceci :
Function fnRenameExt(strDir As String, OldExt As String, NewExt As String) '// '// Usage : remplacer l'extention des fichiers de tout un répertoire '// '// Syntaxe : fnRenameExt "E:Test","txt","htm" '//
Dim intFile As Integer Dim strFileExt As String, strFile As String
With Application.FileSearch .LookIn = strDir .FileName = "*." & OldExt
If .Execute > 0 Then For intFile = 1 To .FoundFiles.Count strFileExt = .FoundFiles(intFile) strFile = Left(strFileExt, InStrRev(strFileExt, ".")) Name strFileExt As strFile & NewExt Next intFile End If End With
Une solution pour travailler avec des fichiers texte sous Access consiste à utiliser la bibliothèque Microsoft Scripting Runtime (Il faut cocher la référence par le biais du menu adéquat).
Tu trouveras facilement des explications sur l'utilisation de cette bibliothèque sur le net.
Bon travail
Gérard
"Jean" a écrit dans le message de news: %
Bonjour,
Dans un dossier, j'ai plusieurs fichiers textes dans lesquels il faut que je modifie l'extension de nom d'un fichier. Je souhaiterai donc en VBA, parcourir tous les fichiers .tab du dossier et faire une modification puis et l'écrire dans le fichier.
Merci par avance pour votre aide.
Jean
Bonsoir,
Une solution pour travailler avec des fichiers texte sous Access consiste à
utiliser la bibliothèque Microsoft Scripting Runtime (Il faut cocher la
référence par le biais du menu adéquat).
Tu trouveras facilement des explications sur l'utilisation de cette
bibliothèque sur le net.
Bon travail
Gérard
"Jean" <jorlandi@cegetel.net> a écrit dans le message de news:
%23lpqKGohGHA.1792@TK2MSFTNGP03.phx.gbl...
Bonjour,
Dans un dossier, j'ai plusieurs fichiers textes dans lesquels il faut que
je modifie l'extension de nom d'un fichier.
Je souhaiterai donc en VBA, parcourir tous les fichiers .tab du dossier et
faire une modification puis et l'écrire dans le fichier.
Une solution pour travailler avec des fichiers texte sous Access consiste à utiliser la bibliothèque Microsoft Scripting Runtime (Il faut cocher la référence par le biais du menu adéquat).
Tu trouveras facilement des explications sur l'utilisation de cette bibliothèque sur le net.
Bon travail
Gérard
"Jean" a écrit dans le message de news: %
Bonjour,
Dans un dossier, j'ai plusieurs fichiers textes dans lesquels il faut que je modifie l'extension de nom d'un fichier. Je souhaiterai donc en VBA, parcourir tous les fichiers .tab du dossier et faire une modification puis et l'écrire dans le fichier.
