PDF EXcel....Excel PDF....

[kinkalero]

Bonjour à tous!!!
J'ai lu beaucoup de poste pour ouvrir un fichier Excel à partir du nom de ma cellule, mais moi je souhaiterais ouvrir un .PDF et je beug un peu....
Par Ex si g le Texte M0704280 en A280, en double-cliquant dessus, sa m'ouvre mon PDF qui est dans un repertoire spécifique, M0704280.pdf.

Merci à tous et au plaisir de vous lire

 

[Compte Supprimé 979]

Re : PDF EXcel....Excel PDF....

Salut Kinkalero,

Tu peux simplement insérer un lien Hypertext sur ton texte.
Voilà une macro que j'utilise pour mes factures, à adapter

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim NumFac As String, VPath As String, NomFac As String
  ' Vérifie que la saisie se fait au niveau de la colonne NumFac
  If Target.Count > 1 Then Exit Sub
  ' Si la valeur à été supprimée
  If Target.Value = "" Then Exit Sub
  ' Récupère le numéro de facture
  NumFac = Target.Value
  VPath = "U:\Factures"
  ' Récupère le nom entier de la facture
  ' Un facture peut s'appeler : F2007001 Client Machin Sit1.xls
  NomFac = Dir(VPath & "\" & NumFac & "*")
  If NomFac <> "" Then
    ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:=VPath & "\" & NomFac, TextToDisplay:=NumFac
  Else
      MsgBox "Impossible de trouver la facture : " & NumFac & vbCrLf _
          & "A l'emplacement : " & VPath, vbInformation, "PROBLEME ..."
  End If  
End Sub

Espérant que cela te convienne

A+

 

[kinkalero]

Re : PDF EXcel....Excel PDF....

Nikle chrome super sa fonctionne

Merci^^