Renommer des fichiers

Le
Infogroup
Bonsoir à tous,

J'ai dans un répertoire D:Essai une liste de 30 fichiers d'extension .JPG
Ex. Fichier1.jpg - Fichier2.jpgFichier30.jpg

Dans une feuille "Feuil1" ( Excel 2003 ) j'ai dans les cellules A1 à A30, 30
noms différents.
Ex. Nom1 - Nom2Nom30

Je voudrais renommer mes 30 fichiers .JPG avec les 30 noms de mes cellules
Soit
Fichier1.jpg devient Nom1.jpg
Fichier2.jpg devient Nom2.jpg
-
-
-
Fichier30.jpg devient Nom30.jpg

Merci par avance pour votre aide

Cordialement

Infogroup
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #17951841
bonjour,

Sub Macro1()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, x As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
NomDossier = "c:zz"
If NomDossier = "" Then Exit Sub
Set Dossier = fso.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
x = x + 1
Name File As "c:zz" & Range("A" & x)
Next
End If
End Sub

isabelle

Infogroup a écrit :

Bonsoir à tous,

J'ai dans un répertoire D:Essai une liste de 30 fichiers
d'extension .JPG
Ex. Fichier1.jpg - Fichier2.jpg......Fichier30.jpg

Dans une feuille "Feuil1" ( Excel 2003 ) j'ai dans les cellules A1 à
A30, 30 noms différents.
Ex. Nom1 - Nom2......Nom30

Je voudrais renommer mes 30 fichiers .JPG avec les 30 noms de mes
cellules
Soit
Fichier1.jpg devient Nom1.jpg
Fichier2.jpg devient Nom2.jpg
-
-
-
Fichier30.jpg devient Nom30.jpg

Merci par avance pour votre aide

Cordialement

Infogroup



Infogroup
Le #17952461
Tout d'abord merci Isabelle de m'avoir répondu,

mais il me reste 2 problèmes :
1 ) les fichiers renommés se retrouvent dans le répertoire parent, de
D:CopieEssai, ils passent dans D:Copie ( ça se n'est pas bien grave, mais
je ne comprend pas pourquoi )
2 ) Là c'est plus ennuyeux, les nouveaux noms ne correspondent pas aux
fichiers.
En effet, ma liste des 30 noms n'est pas par ordre alphabétique, et je
suppose que Windows lui, classe automatiquement les fichiers dans son
répertoire par ordre alphabétique
Peut-on trouver une parade ?

Merci encore Isabelle

Infogroup




"isabelle" a écrit dans le message de
news:
bonjour,

Sub Macro1()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, x As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
NomDossier = "c:zz"
If NomDossier = "" Then Exit Sub
Set Dossier = fso.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
x = x + 1
Name File As "c:zz" & Range("A" & x)
Next
End If
End Sub

isabelle

Infogroup a écrit :

Bonsoir à tous,

J'ai dans un répertoire D:Essai une liste de 30 fichiers d'extension
.JPG
Ex. Fichier1.jpg - Fichier2.jpg......Fichier30.jpg

Dans une feuille "Feuil1" ( Excel 2003 ) j'ai dans les cellules A1 à A30,
30 noms différents.
Ex. Nom1 - Nom2......Nom30

Je voudrais renommer mes 30 fichiers .JPG avec les 30 noms de mes
cellules
Soit
Fichier1.jpg devient Nom1.jpg
Fichier2.jpg devient Nom2.jpg
-
-
-
Fichier30.jpg devient Nom30.jpg

Merci par avance pour votre aide

Cordialement

Infogroup





isabelle
Le #17956741
bonjour,

Sub Macro1()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, x As Integer

Set fso = CreateObject("Scripting.FileSystemObject")

Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers

NomDossier = "D:CopieEssai"

If NomDossier = "" Then Exit Sub
Set Dossier = fso.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
If Not File = "D:CopieEssai.xls" Then
x = x + 1
Name File As "c:zz" & Range("A" & x)
End If
Next
End If
End Sub

isabelle

Infogroup a écrit :

Tout d'abord merci Isabelle de m'avoir répondu,

mais il me reste 2 problèmes :
1 ) les fichiers renommés se retrouvent dans le répertoire parent, de
D:CopieEssai, ils passent dans D:Copie ( ça se n'est pas bien
grave, mais je ne comprend pas pourquoi )
2 ) Là c'est plus ennuyeux, les nouveaux noms ne correspondent pas aux
fichiers.
En effet, ma liste des 30 noms n'est pas par ordre alphabétique, et je
suppose que Windows lui, classe automatiquement les fichiers dans son
répertoire par ordre alphabétique
Peut-on trouver une parade ?

Merci encore Isabelle

Infogroup




