Manipulation copier coller excel / word /excel en auto
Résolu/Fermé
mijean94
Messages postés
394
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
8 novembre 2021
-
15 nov. 2016 à 15:04
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 - 22 nov. 2016 à 13:25
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 - 22 nov. 2016 à 13:25
A voir également:
- Manipulation copier coller excel / word /excel en auto
- Liste déroulante excel - Guide
- Formule excel - Guide
- Supprimer une page word - Guide
- Convertir pdf en word excel gratuit - Guide
- Word excel gratuit - Guide
2 réponses
tyranausor
Messages postés
3532
Date d'inscription
jeudi 6 août 2009
Statut
Membre
Dernière intervention
1 avril 2022
2 037
20 nov. 2016 à 21:50
20 nov. 2016 à 21:50
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.
eriiic
Messages postés
24513
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 mars 2023
7 168
Modifié par eriiic le 20/11/2016 à 23:56
Modifié par eriiic le 20/11/2016 à 23:56
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
mijean94
Messages postés
394
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
8 novembre 2021
10
22 nov. 2016 à 11:30
22 nov. 2016 à 11:30
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
eriiic
Messages postés
24513
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 mars 2023
7 168
22 nov. 2016 à 11:43
22 nov. 2016 à 11:43
Si tu te bases sur la hauteur ne change pas .width qui annule ton .height précédent
eric
eric
mijean94
Messages postés
394
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
8 novembre 2021
10
>
eriiic
Messages postés
24513
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 mars 2023
22 nov. 2016 à 13:25
22 nov. 2016 à 13:25
Bonjour,
Merci eriiic pour l'info. Ca marche nickel comme toujours avec l'aide de CCM.
Bien cordialement
Merci eriiic pour l'info. Ca marche nickel comme toujours avec l'aide de CCM.
Bien cordialement
22 nov. 2016 à 10:52
Merci pour la réponse. je vais essayer de comprendre et de mettre en ouvre.
Bien cordialement