Splendide !
J'en rêvais, Guy l'a fait ...... (grâce au Forum, merci le Forum)

Bon, il me reste à remercier Guy, Didier, tout le monde, et rendez-vous à mon prochain projet Excel !

Gmarin.

Bonsoir gmarin, Guy,

Citation :
...et il te reste aussi à clore ce fil de discussions comme indiqué au bas de ma signature...

Merci de ta compréhension.

Cordialement,

Bonjour Didier,

Bon, heureusement que je ne l'ai pas encore fait !
Je suis en cours de transposer l'exemple dans mon projet, et je m'aperçois que celà ne fonctionne pas !
Parce que, je n'utilise pas des "URL" sur internet, mais des fichiers locaux (répertoire sur le disque dur) donc des "File:///C:......" ( j'ai essayé de mettre une URL à un lien précis, et çà marche, donc c'est bien çà).

Donc, je pense qu'il y a modification certainement , mais où ?

Bonjour,

Si tu n'utilises pas d'URL il ne faut plus utiliser la fonction TelechargerImage() telle qu'elle apparaît dans le code.

Remplacer la portion de code suivante :

    If TelechargerImage(strURL, DossierTempo & "Image." & strExt, lngH, lngL) Then
     
      On Error Resume Next
      shaImage.Delete
      On Error GoTo 0
     
      ' Modifier les paramètre Top, Left, Height et Width au besoin.
      Set shaImage = Feuil2.Shapes.AddPicture(DossierTempo & "Image." & strExt, msoTrue, msoFalse, 10, 10, lngL, lngH)
      With shaImage
     
        .LockAspectRatio = msoTrue ' Assure une taille proportionnelle
        .Height = 200 ' Unités : point. J'ai mis 200 au pifomètre. Tu peux ajuster selon ta préférence.
       
      End With
   
     End If

Par :
      Dim picImage As StdPicture

      On Error Resume Next
      shaImage.Delete ' Pour se débarasser de l'image précédente
      On Error GoTo 0

      Set picImage = LoadPicture("C:\MonDossier\Images\MonImage.xxx")
      lngH = picImage.Height/100
      lngL = picImage.Width/100

      ' Et la suite est identique sauf pour la provenance de l'image. Sur le disque cette fois.
       
      Set shaImage = Feuil2.Shapes.AddPicture("C:\MonDossier\Images\MonImage.xxx", msoTrue, msoFalse, 10, 10, lngL, lngH)
      With shaImage
     
        .LockAspectRatio = msoTrue ' Assure une taille proportionnelle
        .Height = 200 ' Unités : point. J'ai mis 200 au pifomètre. Tu peux ajuster selon ta préférence.
       
      End With

S'il y a embrouille, renvoie en téléchargement le fichier sur lequel tu travailles et on verra.

Cordialement,

Guy

Re,

gmarin, tu serais gentil à l'avenir de fournir dès le départ un fichier qui ressemble à la réalité de ce que tu veux, car là franchement...

Cordialement,

Oui Didier,

Pour moi, "Hyperlink" que ce soit http:// ou File:/// je ne voyais pas de différence, c'est un hyperlien...
Bon, pour mon exemple, je présente mes excuses, je travaille sur un sujet que je ne tiens pas à voir publier tant qu'il n'est pas finalisé, et créér un exemple idoine n'est pas facile, surtout pour un débutant en Excel.
Je modifie l'exemple en conséquence, et je le reposte dans la foulée.
Désolé pour ces problèmes supplémentaires nécessitant, c'est vrai, plus de temps que nécessaire à la réflexion.

Gmarin

Juste,

C'est un hyperlien. Je n'ai pas pris le temps de voir le problème de ce côté.

Je peaufine pour l'exemple avec des fichiers locaux.

Cordialement,

Guy

Le téléchargement étant limité à 80ko, je ne peux pas envoyer l'exemple avec son répertoire "photos".
Mais je peux le mettre sur Megaupload ou autre.
Selon votre volonté ! 

Je ne crois pas que ce soit nécessaire finalement.

Est-ce que tu prévois utiliser des fichiers locaux et des fichiers web simultanément?

Guy

Re,

Tu n'as pas à t'excuser, ce n'était qu'une simple remarque... histoire de faire gagner du temps à tous.

Je voulais simplement te faire remarquer que des données d'abord en colonnes A, B et C, sont ensuite passés en colonnes A, D et F... Des liens en colonnes A et C se retrouvent ensuite uniquement en colonne F... et au final (enfin j'espère), les liens ne pointent plus sur des URL mais sur des fichiers locaux. Ce n'est pas tant ton niveau de connaissance Excel le souci, mais plutôt le sentiment que tu n'as pas vraiment l'air de savoir où tu vas.
Tout ça mène à un fil de discussions sans fin : plus de 45 échanges déjà dans ce fil !

Si pour toi l'objectif sera atteint au final, notre cheval de bataille à nous (et Guy ne me contredira pas sur ce point) c'est surtout l'efficacité...

Bien sûr, ne le prends pas mal, mais dis toi simplement qu'une réponse ne sera jamais satisfaisante si le problème est mal exposé, incomplet ou non réfléchi.

Cordialement,