Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Problème de code dans macro svp ???

Problème de code dans macro svp ???

13 réponses
Avatar
LE TROLL
Bonjour,

Cette macro, et seulement cette macro :

Sub signePusztay()
ActiveDocument.Shapes.AddPicture FileName:= _
"C:\Users\joe\Documents\IMAGES\photos\SIGNATURES\signePusztay.bmp", _
LinkToFile:=True, SaveWithDocument:=True, Left:=200
End Sub

Elle est parfaite, il faut juste la modifier pour qu'elle se positionne à la
ligne courante du curseur, juste et seulement, quelqu'un veut-il bien me le
faire ?

--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
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
1 2
Avatar
isabelle
bonjour,

les arguments de AddPicture sont :

/expression/.*AddPicture*(*/FileName/*, */LinkToFile/*,
*/SaveWithDocument/*, */Left/*, */Top/*, */Width/*, */Height/*)

par exemple :

chemin = "C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
ActiveDocument.Shapes.AddPicture chemin, True, True, 200,
ActiveCell.Top, 100, 100

isabelle



LE TROLL a écrit :
Bonjour,

Cette macro, et seulement cette macro :

Sub signePusztay()
ActiveDocument.Shapes.AddPicture FileName:= _
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp", _
LinkToFile:=True, SaveWithDocument:=True, Left: 0
End Sub

Elle est parfaite, il faut juste la modifier pour qu'elle se
positionne à la
ligne courante du curseur, juste et seulement, quelqu'un veut-il bien
me le faire ?



Avatar
Modeste
Bonsour® isabelle
par exemple :

chemin =
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
ActiveDocument.Shapes.AddPicture chemin, True, True, 200,
ActiveCell.Top, 100, 100



arghhh !!!!
tu va finir par énerver Joseph Attila !!!!
tu pourrai au moins tester ta proc ...
tu sais pourtant bien qu'il connait rien à VBA !!!

ActiveDocument n'est pas un mot clé VBA.EXCEL !!!!
;o)))
Avatar
LE TROLL
Bonjour,

Marche pas :

Dim chemin As String
chemin =
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
ActiveDocument.Shapes.AddPicture chemin, True, True, 200,
ActiveCell.Top , 100, 100

--------------------

ligne 3 en rouge, il doit lui manquer quelque chose (la virgule ?) ???
Et si je retire la virgule de la ligne 3, la ligne 4 dit qu'un objet est
requis ???

Ce serait bon à part ça, mais ça ne se met pas sur la ligne courante ???


--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


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

les arguments de AddPicture sont :

/expression/.*AddPicture*(*/FileName/*, */LinkToFile/*,
*/SaveWithDocument/*, */Left/*, */Top/*, */Width/*, */Height/*)

par exemple :

chemin =
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
ActiveDocument.Shapes.AddPicture chemin, True, True, 200, ActiveCell.Top,
100, 100

isabelle



LE TROLL a écrit :
Bonjour,

Cette macro, et seulement cette macro :

Sub signePusztay()
ActiveDocument.Shapes.AddPicture FileName:= _
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp", _
LinkToFile:=True, SaveWithDocument:=True, Left: 0
End Sub

Elle est parfaite, il faut juste la modifier pour qu'elle se positionne à
la
ligne courante du curseur, juste et seulement, quelqu'un veut-il bien me
le faire ?





Avatar
isabelle
regarde la reponse de modeste, (ActiveDocument) ActiveSheet

isabelle

LE TROLL a écrit :
Bonjour,

Marche pas :

Dim chemin As String
chemin =
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
ActiveDocument.Shapes.AddPicture chemin, True, True, 200,
ActiveCell.Top , 100, 100

--------------------

ligne 3 en rouge, il doit lui manquer quelque chose (la virgule ?) ???
Et si je retire la virgule de la ligne 3, la ligne 4 dit qu'un objet
est requis ???

Ce serait bon à part ça, mais ça ne se met pas sur la ligne courante ???




Avatar
LE TROLL
Il me faut exactement cette fonctionnalité + (habillage du texte (devant ou
derrière le texte), que je puisse déplacer l'image, sais-tu faire ???

Selection.InlineShapes.AddPicture FileName:= _
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp",
_
LinkToFile:úlse, SaveWithDocument:=True


--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


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

les arguments de AddPicture sont :

/expression/.*AddPicture*(*/FileName/*, */LinkToFile/*,
*/SaveWithDocument/*, */Left/*, */Top/*, */Width/*, */Height/*)

par exemple :

chemin =
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
ActiveDocument.Shapes.AddPicture chemin, True, True, 200, ActiveCell.Top,
100, 100

isabelle



LE TROLL a écrit :
Bonjour,

Cette macro, et seulement cette macro :

Sub signePusztay()
ActiveDocument.Shapes.AddPicture FileName:= _
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp", _
LinkToFile:=True, SaveWithDocument:=True, Left: 0
End Sub

Elle est parfaite, il faut juste la modifier pour qu'elle se positionne à
la
ligne courante du curseur, juste et seulement, quelqu'un veut-il bien me
le faire ?





Avatar
LE TROLL
Mon ami modeste, ça fait trois jours que je pose la même question, elle est
si simple pourtant, vois cette procédure :

Selection.InlineShapes.AddPicture FileName:= _
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp",
_
LinkToFile:úlse, SaveWithDocument:=True

Elle fonctionne parfaitement, il faut juste lui rajouter ce qui est refusé
avec l'enregistreur, à savoir :
habillage du texte, devant ou derrière le texte, pour que je puisse déplacer
et retailler l'image...

Eh bien, crois moi si tu veux, y en a pas un qui a su faire ça ???

C'est pourtant simple, on me fait ma petite modif, je colle ma procédure
et ça marche, c'est pas compliqué ça,, non d'un chien, ben même une demande
si simple, personne ne comprend : on m'en rajoute, on m'en enlève, on m'en
modifie, mais on ne fait pas ce que je demande, j'ai du chagrin tu sais...

Et toi, par hasard, tu ne saurais pas ?

--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"Modeste" a écrit dans le message de
news:
Bonsour® isabelle
par exemple :

chemin > "C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
ActiveDocument.Shapes.AddPicture chemin, True, True, 200,
ActiveCell.Top, 100, 100



arghhh !!!!
tu va finir par énerver Joseph Attila !!!!
tu pourrai au moins tester ta proc ...
tu sais pourtant bien qu'il connait rien à VBA !!!

ActiveDocument n'est pas un mot clé VBA.EXCEL !!!!
;o)))
Avatar
LE TROLL
Et comme tu as commencée si tu me l'a faisais, ça ne serait pas terminé
depuis longtemps ?

J'ai juste besoin d'un copier coller, je ne veux pas apprendre le VBA,
qu'est-ce que tu veux que j'en fasse ?

--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"isabelle" a écrit dans le message de
news:%
regarde la reponse de modeste, (ActiveDocument) ActiveSheet

isabelle

LE TROLL a écrit :
Bonjour,

Marche pas :

Dim chemin As String
chemin =
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
ActiveDocument.Shapes.AddPicture chemin, True, True, 200,
ActiveCell.Top , 100, 100

--------------------

ligne 3 en rouge, il doit lui manquer quelque chose (la virgule ?) ???
Et si je retire la virgule de la ligne 3, la ligne 4 dit qu'un objet est
requis ???

Ce serait bon à part ça, mais ça ne se met pas sur la ligne courante ???






Avatar
isabelle
LE TROLL a écrit :
Il me faut exactement cette fonctionnalité + (habillage du texte
(devant ou derrière le texte), que je puisse déplacer l'image, sais-tu
faire ???



Application.Goto [IV65536]

isabelle (geôlière)
Avatar
Alain L
Bonjour à toi aussi,

Maître Le Troll pourrait être plus avenant avec ceux qu'il
considère comme du petit personnel.
Du moins c'est comme ça que je j'interprète la lecture de ce
fil.

Bien le bonjour chez vous.

"LE TROLL" <le a écrit dans le message de
news:
Il me faut exactement cette fonctionnalité + (habillage du


texte (devant ou
derrière le texte), que je puisse déplacer l'image,


sais-tu faire ???

Selection.InlineShapes.AddPicture FileName:= _



"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePuszta
y.bmp",
_
LinkToFile:úlse, SaveWithDocument:=True


--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"isabelle" a écrit dans le message de
news:
> bonjour,
>
> les arguments de AddPicture sont :
>
> /expression/.*AddPicture*(*/FileName/*, */LinkToFile/*,
> */SaveWithDocument/*, */Left/*, */Top/*, */Width/*,


*/Height/*)
>
> par exemple :
>
> chemin > >


"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePuszta
y.bmp"
> ActiveDocument.Shapes.AddPicture chemin, True, True,


200, ActiveCell.Top,
> 100, 100
>
> isabelle
>
>
>
> LE TROLL a écrit :
>> Bonjour,
>>
>> Cette macro, et seulement cette macro :
>>
>> Sub signePusztay()
>> ActiveDocument.Shapes.AddPicture FileName:= _
>>


"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePuszta
y.bmp", _
>> LinkToFile:=True, SaveWithDocument:=True, Left: 0
>> End Sub
>>
>> Elle est parfaite, il faut juste la modifier pour


qu'elle se positionne à
>> la
>> ligne courante du curseur, juste et seulement,


quelqu'un veut-il bien me
>> le faire ?
>>



Avatar
isabelle
LE TROLL a écrit :
Et comme tu as commencée si tu me l'a faisais, ça ne serait pas
terminé depuis longtemps ?

J'ai juste besoin d'un copier coller, je ne veux pas apprendre le VBA,
qu'est-ce que tu veux que j'en fasse ?



Application.Goto [IV65536]

isabelle (geôlière
1 2