"isabelle" a écrit dans le message de
news:

bonjour,

Sub Macro1()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, x As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
NomDossier = "c:zz"
If NomDossier = "" Then Exit Sub
Set Dossier = fso.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
x = x + 1
Name File As "c:zz" & Range("A" & x)
Next
End If
End Sub

isabelle

Infogroup a écrit :

Bonsoir à tous,

J'ai dans un répertoire D:Essai une liste de 30 fichiers
d'extension .JPG
Ex. Fichier1.jpg - Fichier2.jpg......Fichier30.jpg

Dans une feuille "Feuil1" ( Excel 2003 ) j'ai dans les cellules A1 à
A30, 30 noms différents.
Ex. Nom1 - Nom2......Nom30

Je voudrais renommer mes 30 fichiers .JPG avec les 30 noms de mes
cellules
Soit
Fichier1.jpg devient Nom1.jpg
Fichier2.jpg devient Nom2.jpg
-
-
-
Fichier30.jpg devient Nom30.jpg

Merci par avance pour votre aide

Cordialement

Infogroup








isabelle
Le #17956921
correction :

Sub Macro1()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, x As Integer

Set fso = CreateObject("Scripting.FileSystemObject")
Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
NomDossier = "D:Copie"
If NomDossier = "" Then Exit Sub
Set Dossier = fso.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
If Not File = "D:CopieEssai.xls" Then
x = x + 1
Name File As "c:zz" & Range("A" & x)
End If
Next
End If
End Sub

isabelle


isabelle a écrit :

bonjour,

Sub Macro1()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, x As Integer

Set fso = CreateObject("Scripting.FileSystemObject")
Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
NomDossier = "D:CopieEssai"
If NomDossier = "" Then Exit Sub
Set Dossier = fso.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
If Not File = "D:CopieEssai.xls" Then
x = x + 1
Name File As "c:zz" & Range("A" & x)
End If
Next
End If
End Sub

isabelle

Infogroup a écrit :

Tout d'abord merci Isabelle de m'avoir répondu,

mais il me reste 2 problèmes :
1 ) les fichiers renommés se retrouvent dans le répertoire parent, de
D:CopieEssai, ils passent dans D:Copie ( ça se n'est pas bien
grave, mais je ne comprend pas pourquoi )
2 ) Là c'est plus ennuyeux, les nouveaux noms ne correspondent pas
aux fichiers.
En effet, ma liste des 30 noms n'est pas par ordre alphabétique, et
je suppose que Windows lui, classe automatiquement les fichiers dans
son répertoire par ordre alphabétique
Peut-on trouver une parade ?

Merci encore Isabelle

Infogroup




"isabelle" a écrit dans le message de
news:

bonjour,

Sub Macro1()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, x As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
NomDossier = "c:zz"
If NomDossier = "" Then Exit Sub
Set Dossier = fso.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
x = x + 1
Name File As "c:zz" & Range("A" & x)
Next
End If
End Sub

isabelle

Infogroup a écrit :

Bonsoir à tous,

J'ai dans un répertoire D:Essai une liste de 30 fichiers
d'extension .JPG
Ex. Fichier1.jpg - Fichier2.jpg......Fichier30.jpg

Dans une feuille "Feuil1" ( Excel 2003 ) j'ai dans les cellules A1
à A30, 30 noms différents.
Ex. Nom1 - Nom2......Nom30

Je voudrais renommer mes 30 fichiers .JPG avec les 30 noms de mes
cellules
Soit
Fichier1.jpg devient Nom1.jpg
Fichier2.jpg devient Nom2.jpg
-
-
-
Fichier30.jpg devient Nom30.jpg

Merci par avance pour votre aide

Cordialement

Infogroup










Infogroup
Le #17957271
Excuse-moi Isabelle pour le retard à répondre, j'ai été obligé de m'absenter
toute la journée.

J'essaie de me débrouiller avec ta nouvelle proposition et je te tiens au
courant

Merci encore

Cordialement

Infogroup















"isabelle" a écrit dans le message de
news:
correction :

Sub Macro1()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, x As Integer

Set fso = CreateObject("Scripting.FileSystemObject")
Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
NomDossier = "D:Copie"
If NomDossier = "" Then Exit Sub
Set Dossier = fso.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
If Not File = "D:CopieEssai.xls" Then
x = x + 1
Name File As "c:zz" & Range("A" & x)
End If
Next
End If
End Sub

isabelle


isabelle a écrit :

bonjour,

Sub Macro1()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, x As Integer

Set fso = CreateObject("Scripting.FileSystemObject")
Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
NomDossier = "D:CopieEssai"
If NomDossier = "" Then Exit Sub
Set Dossier = fso.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
If Not File = "D:CopieEssai.xls" Then
x = x + 1
Name File As "c:zz" & Range("A" & x)
End If
Next
End If
End Sub

