Inserer une image
Résolu
pascalou83400
Messages postés
281
Statut
Membre
-
pascalou83400 Messages postés 281 Statut Membre -
pascalou83400 Messages postés 281 Statut Membre -
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
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 une vidéo dans powerpoint - Guide
- Insérer signature word - Guide
- Comment inserer une image sur word - Guide
- Insérer liste déroulante excel - Guide
- Insérer une légende word - Guide
16 réponses
Salut le Forum
Le chemin de l'image est donné par
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. »
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. »
ok merci Myta,
ca fonctionne, mais comment je peux lui donner une dimension fixe avec un centrage sur une cellule (D3)
ca fonctionne, mais comment je peux lui donner une dimension fixe avec un centrage sur une cellule (D3)
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
Bon je ne sais pas si mon explication est bien claire.
Je te souhaite un bonne journée et un bon WE.
Salutations
Pascal
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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.
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
Bonjour,
Merci d'utiliser cette version :
Salutations.
Le Pingou
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
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
Je continue et je reviens pour donner mes avancées.
A+
Pascal
Bonjour,
Ce serait plus simple si vous mettez le fichier sur https://www.cjoint.com/ et poster le lien!
Ce serait plus simple si vous mettez le fichier sur https://www.cjoint.com/ et poster le lien!
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
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
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.... ?
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.... ?
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
Merci pour ton aide , car la je désespère totalement de sortir qq chose.
https://www.cjoint.com/?DHfaFlkhjJj
Bonne nuit.
Pascal
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...)
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...)
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
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
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.
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.
Pour un chemin fixe
Mytå