Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Recuperer le nom d'une image ?

Recuperer le nom d'une image ?

10 réponses
Avatar
Michel HOLDERITH
Bonjour,
Je selectionne au prealable une image.
Comment faire pour changer son nom en VBA ?

je peux la selectionner :

ActiveSheet.Pictures("Picture 1").Select

mais ActiveSheet.Pictures.Name ne marche pas ce n'est pas supporte....

je voudrais renommer "Picture 1" en "Picture 2" par exemple.

Avez-vous une solution ?
Merci
@+
Michel.
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
Avatar
Pierre Fauconnier
Bonjour Michel

Chez moi, avec XL2000, cela fonctionne, mais tu dois donner le nom de
l'image, alors que tu l'as apparemment oublié dans l'exemple que tu donnes


ActiveSheet.Pictures("image 1").Name = "test 1"


--
Cela convient-il?
----
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..."
(remplacer NOSPAM par pfi pour me répondre. Merci)


---

Michel HOLDERITH wrote:
Bonjour,
Je selectionne au prealable une image.
Comment faire pour changer son nom en VBA ?

je peux la selectionner :

ActiveSheet.Pictures("Picture 1").Select

mais ActiveSheet.Pictures.Name ne marche pas ce n'est pas supporte....

je voudrais renommer "Picture 1" en "Picture 2" par exemple.

Avez-vous une solution ?
Merci
@+
Michel.


Avatar
Sitting Hoax \(BM\)
Sub image()
x = InputBox("renommez cette image")
On Error Resume Next
ActiveSheet.Shapes(Application.Caller).Name = x
End Sub

amicalement
Sitting Hoax
"Pierre Fauconnier" a écrit dans le message de
news:
Bonjour Michel

Chez moi, avec XL2000, cela fonctionne, mais tu dois donner le nom de
l'image, alors que tu l'as apparemment oublié dans l'exemple que tu donnes


ActiveSheet.Pictures("image 1").Name = "test 1"


--
Cela convient-il?
----
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..."
(remplacer NOSPAM par pfi pour me répondre. Merci)


---

Michel HOLDERITH wrote:
Bonjour,
Je selectionne au prealable une image.
Comment faire pour changer son nom en VBA ?

je peux la selectionner :

ActiveSheet.Pictures("Picture 1").Select

mais ActiveSheet.Pictures.Name ne marche pas ce n'est pas supporte....

je voudrais renommer "Picture 1" en "Picture 2" par exemple.

Avez-vous une solution ?
Merci
@+
Michel.






Avatar
Michel HOLDERITH
Salut,
merci, mais en fait j'ai 3 images existantes dans un classeur "Picture 1",
"Picture 2" et "Picture 3".
via une macro j'en copie une, par exmple "Picture 1" dans une cellue
precise. cette copie s'appellera egalement "Picture 1".... et je
souhaiterais l'appeller "Picture " & activecell.row

en faisant : ActiveSheet.Pictures("Picture 1").Name = "Picture " &
activecell.row

excel me change le nom de l'image a partir de laquelle je copie/colle et nom
l'image qui a etait collee.... :(

Aurais-tu une idee ?
C'est la derniere ligne droite pour mon projet.......
Merci
@+
Michel.



"Pierre Fauconnier" wrote in message
news:
Bonjour Michel

Chez moi, avec XL2000, cela fonctionne, mais tu dois donner le nom de
l'image, alors que tu l'as apparemment oublié dans l'exemple que tu donnes


ActiveSheet.Pictures("image 1").Name = "test 1"


--
Cela convient-il?
----
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..."
(remplacer NOSPAM par pfi pour me répondre. Merci)


---

Michel HOLDERITH wrote:
Bonjour,
Je selectionne au prealable une image.
Comment faire pour changer son nom en VBA ?

je peux la selectionner :

ActiveSheet.Pictures("Picture 1").Select

mais ActiveSheet.Pictures.Name ne marche pas ce n'est pas supporte....

je voudrais renommer "Picture 1" en "Picture 2" par exemple.

Avez-vous une solution ?
Merci
@+
Michel.






Avatar
isabelle
bonjour Michel,

une solution serait de passer par la collection,

For Each p In ActiveSheet.DrawingObjects
If p.Name = "Picture 1" Then p.Name = "Picture 2"
Next

isabelle


Bonjour,
Je selectionne au prealable une image.
Comment faire pour changer son nom en VBA ?

je peux la selectionner :

ActiveSheet.Pictures("Picture 1").Select

mais ActiveSheet.Pictures.Name ne marche pas ce n'est pas supporte....

je voudrais renommer "Picture 1" en "Picture 2" par exemple.

Avez-vous une solution ?
Merci
@+
Michel.


Avatar
Michel HOLDERITH
desole ca ne marche pas......

"Sitting Hoax (BM)" wrote in message
news:erWp$
Sub image()
x = InputBox("renommez cette image")
On Error Resume Next
ActiveSheet.Shapes(Application.Caller).Name = x
End Sub

