Inserer image WORD + lien hypertext pour ouvrir le document en .pdf ou .doc

J'ai fait les modifications.

Merci

Re

Dans le frame Technical report, le bouton Attach vert mentionne l'ouverture de fichier doc
Si ce n'est pas une image, cela ne fonctionnera pas

bonsoir Dan,

oui, remodifie en jpg.

Merci.

Cdlt

ok donc votre code Attach sur l'image 4 est comme ceci

Private Sub CommandButton4_Click()
Dim nf As Variant

Call CommandButton13_Click
nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
   If Not nf = False Then
     Me.TextBox30 = nf
     Me.Image4.Picture = LoadPicture(nf)
   End If

End Sub

Idem pour les 3 premiers boutons Attach

Le code ci-dessous sera exécuté au click sur l'image 4 et ouvrira le répertoire mentionné en textbox30.

Private Sub Image4_click()
Dim fichier As String

fichier = TextBox30.Value
If Dir(fichier, vbDirectory) <> "" Then
    Shell "explorer.exe /e," & fichier, vbNormalFocus
End If
End Sub

Si ok, je vous donnerai d'autres codes que j'ai simplifiés mais ils ne concernent pas directement le sujet du fil mais les codes commandbutton9_click et le code Affiche

Re,

un grand merci Dan.

Super votre soutien.

prochain projet sera avec projection de données sur Google Earth.

Je vous souhaite un bon week-end.

A+

Re,

Ok. Quid de ma proposition pour les autres codes dans mon post précédent ?

Intéressé ou je laisse tomber ?

Cordialement

Re,

Vous concernant, toujours intéressé par votre analyse et expertise.

A+

Bonjour Dan,

J'ai apporté vos modifications.

Quand il y a une image d'affiche dans l'image 4, il m'ouvre l'image et pas le chemin ou se trouve le document, quand il n'y a pas d'image, il m'ouvre le chemin ou je peux consulter le document ou autres. Comment faire pour que je puisse consulter le document tout en ayant une image d'inseree.

Je suis intéressé pour les autres codes.

Merci.

@+

Bonjour

Quand il y a une image d'affiche dans l'image 4, il m'ouvre l'image et pas le chemin ou se trouve le document,

Quand vous cliquez sur Attach, vous choisissez l'image et le lien vers le document est affiche en Textbox30

Votre code est bien celui ci ? --> https://forum.excel-pratique.com/s/goto/1162196

quand il n'y a pas d'image, il m'ouvre le chemin ou je peux consulter le document ou autres.

Heu .... ??? vous m'expliquez comment vous faites pour avoir le chemin en textbox30 sans cliquer sur le bouton Attach ???

Pour les autres codes je vous donnerai après avoir régler ce souci-ci

Bonjour DAN,

Oui, tout a fait, c'est bien celui-ci.

a+

Oui, tout a fait, c'est bien celui-ci.

mais pourquoi vous me remettez tous vos codes. Je les ai dans le fichier

C'est illisible

Merci de supprimer ce qui ne sert pas et de me dire ce qui pose souci

Ok.

je pense que le code ci-dessous ne sert plus. qu'en pensez-vous ?

Function copy_from_form()
Dim LastRow As Long
LastRow = ActiveWorkbook.Sheets("DATABASE_VUSHF").Range("A1000000").End(xlUp).Row
LastRow = LastRow + 1
With ActiveWorkbook.Sheets("DATABASE_VUSHF")
For i = 1 To 26
            .Cells(LastRow, i).Value = Controls("ComboBox" & i).Value
        Next i
        .Range("AA" & LastRow).Value = TextBox26.Value
        .Range("AB" & LastRow).Value = TextBox27.Value
        .Range("AC" & LastRow).Value = TextBox28.Value
        .Range("AD" & LastRow).Value = TextBox29.Value
        .Range("AE" & LastRow).Value = TextBox30.Value

End With
End Function

