Bonjour

Je n'ai pas essayé ton script, mais :
Loop Until Cells(i, 12) = "" And Cells(i + 1, 12) = "" And Cells(i + 2, 12) = ""
ce ne serait pas plutôt
Loop Until Cells(i, 12) = "" And Cells(i , 13) = "" And Cells(i, 14) = ""

Tu t'embêtes beaucoup avec ton New Scripting.FileSystemObject . Pourquoi ne pas utiliser l'instruction VBA
Name oldfilename as newfilename ?

J'y ai pensé mais j'arrivais pas à le fair marcher non plus.
Il ne trouvait pas mes fichiers (erreur 53).

Name "U:\Images2\" & ancien_nom As " U:\Images2\" & nouveau_nom
Je dois bien l'utiliser comme sa?

S'il ne trouvait pas tes fichiers, c'est que les fichiers que tu indiquais n'existaient pas, ce n'est pas parce que l'instruction Name ne fonctionne pas.

As-tu fait un msgbox "U:\Images2\" & ancien_nom pour voir le nom réellement demandé ? N'as-tu pas oublié une extension ?

Alors je viens de faire le msgbox et le chemin est bien le bon.
Sa peut venir du résaux non?

Peux-tu faire un
msgbox dir ("U:\Images2\" & ancien_nom) ?

Sa me donne un msgbox vide. C'est normal?

Non. Quand je fais la même manip, je vois bien le nom du fichier.
J'insiste : ton chemin est très, très probablement mauvais. Un espace qui traîne après ou avant le nom de fichier ?
Tu as dit qu'avec le msgbox, tu voyais le bon chemin, tu parlais bien du chemin y compris le nom du fichier et son extension ?

J'ai enlevé la variable qui enregistrait le nom de la photo et je l'ai remplacer directement par son nom dans
msgbox dir ("U:\Images2\" & ancien_nom) ce qui donne msgbox dir ("U:\Images2\photo.eps") comme sa pas d'érreur possible sur le chemin d'accès.
Sa me fait la meme chose et je comprends vraiment pas pk.

Mon imagination s'épuise, j'en viens aux questions idiotes : le fichier "U:\Images2\photo.eps" tu le vois bien avec ton explorer ?
C'est peut-être lui qui a un espace en trop, éventuellement à la fin.

Si j'enregistre le chemin d'accès dans une variable (enfin plutot une constante). Quel type dois-je mettre? un string?

Peu importe la signification du .eps pour renommer un fichier.
Mais ceux qui créent des fichiers avec un espace à la fin sont des cochons ou des étourdis..

Tu n'as plus qu'à rajouter cet espace dans ton instruction Name, et ça devrait rouler

Dsl je t'ai pas dis mais non j'ai pas d'espace à la fin de mes nom de photo.
je suis pas si étourdie que sa :)
ce que je ne comprend pas c'est pourquoi dans mon msg box dir ("U:\Images2\" & ancien_nom) je n'ai rien qui s'affiche sa me donne un msgbox vide

Alors on va le prendre autrement : peux tu faire

Dim a$
  a$ = Dir("U:\Images2\*.*")
  
  While a$ <> ""
    MsgBox a$ & " " & Len(a$)
    a$ = Dir
  Wend

J'ai executer ce que tu m'as passé. Il y a pelin de message type msgbox avec les nom des photos qui se trouve dans le dossier.
C'est bien sa? Et je remarque que apres l'extension des photos il ya un espace puis un nombre, exemple: "photo.eps 20".

Ah mince, je viens de rmq le nombre qu'il y a deriere c'est le nb de charactère du nom de la photo.
Dsl je suis encor qu'un étudiant !
sinon il trouve bien le chemin dans ce cas

Le nombre, c'est la longueur du nom de fichier
Si tu as réellement vu "photo.eps 20", comme photo.eps ne fait que 9 caractères, ça veut dire qu'il y a 11 caractères zarbis. Peux -tu confirmer qu'il y a bien 20 à côté de photo.eps ?

Non non j'ai mis 20 au hasard.
Mais sinon j'ai 178.eps 8
et donc y'a un caractère en trop

Alors tu vas faire :

Dim a$,k%, s$
a$ = Dir("U:\Images2\*.*")
s$=""
for k= 1 to len (a$)
s$=s$ & " " & asc(mid$(a$,k,1))
next k
msgbox a$ & s$

pour voir tous les caractères un par un