amicalement
Sitting Hoax
"Pierre Fauconnier" a écrit dans le message
de

news:
Bonjour Michel

Chez moi, avec XL2000, cela fonctionne, mais tu dois donner le nom de
l'image, alors que tu l'as apparemment oublié dans l'exemple que tu
donnes




ActiveSheet.Pictures("image 1").Name = "test 1"


--
Cela convient-il?
----
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..."
(remplacer NOSPAM par pfi pour me répondre. Merci)


---

Michel HOLDERITH wrote:
Bonjour,
Je selectionne au prealable une image.
Comment faire pour changer son nom en VBA ?

je peux la selectionner :

ActiveSheet.Pictures("Picture 1").Select

mais ActiveSheet.Pictures.Name ne marche pas ce n'est pas supporte....

je voudrais renommer "Picture 1" en "Picture 2" par exemple.

Avez-vous une solution ?
Merci
@+
Michel.










Avatar
Michel HOLDERITH
c'est une bonne idee, mais la boucle selectionne toutes les images sauf
celle qui a etait copiee....

"isabelle" wrote in message
news:
bonjour Michel,

une solution serait de passer par la collection,

For Each p In ActiveSheet.DrawingObjects
If p.Name = "Picture 1" Then p.Name = "Picture 2"
Next

isabelle


Bonjour,
Je selectionne au prealable une image.
Comment faire pour changer son nom en VBA ?

je peux la selectionner :

ActiveSheet.Pictures("Picture 1").Select

mais ActiveSheet.Pictures.Name ne marche pas ce n'est pas supporte....

je voudrais renommer "Picture 1" en "Picture 2" par exemple.

Avez-vous une solution ?
Merci
@+
Michel.




Avatar
Sitting Hoax \(BM\)
bonjour,
si ça peut t'aider,
affecte alors cette macro aux 3 images,
puis place toi sur la cellule dont la ligne devra nommer
l'image qui sera collée

Sub image()
x = ActiveCell.Row
ActiveSheet.Shapes(Application.Caller).Copy
ActiveSheet.Paste 'action de ta macro qui colle
Selection.Name = "Picture " & x 'renomme l'image collée
'pour supprimer la macro sur l'image collée
Selection.OnAction = ""
End Sub

tu pourras ainsi coller autant de fois que tu veux ces images.
Cependant, si tu en colle 2 sur la même ligne, cela nommera l'image
avec le même nom qu'une autre.

amicalement
Sitting Hoax
"Michel HOLDERITH" a écrit dans le message de
news:
Salut,
merci, mais en fait j'ai 3 images existantes dans un classeur "Picture 1",
"Picture 2" et "Picture 3".
via une macro j'en copie une, par exmple "Picture 1" dans une cellue
precise. cette copie s'appellera egalement "Picture 1".... et je
souhaiterais l'appeller "Picture " & activecell.row

en faisant : ActiveSheet.Pictures("Picture 1").Name = "Picture " &
activecell.row

excel me change le nom de l'image a partir de laquelle je copie/colle et
nom

l'image qui a etait collee.... :(

Aurais-tu une idee ?
C'est la derniere ligne droite pour mon projet.......
Merci
@+
Michel.



"Pierre Fauconnier" wrote in message
news:
Bonjour Michel

Chez moi, avec XL2000, cela fonctionne, mais tu dois donner le nom de
l'image, alors que tu l'as apparemment oublié dans l'exemple que tu
donnes




ActiveSheet.Pictures("image 1").Name = "test 1"


--
Cela convient-il?
----
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..."
(remplacer NOSPAM par pfi pour me répondre. Merci)


---

Michel HOLDERITH wrote:
Bonjour,
Je selectionne au prealable une image.
Comment faire pour changer son nom en VBA ?

je peux la selectionner :

ActiveSheet.Pictures("Picture 1").Select

mais ActiveSheet.Pictures.Name ne marche pas ce n'est pas supporte....

je voudrais renommer "Picture 1" en "Picture 2" par exemple.

Avez-vous une solution ?
Merci
@+
Michel.










Avatar
Sitting Hoax \(BM\)
On y arrivera Michel !
ceci sélectionne le dernier objet créé de la collection puis le renomme
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name = "picture " &
ActiveCell.Row
ou
ActiveSheet.Shapes(ActiveSheet.DrawingObjects.Count).Name = "picture " &
ActiveCell.Row
Amicalement
Sitting Hoax
"Michel HOLDERITH" a écrit dans le message de
news:
c'est une bonne idee, mais la boucle selectionne toutes les images sauf
celle qui a etait copiee....

"isabelle" wrote in message
news:
bonjour Michel,

une solution serait de passer par la collection,

For Each p In ActiveSheet.DrawingObjects
If p.Name = "Picture 1" Then p.Name = "Picture 2"
Next

isabelle


Bonjour,
Je selectionne au prealable une image.
Comment faire pour changer son nom en VBA ?

je peux la selectionner :