j'ai toujours le souci que quand je clique sur l'image 4 (avec presence d'une image attachée), il m'affiche l'image et ne me dirige pas vers le dossier pour lecture des documents. Quand je clique sur l'image 4 (sans presence d'une image attachée et donc sans lien TextBox30) il me dirige vers C et après c'est a moi de me diriger vers le dossier contenant les documents que je souhaite visualiser .

Private Sub Image4_click()
Dim fichier As String

fichier = TextBox30.Value
If Dir(fichier, vbDirectory) <> "" Then
    Shell "explorer.exe /e," & fichier, vbNormalFocus
End If
End Sub

Lorsque je disais "supprimer" ce sont tous les codes dans votre post précédent.
Mais je peux le faire aussi..

je pense que le code ci-dessous ne sert plus. qu'en pensez-vous ?

Je ne vois pas l'utilité effectivement. A supprimer donc.

j'ai toujours le souci que quand je clique sur l'image 4 (avec presence d'une image attachée), il m'affiche l'image et ne me dirige pas vers le dossier pour lecture des documents.

Remplacez le code Iamge4_click par celui ci-dessous :

Private Sub Image4_click()
Dim slash As String
Dim chemin

slash = InStrRev(TextBox30.Value, "\")
chemin = Left(TextBox30.Value, slash - 1)
If Dir(chemin, vbDirectory) <> "" Then
    Shell "explorer.exe /e," & chemin, vbNormalFocus
End If
End Sub

J'entends bien mais je ne sais pas comment on fait sur le site, il semble que je n'ai pas la main pour supprimer ce que l'on a déjà mis en ligne, pouvez vous me guider? , je le ferais avec plaisir Dan !

Lorsque je disais "supprimer" ce sont tous les codes dans votre post précédent.
Mais je peux le faire aussi..

je pense que le code ci-dessous ne sert plus. qu'en pensez-vous ?

Ca marche parfaitement avec le click sur l'image, il me dirige directement vers le dossier contenant les documents. Mais quand je ferme tout et que je sélectionne n'importe quelle ligne dans la ListBox20, l'image 4 est conservée, pas de réinitialisation. Les autres images quant a elles sont réinitialisées (image 1/2/3).

  
Private Sub ListBox20_Click()

Dim i As Byte

With Me

For i = 1 To 26

.Controls("ComboBox" & i).Text = .ListBox20.List(.ListBox20.ListIndex, i - 1)

Next i

For i = 26 To 30

.Controls("TextBox" & i) = .ListBox20.List(.ListBox20.ListIndex, i)

Next i

.ComboBox1.SetFocus

On Error Resume Next
Dim MyUrl As String
Dim filepath As String
filepath = activeWorbook.Path
MyUrl = filepath & TextBox27.Value
Me.Image1.Picture = LoadPicture(MyUrl)

MyUrl = filepath & TextBox28.Value
Me.Image2.Picture = LoadPicture(MyUrl)

MyUrl = filepath & TextBox29.Value
Me.Image3.Picture = LoadPicture(MyUrl)

MyUrl = filepath & TextBox30.Value
Me.Image4.Picture = LoadPicture(MyUrl)
End With
End Sub

Vous retournez sur le post et en haut à droite vous cliquez sur le petit crayon

De là vous savez modifier votre post. Une fois terminé vous cliquez sur le bouton Envoyer

Mais quand je ferme tout et que je sélectionne n'importe quelle ligne dans la ListBox20, l'image 4 est conservée, pas de réinitialisation.

La variable filepath ne sert à rien puisque votre textbox mentionne le PATH

Si vous changez quelque chose vous devez vider l'mage et la textbox non ?

Sur le post en question je n'ai pas ce petit crayon qui me permet de modifier.

Oui, pour le vidage de l'image 4 et de la TextBox 30 si je change qqchose.

Je ferais demain image 4 change et textbox 30 change pour réinitialisation.

Bonne soiree

A+

Sur le post en question je n'ai pas ce petit crayon qui me permet de modifier.

Vous avez les mêmes fonctionnalités que chacun sur ce forum -->

Oui, pour le vidage de l'image 4 et de la TextBox 30 si je change qqchose.

Dans le code Listbox20_click, vous supprimez toutes les lignes depuis le ON ERROR RESUME NEXT jusqu'avant le END WITH
Puis entre le END WITH et le END SUB, vous ajoutez cecic

Call CommandButton10_Click
Call CommandButton11_Click
Call CommandButton12_Click
Call CommandButton13_Click

Si ok on passera au reste avec les codes AFFICHE et suppression dans la listbox

Ok Dan.

Sur le post en question j’ai juste étoile et point d’exclamation, rien d’autre et sur d’autres post j’ai bien le petit crayon 🖍️ mais celui-là rien, désolé. Je l’aurais fait sinon. Certains de mes posts sont comme ça, pourquoi ?

Bonjour Dan,

J'ai supprime les lignes comme vous me l'avez dit.

Je n'ai plus aucune image de visible ... au clic sur chaque ligne ?! je pense que c'est normal puisqu'elles ne sont plus chargées. J'attends vos recommandations

  
Private Sub ListBox20_Click()
Dim i As Byte
With Me
For i = 1 To 26
.Controls("ComboBox" & i).Text = .ListBox20.List(.ListBox20.ListIndex, i - 1)
Next i
For i = 26 To 30
.Controls("TextBox" & i) = .ListBox20.List(.ListBox20.ListIndex, i)
Next i
.ComboBox1.SetFocus
End With
Call CommandButton10_Click
Call CommandButton11_Click
Call CommandButton12_Click
Call CommandButton13_Click
End Sub

a+