Inserer une image

Résolu/Fermé

pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022 - Modifié par pijaku le 6/08/2014 à 09:07
pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022 - 7 août 2014 à 15:03

Bonjour,

je continie , je cherche à inserer une image jpg dans mon entete, j'ai trouvé ce code, mais je ne sais pas comment indiquer le chemin ou se troove l'image.

mon chemin est W:\logo\logo palmacea entete, je mets le code


Sub Macro1()
    Dim Photo As Variant
    Dim Gauche, Sommet, Largeur, Hauteur As Single
 
    Photo = Application.GetOpenFilename("Images JPEG (*.jpg), *.jpg")
    Gauche = Range("C2").Left
    Sommet = Range("C2").Top
    Largeur = Range("C2").Width
    Hauteur = Range("C2").Height
 
    If Photo <> False Then
        Feuil1.Shapes.AddPicture Photo, True, True, Gauche, Sommet, Largeur, Hauteur
    End If
End Sub

A voir également:

Inserer une image
Insérer signature word - Guide
Insérer une vidéo dans powerpoint - Guide
Insérer liste déroulante excel - Guide
Image iso - Guide
Comment inserer une image sur word - Guide

16 réponses

Réponse 1 / 16

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
Modifié par Mytå le 1/08/2014 à 18:52

Salut le Forum

Le chemin de l'image est donné par

Photo = Application.GetOpenFilename("Images JPEG (*.jpg), *.jpg")

Mytå

Merci de donner suite à votre question, nous ne sommes pas des robots...
« Si le déboguage est l'art d'enlever les bogues, alors la programmation doit être l'art de les créer. »

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
1 août 2014 à 18:55

Re le Forum

Pour un chemin fixe

Sub Macro1()
Dim Gauche, Sommet, Largeur, Hauteur As Single

    Gauche = Range("C2").Left
    Sommet = Range("C2").Top
    Largeur = Range("C2").Width
    Hauteur = Range("C2").Height

    Feuil1.Shapes.AddPicture "W:\logo\logo.jpg", True, True, Gauche, Sommet, Largeur, Hauteur

End Sub

Mytå

Réponse 2 / 16

pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
1 août 2014 à 19:06

ok merci Myta,

ca fonctionne, mais comment je peux lui donner une dimension fixe avec un centrage sur une cellule (D3)

pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
1 août 2014 à 19:17

encore une question :

est ce possible de mettre cette image dans une feuille du classeur utilisé pour la macro, et de l'insérer à partir de cette feuille à la place du fichier ?

Réponse 3 / 16

pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
Modifié par pijaku le 6/08/2014 à 09:07

Bonjour Myta,

Je te mets le message en copie que j'ai adressé à Via55.

Aurais-tu une réponse à ma question concernant mon logo à insérer, je voudrais savoir comment je peux mettre ce logo en jpg dans une feuille du classeur actuel et l' inserer dans les autres feuilles du classeur.

Mita m'a donné un code qui fonctionne, mais pour l'instant je vais chercher l'image dans un autre classeur et si je la mets dans une feuille du classeur actuel, le classeur sera autonome.
Le code :
Pour un chemin fixe

Sub Macro1()
Dim Gauche, Sommet, Largeur, Hauteur As Single

    Gauche = Range("C2").Left
    Sommet = Range("C2").Top
    Largeur = Range("C2").Width
    Hauteur = Range("C2").Height

    Feuil1.Shapes.AddPicture "W:\logo\logo.jpg", True, True, Gauche, Sommet, Largeur, Hauteur

End Sub

Bon je ne sais pas si mon explication est bien claire.

Je te souhaite un bonne journée et un bon WE.
Salutations

Pascal

Réponse 4 / 16

Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
3 août 2014 à 16:30

Bonjour,
Voir MP.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 16

Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
3 août 2014 à 21:58