ActiveSheet.Pictures("Picture 1").Select

mais ActiveSheet.Pictures.Name ne marche pas ce n'est pas supporte....

je voudrais renommer "Picture 1" en "Picture 2" par exemple.

Avez-vous une solution ?
Merci
@+
Michel.








Avatar
Michel HOLDERITH
Super...........
Un grand merci...
c'etait vraiment tout bete.........
la ligne qu'il me fallait :
Selection.Name = "Picture " & ActiveCell.Row
il fallait le savoir......... :)
@+
Merci a toi et egalement a tout le monde.............
Michel.

"Sitting Hoax (BM)" wrote in message
news:
bonjour,
si ça peut t'aider,
affecte alors cette macro aux 3 images,
puis place toi sur la cellule dont la ligne devra nommer
l'image qui sera collée

Sub image()
x = ActiveCell.Row
ActiveSheet.Shapes(Application.Caller).Copy
ActiveSheet.Paste 'action de ta macro qui colle
Selection.Name = "Picture " & x 'renomme l'image collée
'pour supprimer la macro sur l'image collée
Selection.OnAction = ""
End Sub

tu pourras ainsi coller autant de fois que tu veux ces images.
Cependant, si tu en colle 2 sur la même ligne, cela nommera l'image
avec le même nom qu'une autre.

amicalement
Sitting Hoax
"Michel HOLDERITH" a écrit dans le message de
news:
Salut,
merci, mais en fait j'ai 3 images existantes dans un classeur "Picture
1",


"Picture 2" et "Picture 3".
via une macro j'en copie une, par exmple "Picture 1" dans une cellue
precise. cette copie s'appellera egalement "Picture 1".... et je
souhaiterais l'appeller "Picture " & activecell.row

en faisant : ActiveSheet.Pictures("Picture 1").Name = "Picture " &
activecell.row

excel me change le nom de l'image a partir de laquelle je copie/colle et
nom

l'image qui a etait collee.... :(

Aurais-tu une idee ?
C'est la derniere ligne droite pour mon projet.......
Merci
@+
Michel.



"Pierre Fauconnier" wrote in message
news:
Bonjour Michel

Chez moi, avec XL2000, cela fonctionne, mais tu dois donner le nom de
l'image, alors que tu l'as apparemment oublié dans l'exemple que tu
donnes




ActiveSheet.Pictures("image 1").Name = "test 1"


--
Cela convient-il?
----
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..."
(remplacer NOSPAM par pfi pour me répondre. Merci)


---

Michel HOLDERITH wrote:
Bonjour,
Je selectionne au prealable une image.
Comment faire pour changer son nom en VBA ?

je peux la selectionner :

ActiveSheet.Pictures("Picture 1").Select

mais ActiveSheet.Pictures.Name ne marche pas ce n'est pas
supporte....





je voudrais renommer "Picture 1" en "Picture 2" par exemple.

Avez-vous une solution ?
Merci
@+
Michel.














Avatar
ru-th
Salut

un essai
Sub test()
If TypeName(Selection) = "Picture" Then
rep = Application.Round(Selection.Top, 0)
Selection.Name = "image" & PosLigne(rep)
MsgBox Selection.Name
End If
End Sub

Function PosLigne(pos)
For i = 1 To pos
u = Cells(i, 1).Top
If Cells(i, 1).Top >= pos Then
PosLigne = i
Exit Function
End If
Next i
End Function

a+
rural thierry



"Michel HOLDERITH" a écrit dans le message de news:

Salut,
merci, mais en fait j'ai 3 images existantes dans un classeur "Picture 1",
"Picture 2" et "Picture 3".
via une macro j'en copie une, par exmple "Picture 1" dans une cellue
precise. cette copie s'appellera egalement "Picture 1".... et je
souhaiterais l'appeller "Picture " & activecell.row

en faisant : ActiveSheet.Pictures("Picture 1").Name = "Picture " &
activecell.row

excel me change le nom de l'image a partir de laquelle je copie/colle et
nom

l'image qui a etait collee.... :(

Aurais-tu une idee ?
C'est la derniere ligne droite pour mon projet.......
Merci
@+
Michel.



"Pierre Fauconnier" wrote in message
news:
Bonjour Michel

Chez moi, avec XL2000, cela fonctionne, mais tu dois donner le nom de
l'image, alors que tu l'as apparemment oublié dans l'exemple que tu
donnes




ActiveSheet.Pictures("image 1").Name = "test 1"


--
Cela convient-il?
----
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..."
(remplacer NOSPAM par pfi pour me répondre. Merci)


---

Michel HOLDERITH wrote:
Bonjour,
Je selectionne au prealable une image.
Comment faire pour changer son nom en VBA ?

je peux la selectionner :

ActiveSheet.Pictures("Picture 1").Select

mais ActiveSheet.Pictures.Name ne marche pas ce n'est pas supporte....


je voudrais renommer "Picture 1" en "Picture 2" par exemple.

Avez-vous une solution ?
Merci
@+
Michel.