Code, courriel, imprimer

Bonjour, le code erreur d'exécution est 438.

Bonjour,

Erreur d'exécution 438

Propriété ou méthode non gérée par cet objet

Erreur d'exécution 9

L'indice n'appartient pas à la sélection

Bonne journée.

Bonjour,

Y a t'il un lien dans la ligne ou ça bloque?

Si oui, le lien pointe t'il vers un fichier?

oui, il pointe vers un dossier qui comprendra les fichier PDF

Le problème est là.
Il pointe vers un DOSSIER et pas vers un FICHIER.

Tu as donc toutes les cartes en main pour résoudre ton souci.

En fait, je clique sur le bouton en question qui ouvre le dossier et je sélectionne le fichier

Bonjour, je sèche, j'ai essayé tout les codes communiqués. je souhaiterai que le fichier PDF s'imprime automatiquement quand je clique sur l'image print de la même ligne. Aussi quand je d

ouble clique sur l'image mail, je souhaiterai que l'objet s'insère automatiquement en plus du fichier.

Bonne journée.

Dernière intervention de ma part.

1- pour l'impression automatique, voir mes précédentes demandes, au risque de me répéter : QUEL LOGICIEL OUVRE LES PDF CHEZ VOUS?

2- Pour le mail, tout fonctionne correctement dans le code ci-dessous :

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

    If Target.Row > 3 Then
        On Error Resume Next
        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 ai un lien Hypertexte menant vers un fichier valide. Tant que ce ne sera pas le cas, le fichier ne pourra pas fonctionner..."
            Exit Sub
        End If
        On Error GoTo 0
        If Target.Column = 7 Then
            'print or pdf
            If Fichier <> vbNullString Then
                ThisWorkbook.FollowHyperlink Fichier
            End If
        ElseIf Target.Column = 10 Then
            'mail
            Set outApp = CreateObject("Outlook.Application")
            Set outMail = outApp.CreateItem(0)
            With outMail
                '.From = "ici.ton_adresse@mail"
                '.To = ""
                .Subject = Range("D" & Target.Row).Value
                On Error Resume Next
                If Fichier <> vbNullString Then
                    .Attachments.Add Fichier
                    If Err.Number <> 0 Then
                        MsgBox "Il faut qu'en colonne E, de la ligne : " & Target.Row & ", il y ai un lien Hypertexte menant vers un fichier valide. Tant que ce ne sera pas le cas, le fichier ne pourra pas fonctionner..."
                        Exit Sub
                    End If
                    On Error GoTo 0
                End If
                .Display
            End With
            Set outMail = Nothing
            Set outApp = Nothing
        End If
    End If
End Sub

MERCI POUR LA PATIENCE. ADOBE READER

Voir cette discussion : https://www.mrexcel.com/board/threads/vba-code-to-print-pdf-file-from-adobe-reader-dc.939945/

Il te faudra adapter le chemin d'accès à ton reader adobe.

Et remplacer, dans mon code, la ligne :

ThisWorkbook.FollowHyperlink Fichier

à remplacer par :

Shell "ICI L'ADRESSE COMPLETE D'ACCES A TON READER /p /h " & Fichier, vbHide

Merci, est-ce que c'est possible de prendre en compte le lien automatiquement de la cellule de la colonne E sans devoir le renseigner dans le ode VGA car je me sert du bouton à côté du titre et je souhaite cette manipulation pour toute les cellules de la colonne E ?

Merci, est-ce que c'est possible de prendre en compte le lien automatiquement de la cellule de la colonne E sans devoir le renseigner

C'est très exactement ce que fait :

Fichier = Range("E" & Target.Row).Hyperlinks(1).Address

Idem pour : je souhaite cette manipulation pour toute les cellules de la colonne E

merci, ça ne marche pas

le programme est Acrobat Reader

j'ai cré un bouton impression et je souhaiterai que la cellule sélectionnée qui contient un PDF s'imprime automatiquement

en cliquant sur ce bouton.

Merci bonne journée.

j'ai cré un bouton impression et je souhaiterai que la cellule sélectionnée qui contient un PDF s'imprime automatiquement

en cliquant sur ce bouton.

Merci bonne journée.

Ludeaux,

Je suis patient.

N'y vois là aucune méchanceté.

Mais tu ne fais aucun effort pour adapter ce que l'on te donne.

Ceci est donc mon dernier message vers toi, si je ne constate pas un effort de ta part.

Je t'ai donné un lien lundi après midi sur comment imprimer un fichier pdf : https://www.mrexcel.com/board/threads/vba-code-to-print-pdf-file-from-adobe-reader-dc.939945/

Dans ce lien, on voit un code à adapter (le chemin de ton adobe reader comme dit lundi...) qui ressemble à cela :

Shell "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe /p /h " & LocalFileName, vbHide

Tu m'envoies un fichier ou tu essaie d'imprimer avec ce code :

Private Sub CommandButton3_Click()
    ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True, _
    Ignoreprintareas:=False
End Sub

Tu te rends bien compte que c'est du foutage de tronche?

J'ajoute à cela tes réponses :

merci, ça ne marche pas

le programme est Acrobat Reader

... qui ne disent absolument rien. Ni ce qui ne fonctionne pas, ni sur ce que tu as tenté. Rien.

Pour finir, tu multiplies les sujets sur ce forum. Ok. ça fait des doublons, tant pis, tant que TU as tes réponses...

Mais. En multipliant ainsi les demandes, tu obtiens des réponses variées MAIS SURTOUT différentes.

Comme tu n'y connais rien, tu t'y perds, mélanges tout et fais n'imp'.

Ceci dit sans animosité aucune.

Je reviendrais vers toi uniquement si tu me transfères un fichier ou je vois que tu as tenté quelque chose en fonction de ce que je t'envoies ET si, dans le message que tu m'enverras alors, tu m'indiques les différents codes et tests effectués.

Sur ce, A++

je compen. je suis novice mais je ne comprend pas quelle chemin d'accès.

le lien hypertexte ou l'emplacement du fichier adobe reader dans Windows C. Car ce que je souhaite c'est de mettre le curseur dans une cellule de la colonne E et double cliquer afin d'imprimer celui-ci.

le lien hypertexte ou l'emplacement du fichier adobe reader dans Windows C

A ton avis. Même en étant novice. A quoi correspond ce chemin :

C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe

A ton lien hypertexte ou à l'emplacement du fichier "adbeacrobat.exe"?

---------------------------------------------------------------

Car ce que je souhaite c'est de mettre le curseur dans une cellule de la colonne E et double cliquer afin d'imprimer celui-ci.

ça, on l'aura compris...