isabelle

Infogroup a écrit :

Tout d'abord merci Isabelle de m'avoir répondu,

mais il me reste 2 problèmes :
1 ) les fichiers renommés se retrouvent dans le répertoire parent, de
D:CopieEssai, ils passent dans D:Copie ( ça se n'est pas bien grave,
mais je ne comprend pas pourquoi )
2 ) Là c'est plus ennuyeux, les nouveaux noms ne correspondent pas aux
fichiers.
En effet, ma liste des 30 noms n'est pas par ordre alphabétique, et je
suppose que Windows lui, classe automatiquement les fichiers dans son
répertoire par ordre alphabétique
Peut-on trouver une parade ?

Merci encore Isabelle

Infogroup




"isabelle" a écrit dans le message de
news:

bonjour,

Sub Macro1()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, x As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
NomDossier = "c:zz"
If NomDossier = "" Then Exit Sub
Set Dossier = fso.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
x = x + 1
Name File As "c:zz" & Range("A" & x)
Next
End If
End Sub

isabelle

Infogroup a écrit :

Bonsoir à tous,

J'ai dans un répertoire D:Essai une liste de 30 fichiers
d'extension .JPG
Ex. Fichier1.jpg - Fichier2.jpg......Fichier30.jpg

Dans une feuille "Feuil1" ( Excel 2003 ) j'ai dans les cellules A1 à
A30, 30 noms différents.
Ex. Nom1 - Nom2......Nom30

Je voudrais renommer mes 30 fichiers .JPG avec les 30 noms de mes
cellules
Soit
Fichier1.jpg devient Nom1.jpg
Fichier2.jpg devient Nom2.jpg
-
-
-
Fichier30.jpg devient Nom30.jpg

Merci par avance pour votre aide

Cordialement

Infogroup












Infogroup
Le #17961481
Merci encore Isabelle, je me suis débrouiller avec ta macro, ça marche OK

Cdl

Infogroup


"isabelle" a écrit dans le message de
news:
correction :

Sub Macro1()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, x As Integer

Set fso = CreateObject("Scripting.FileSystemObject")
Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
NomDossier = "D:Copie"
If NomDossier = "" Then Exit Sub
Set Dossier = fso.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
If Not File = "D:CopieEssai.xls" Then
x = x + 1
Name File As "c:zz" & Range("A" & x)
End If
Next
End If
End Sub

isabelle


isabelle a écrit :

bonjour,

Sub Macro1()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, x As Integer

Set fso = CreateObject("Scripting.FileSystemObject")
Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
NomDossier = "D:CopieEssai"
If NomDossier = "" Then Exit Sub
Set Dossier = fso.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
If Not File = "D:CopieEssai.xls" Then
x = x + 1
Name File As "c:zz" & Range("A" & x)
End If
Next
End If
End Sub

isabelle

Infogroup a écrit :

Tout d'abord merci Isabelle de m'avoir répondu,

mais il me reste 2 problèmes :
1 ) les fichiers renommés se retrouvent dans le répertoire parent, de
D:CopieEssai, ils passent dans D:Copie ( ça se n'est pas bien grave,
mais je ne comprend pas pourquoi )
2 ) Là c'est plus ennuyeux, les nouveaux noms ne correspondent pas aux
fichiers.
En effet, ma liste des 30 noms n'est pas par ordre alphabétique, et je
suppose que Windows lui, classe automatiquement les fichiers dans son
répertoire par ordre alphabétique
Peut-on trouver une parade ?

Merci encore Isabelle

Infogroup




"isabelle" a écrit dans le message de
news:

bonjour,

Sub Macro1()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, x As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
NomDossier = "c:zz"
If NomDossier = "" Then Exit Sub
Set Dossier = fso.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
x = x + 1
Name File As "c:zz" & Range("A" & x)
Next
End If
End Sub

isabelle

Infogroup a écrit :

Bonsoir à tous,

J'ai dans un répertoire D:Essai une liste de 30 fichiers
d'extension .JPG
Ex. Fichier1.jpg - Fichier2.jpg......Fichier30.jpg

Dans une feuille "Feuil1" ( Excel 2003 ) j'ai dans les cellules A1 à
A30, 30 noms différents.
Ex. Nom1 - Nom2......Nom30

Je voudrais renommer mes 30 fichiers .JPG avec les 30 noms de mes
cellules
Soit
Fichier1.jpg devient Nom1.jpg
Fichier2.jpg devient Nom2.jpg
-
-
-
Fichier30.jpg devient Nom30.jpg

Merci par avance pour votre aide

Cordialement

Infogroup












Publicité
Poster une réponse
Anonyme