J'ai quelque 800 noms de fichiers à modifier. Ces fichiers se trouvent dans
un répertoire "ISRC". Leur nom a pour tous la même structure: 126xxx-(x)x.
Je voudrais faire précéder ce nom des trois lettres GHA pour obtenir GHA
126xxx-(x)x.
Quelqu'un peut-il me donner la recette permettant de faire ces modifications
automatiquement ?
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
Bonjour. Le code suivant devrait faire l'affaire :
Sub test() Dim Chemin As String, FichierSource As String, FichierCible As String Chemin = "C:ISRC" ' à modifier éventuellement ChDrive "C" ChDir Chemin FichierSource = Dir("126*") Do While FichierSource <> "" FichierCible = "GHA" & FichierSource Name FichierSource As FichierCible FichierSource = Dir Loop End Sub
Cordialement. Daniel "Martin Jean" a écrit dans le message de news:
Bonjour,
J'ai quelque 800 noms de fichiers à modifier. Ces fichiers se trouvent dans un répertoire "ISRC". Leur nom a pour tous la même structure: 126xxx-(x)x. Je voudrais faire précéder ce nom des trois lettres GHA pour obtenir GHA 126xxx-(x)x. Quelqu'un peut-il me donner la recette permettant de faire ces modifications automatiquement ?
Merci pour toute aide utile
Jean
Bonjour.
Le code suivant devrait faire l'affaire :
Sub test()
Dim Chemin As String, FichierSource As String, FichierCible As String
Chemin = "C:ISRC" ' à modifier éventuellement
ChDrive "C"
ChDir Chemin
FichierSource = Dir("126*")
Do While FichierSource <> ""
FichierCible = "GHA" & FichierSource
Name FichierSource As FichierCible
FichierSource = Dir
Loop
End Sub
Cordialement.
Daniel
"Martin Jean" <jeanXYZmartin@microsoft.com> a écrit dans le message de news:
uYXtgGpkFHA.3568@TK2MSFTNGP10.phx.gbl...
Bonjour,
J'ai quelque 800 noms de fichiers à modifier. Ces fichiers se trouvent
dans un répertoire "ISRC". Leur nom a pour tous la même structure:
126xxx-(x)x. Je voudrais faire précéder ce nom des trois lettres GHA pour
obtenir GHA 126xxx-(x)x.
Quelqu'un peut-il me donner la recette permettant de faire ces
modifications automatiquement ?
Bonjour. Le code suivant devrait faire l'affaire :
Sub test() Dim Chemin As String, FichierSource As String, FichierCible As String Chemin = "C:ISRC" ' à modifier éventuellement ChDrive "C" ChDir Chemin FichierSource = Dir("126*") Do While FichierSource <> "" FichierCible = "GHA" & FichierSource Name FichierSource As FichierCible FichierSource = Dir Loop End Sub
Cordialement. Daniel "Martin Jean" a écrit dans le message de news:
Bonjour,
J'ai quelque 800 noms de fichiers à modifier. Ces fichiers se trouvent dans un répertoire "ISRC". Leur nom a pour tous la même structure: 126xxx-(x)x. Je voudrais faire précéder ce nom des trois lettres GHA pour obtenir GHA 126xxx-(x)x. Quelqu'un peut-il me donner la recette permettant de faire ces modifications automatiquement ?
Merci pour toute aide utile
Jean
Martin Jean
Merci ! C'était génial !
Jean
"Daniel" a écrit dans le message de news:
Bonjour. Le code suivant devrait faire l'affaire :
Sub test() Dim Chemin As String, FichierSource As String, FichierCible As String Chemin = "C:ISRC" ' à modifier éventuellement ChDrive "C" ChDir Chemin FichierSource = Dir("126*") Do While FichierSource <> "" FichierCible = "GHA" & FichierSource Name FichierSource As FichierCible FichierSource = Dir Loop End Sub
Cordialement. Daniel "Martin Jean" a écrit dans le message de news:
Bonjour,
J'ai quelque 800 noms de fichiers à modifier. Ces fichiers se trouvent dans un répertoire "ISRC". Leur nom a pour tous la même structure: 126xxx-(x)x. Je voudrais faire précéder ce nom des trois lettres GHA pour obtenir GHA 126xxx-(x)x. Quelqu'un peut-il me donner la recette permettant de faire ces modifications automatiquement ?
Merci pour toute aide utile
Jean
Merci !
C'était génial !
Jean
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eIORrHqkFHA.3380@TK2MSFTNGP12.phx.gbl...
Bonjour.
Le code suivant devrait faire l'affaire :
Sub test()
Dim Chemin As String, FichierSource As String, FichierCible As String
Chemin = "C:ISRC" ' à modifier éventuellement
ChDrive "C"
ChDir Chemin
FichierSource = Dir("126*")
Do While FichierSource <> ""
FichierCible = "GHA" & FichierSource
Name FichierSource As FichierCible
FichierSource = Dir
Loop
End Sub
Cordialement.
Daniel
"Martin Jean" <jeanXYZmartin@microsoft.com> a écrit dans le message de
news: uYXtgGpkFHA.3568@TK2MSFTNGP10.phx.gbl...
Bonjour,
J'ai quelque 800 noms de fichiers à modifier. Ces fichiers se trouvent
dans un répertoire "ISRC". Leur nom a pour tous la même structure:
126xxx-(x)x. Je voudrais faire précéder ce nom des trois lettres GHA pour
obtenir GHA 126xxx-(x)x.
Quelqu'un peut-il me donner la recette permettant de faire ces
modifications automatiquement ?
Bonjour. Le code suivant devrait faire l'affaire :
Sub test() Dim Chemin As String, FichierSource As String, FichierCible As String Chemin = "C:ISRC" ' à modifier éventuellement ChDrive "C" ChDir Chemin FichierSource = Dir("126*") Do While FichierSource <> "" FichierCible = "GHA" & FichierSource Name FichierSource As FichierCible FichierSource = Dir Loop End Sub
Cordialement. Daniel "Martin Jean" a écrit dans le message de news:
Bonjour,
J'ai quelque 800 noms de fichiers à modifier. Ces fichiers se trouvent dans un répertoire "ISRC". Leur nom a pour tous la même structure: 126xxx-(x)x. Je voudrais faire précéder ce nom des trois lettres GHA pour obtenir GHA 126xxx-(x)x. Quelqu'un peut-il me donner la recette permettant de faire ces modifications automatiquement ?
