renommer beaucoup d'image

[nounours49]

bonjour à tous les xldiens

j'ai des images nommer de la facon suivante "image 65464" et j'aimerais par macro les renommer en fonction de leurs références dans le style toto6236 sans espace
je m'en remet à vos lumière
merci d'avance

 

[myDearFriend!]

Re : renommer beaucoup d'image

Bonsoir nounours49, Staple1600, le Forum,

Arf... ce n'était pas possible de nous donner l'ensemble des contraintes dès le début ?

Bon, donc si tu souhaites cibler uniquement les images de la colonne C (=3) par exemple :

[SIZE=2][COLOR=GRAY][B][I]DANS UN MODULE DE CODE STANDARD[/I][/B][/COLOR]

[COLOR=NAVY]Sub[/COLOR] Traitement()
[COLOR=GREEN]'myDearFriend! - www.mdf-xlpages.com[/COLOR]
[COLOR=NAVY]Dim[/COLOR] Img [COLOR=NAVY]As Object
    For Each[/COLOR] Img [COLOR=NAVY]In[/COLOR] ActiveSheet.DrawingObjects
        [COLOR=NAVY]With[/COLOR] Img.TopLeftCell
            [B][COLOR=NAVY]If[/COLOR] .Column = 3 [COLOR=NAVY]Then[/COLOR]
[/B]                Img.Name = "image" & .EntireRow.Range("B1").Text
                Img.Left = .EntireRow.Range("A1").Left
            [B][COLOR=NAVY]End If[/COLOR][/B][COLOR=NAVY]
        End With
    Next[/COLOR] Img
[COLOR=NAVY]End Sub[/COLOR][/SIZE]

Cordialement,

 

[nounours49]

Re : renommer beaucoup d'image

cher mydearfriend

l'aide que que vous m'avez donnée auparavant est exactement ce que je voulais
mais ayant un nouveau dossier à faire different avec d'autres contraintes je vous est ai demandé de l'aide sur la macro afin qu'elle soit plus "large" car je risque d'en avoir besoin de cette façon (désolé de n'y pas avoir pensé dès le début)
en attedant soyé certain que j'apprécie énormement votre aide
😉