Bonjour,
Ma proposition sur un classeur avec plusieurs feuilles, le logo se trouve sur la première et se nomme [image 1] (si autre nom vous le préciser dans la procédure. Le logo sera inséré dans les autres feuilles ancré sur la cellule [E2] (ancrage en haut à gauche)
La procédure à copier dans un module.

Sub copierCollerLogo()
Dim sh As Object
Sheets("Feuil1").Select
ActiveSheet.Shapes.Range(Array("Image 1")).Select
Selection.Copy
For Each sh In Worksheets
    If sh.Name <> "Feuil1" Then
        sh.Activate
        Range("E2").Activate
        ActiveSheet.Paste
    End If
Next sh
End Sub

Réponse 6 / 16

Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
Modifié par pijaku le 6/08/2014 à 09:08

Bonjour,
Merci d'utiliser cette version :

Sub copierCollerLogo()
Dim sh As Object
Sheets("Feuil1").Shapes("Image 1").Copy
For Each sh In Worksheets
    If sh.Name <> "Feuil1" Then
        sh.Paste Destination:=sh.Range("E20")
    End If
Next sh
End Sub

Salutations.
Le Pingou

Réponse 7 / 16

pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
4 août 2014 à 09:13

Bonjour Le Pingou,

Merci pour ton code , je vais faire des essais.

Bonne journée.

Pascal

Réponse 8 / 16

pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
4 août 2014 à 18:34

Bon je ne m'en sors pas , j'essaie de mettre tous mes codes dans une macro existante et rien ne marche.

Je continue et je reviens pour donner mes avancées.

A+

Pascal

Réponse 9 / 16

Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
4 août 2014 à 18:46

Bonjour,
Ce serait plus simple si vous mettez le fichier sur https://www.cjoint.com/ et poster le lien!

Réponse 10 / 16

pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
4 août 2014 à 22:26

Je pense que tu as raison, je n'arrive pas à sortir quelque chose de tous mes codes, en plus j'ai mis un sacre bazar dans la macro d'origine.

Je mets le fichier en copie, en espérant que je n'ai pas crée un Alien.

https://www.cjoint.com/?DHewvAf8ufF

Bon je me remets entre les mains d'expert, je voulais tellement y arriver , mais je dois rendre à l'évidence, le vba sans formation ce n'est pas possible.

Bonne soirée

Pascal

Réponse 11 / 16

Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
4 août 2014 à 23:28

Bonjour,
Merci pour le fichier que j'ai parcouru en diagonal.
Je me pose une question : que voulez-vous réalisé exactement, là est le mystère.... ?

Réponse 12 / 16

pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
5 août 2014 à 00:37

J'ai fait une procédure pour ne rien oublier, je la mets en pièce jointe.

Merci pour ton aide , car la je désespère totalement de sortir qq chose.

https://www.cjoint.com/?DHfaFlkhjJj

Bonne nuit.

Pascal

Réponse 13 / 16

Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
5 août 2014 à 17:42

Bonjour,
Merci pour l'information.
Entre temps j'ai fait un pas à pas sur votre procédure.
Premier constat : il manque 2 instructions : [Next i] et [End Sub], ensuite vous lancer une procédure [SauvegardeDansUnFichier] hors cette procédure est neutraliser avec remarque : ' ça c'est l'ancienne version de sauvegarde ....ce qui provoque une erreur de compilation.
J'ai corriger les 3 erreurs et je tombe sur une autre faute avec : ' Masquer colonne N, Z, AA, AB, AC, AD, AE, AF avec la procédure [CacherLesColonnes (I)] qui ne fait rien de ce que vous voulez elle masque par 8 fois de suite la colonne [A :A] ......
Je me suis arrêté pour l'instant.
Je vais prendre la peine de lire votre dernier document pour voir ...si je trouve ce que vous avez comme élément au départ et le résultat à obtenir à la fin (et non pas ce que vous avez mis bout à bout et qui ne tient pas la route...)

Réponse 14 / 16

pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
6 août 2014 à 08:16

Bonjour LE Pingou,

Hier j'ai fait une journée sans informatique, rdv oblige et hier soir impossible de me connecter sur mon compte , et ce matin après 4 essais, il a fallut que je réinitialise mon compte.

J'imagine que j'ai mis un sacré bazar dans les codes, j'ai travaillé avec des codes que je récupérais et d'autres que je faisais avec une macro pour voir le code.

Je vais faire une formation sinon je ne pourrai pas réussir tout seul.

Je te remercie pour ton aide, je continue a décortiquer les codes pour voir si j' arrive à comprendre.

Bonne journée.

Pascal

Réponse 15 / 16

Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
6 août 2014 à 09:54

Bonjour,
Eh oui, c'est une suite de codes pas toujours corrects et en plus ne réalise pas ce que vous avez décrit dans le document.
J'ai passé une bonne partie de la soirée d'hier pos trouver le fil de votre application....sans réussite.
Le gros problème est que vous ne mentionnez pas ce que vous voulez réaliser avec votre base de données et dans ce cas impossible d'aller plus loin.

Réponse 16 / 16

pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
7 août 2014 à 15:03

Bonjour ,

J'ai trouvé un informaticien qui peut m'aider.

Il va me corriger les codes et je reviens vers vous pour d'autres aventures.

Merci à tous pour votre aide qui m a été tees précieuse.

Bonne journée et bonnes vacances pour ceux qui en prennent.

Pascal

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

Discussions similaires

Newsletters