Outlook, PDF, objet, ouverture automatique

Bonjour,

Quand je double clique dans une cellule de la colonne I, ça ne marche pas.

Je souhaite que quand je double clique dans une cellule de la colonne I une page outlook s'ouvre avec l'objet inscrit et le PDF en pièce jointe. meci bonne journée.

Bien cordialement.

Bonjour Ludeaux,

Pour moi c'est normal

Dans la fenêtre d'exécution, si je fais "debug.Print fichier"

Voici ce que j'ai :

PDF\20220126_DR_RMT-SEC_500220-DIRECTIVE-DE-PREPARATION-OPERATIONNELLE--07321575.PDF

Il manque le chemin complet d'accès au fichier

A+

merci pour cette réponse. je doits spécifier le chemin pour chaque colonne ?

Re,

Non au début

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim outApp As Object, outMail As Object, Chemin As String, Fichier As String

    If Target.Row > 3 Then
        On Error Resume Next
        Chemin = "C:\Dossier\Sous-dossier\"
        Fichier = Range("E" & Target.Row).Hyperlinks(1).Address

Puis dans votre ligne

.Attachments.Add chemin & Fichier

A moins que votre chemin ne soit jamais le même pour chaque document

A+

MERCI. le dossier est le même mais le document sera différent pour chaque cellule. je fait les liens via le bouton en haut du classeur.

Re,

Donc Le code donné précédemment est bon

Attention, "PDF" doit être le sous-dossier en 3ème position

Ce qui donnera alors comme chemin d'accès

C:\Dossier\Sous-dossier\PDF\20220126_DR_RMT-SEC_500220-DIRECTIVE-DE-PREPARATION-OPERATIONNELLE--07321575.PDF

A ce moment là, votre fichier sera bien joint

A+

"P:\RMT\PARTAGE_REGIMENTAIRE\BOI\IAT\DOC IAT 2021\PDF" c'est mon lien ou se trouve tout les PDF donc s'il y a un code qui permet de sélectionner le PDF choisi je sui preneur car si je doit faire ça pour chaque ligne ça va être compliqué.

Bonjour Ludeaux,

Voici le code complet quelque peu remanié, a tester

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim outApp As Object, outMail As Object, Chemin As String, Fichier As String
  ' Si double clic dans l'entête, on sort
  If Target.Row < 4 Then Exit Sub
  ' Si colonne Word
  If Target.Column = 7 Then
    'print or pdf
    If Fichier <> vbNullString Then
      Shell "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Bureautique /p /h " & Fichier, vbHide
    End If
    Exit Sub
  End If
  ' Si colonne PDF
  If Target.Column = 9 Then
    On Error Resume Next
    Chemin = "P:\RMT\PARTAGE_REGIMENTAIRE\BOI\IAT\DOC IAT 2021\"
    Fichier = Range("E" & Target.Row).Hyperlinks(1).Address
    If Err.Number <> 0 Then
      MsgBox "Il faut qu'en colonne E, de la ligne : " & Target.Row _
        & ", il y est un lien Hypertexte menant vers un fichier valide." _
        & "Tant que ce ne sera pas le cas, le fichier ne pourra pas fonctionner..."
      Exit Sub
      On Error GoTo 0
    End If
    On Error GoTo 0
    ' mail
    Set outApp = CreateObject("Outlook.Application")
    Set outMail = outApp.CreateItem(0)
    With outMail
      '.From = "ici.ton_adresse@mail"
      '.To = ""
      .Subject = Range("E" & Target.Row).Value
      On Error Resume Next
      .Attachments.Add Chemin & Fichier
      .Display
    End With
    Set outMail = Nothing
    Set outApp = Nothing
  End If
End Sub

A+

Bonjour,

merci mais ça ne fonctione pas. je ne comprend pas pourquoi dans le code il y une ligne word. les PDF se trouvent dans un dossier IAT 2021/PDF.

Re,

Mettez en commentaire 'On Error Resume Next

Ensuite merci de mettre un point d'arrêt (F9) sur une des lignes en début de code

De faire un double clic sur une des cellules de la colonne "I" et de faire ensuite du pas à pas avec F8

Regardez à quel moment cela ne fonctionne pas

A+

ou est-ce que je doit mettre

ensuite je fait ce que vous me dites mais rien ne se passe

Re,

Ouille youille un peu d'efforts Ludeaux SVP

1) Point d'arrêt

2) Mise en commentaire

3) double clic dans la colonne qui va bien

Ah ce moment là, le code se déclenche et se bloque au point d'arrêt

F8 pour faire un pas à pas détaillé

Vous devriez arriver jusque là

Que se passe t'il ensuite !?

A la rigueur, vous pouvez même déplacé "Display" et le mettre au début

    With outMail
      .Display
      '.From = "ici.ton_adresse@mail"
      '.To = ""
      .Subject = Range("E" & Target.Row).Value
      'On Error Resume Next
      .Attachments.Add Chemin & Fichier
    End With

A+

Bonjour,

j'ai fait la manip^décrite au-dessus mais il ne se passe rien.

Bonne journée.

Bonjour,

Bon et bien je ne peut rien pour vous, navré.