Inserer une image

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. »

ok merci Myta,

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

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

Bonjour,
Voir MP.

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

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

Bonjour Le Pingou,

Merci pour ton code , je vais faire des essais.

Bonne journée.

Pascal

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

Bonjour,
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

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.... ?

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

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...)

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

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.

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