Renommer des fichiers

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

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" <i@v> a écrit dans le message de
news:eeYKdmpTJHA.592@TK2MSFTNGP04.phx.gbl...

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

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" <i@v> a écrit dans le message de
news:eeYKdmpTJHA.592@TK2MSFTNGP04.phx.gbl...

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

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" <i@v> a écrit dans le message de
news:eeYKdmpTJHA.592@TK2MSFTNGP04.phx.gbl...

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

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" <i@v> a écrit dans le message de
news:uJV8c6wTJHA.3668@TK2MSFTNGP03.phx.gbl...

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" <i@v> a écrit dans le message de
news:eeYKdmpTJHA.592@TK2MSFTNGP04.phx.gbl...

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

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

Cdl

Infogroup


"isabelle" <i@v> a écrit dans le message de
news:uJV8c6wTJHA.3668@TK2MSFTNGP03.phx.gbl...

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" <i@v> a écrit dans le message de
news:eeYKdmpTJHA.592@TK2MSFTNGP04.phx.gbl...

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