Manipulation copier coller excel / word /excel en auto
Résolu
mijean94
Messages postés
417
Statut
Membre
-
mijean94 Messages postés 417 Statut Membre -
mijean94 Messages postés 417 Statut Membre -
Bonjour,
Voici ce que je fais manuellement et que je cherche à faire en automatique si possible.
J’ai référencé Word dans Excel et j’ai essayé l’auto apprentissage VBA mais ça ne fonctionne pas. Le code n’est pas enregistré pour toutes les séquences.
Je suis sous Excel 2003
les actions que je fais :
a) copie des cellules sur Excel (A1 : A100 par exemple sur feuille « Calcul »)
b) collage spécial, sur Word, en image (métafichier amélioré)
c) copie de cette image sur word
d) retour sur Excel et collage de l’image sur feuille « Résultats »
e) redimensionnement de l’image sur excel, avec format de l’image, dimension, proportionnel, avec hauteur = 4 cm. OK
f) sur Excel je positionne cette image à partir d’une cellule (I2 par exemple) sur la feuille « Résultats »
Y-a-t-il une possibilité d’automatiser cette procédure ou de faire cela uniquement sur Excel ?
Merci pour l’aide
Bien cordialement
Voici ce que je fais manuellement et que je cherche à faire en automatique si possible.
J’ai référencé Word dans Excel et j’ai essayé l’auto apprentissage VBA mais ça ne fonctionne pas. Le code n’est pas enregistré pour toutes les séquences.
Je suis sous Excel 2003
les actions que je fais :
a) copie des cellules sur Excel (A1 : A100 par exemple sur feuille « Calcul »)
b) collage spécial, sur Word, en image (métafichier amélioré)
c) copie de cette image sur word
d) retour sur Excel et collage de l’image sur feuille « Résultats »
e) redimensionnement de l’image sur excel, avec format de l’image, dimension, proportionnel, avec hauteur = 4 cm. OK
f) sur Excel je positionne cette image à partir d’une cellule (I2 par exemple) sur la feuille « Résultats »
Y-a-t-il une possibilité d’automatiser cette procédure ou de faire cela uniquement sur Excel ?
Merci pour l’aide
Bien cordialement
A voir également:
- Manipulation copier coller excel / word /excel en auto
- Word et excel gratuit - Guide
- Liste déroulante excel - Guide
- Mise en forme conditionnelle excel - Guide
- Word 2013 - Télécharger - Traitement de texte
- Déplacer colonne excel - Guide
2 réponses
Bonjour, tu peux faire cela sous Excel ou Word mais pas les deux (pour le vba je précise). Si tu programme que sur Excel, commence par lire ceci.
Pour commencer, tu peux, sur Word enregistrer une macro sur le copier coller spécial pour avoir le code et, soit dans Excel tu pilote Word, soit Excel va copier pour laisser la main à Word.
Pour commencer, tu peux, sur Word enregistrer une macro sur le copier coller spécial pour avoir le code et, soit dans Excel tu pilote Word, soit Excel va copier pour laisser la main à Word.
Bonjour,
pas besoin de passer par word :
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
pas besoin de passer par word :
Sub test()
'La plage de cellules est copiée dans le Presse-papiers en tant qu'image.
Worksheets("Feuil1").Range("A4:E7").CopyPicture
'coller image dans la feuille
With Sheets("Resultat")
.Select
.[I2].Select ' cellule du collé
.Paste
' renommer l'image
Selection.Name = "Image A4:E7"
End With
End Sub
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
Bonjour eriiic et le forum
Merci pour la réponse,
Lorsque je redimensionne mon image à 4,5 cm de hauteur (proportionnelle) l'auto apprentissage de la macro me donne le code si dessous.
Est-il possible de faire un code qui redimensionne toujours à 4,5 cm en hauteur, en conservant la proportion, quelque soit la dimension de l'image au départ ?
Merci pour l'aide.
Bien cordialement
Merci pour la réponse,
Lorsque je redimensionne mon image à 4,5 cm de hauteur (proportionnelle) l'auto apprentissage de la macro me donne le code si dessous.
ActiveSheet.Shapes("Image_Dessin").Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 127.5
Selection.ShapeRange.Width = 148.5
Selection.ShapeRange.Rotation = 0#
Range("A1").Select
Est-il possible de faire un code qui redimensionne toujours à 4,5 cm en hauteur, en conservant la proportion, quelque soit la dimension de l'image au départ ?
Merci pour l'aide.
Bien cordialement
Merci pour la réponse. je vais essayer de comprendre et de mettre en ouvre.
Bien cordialement