Impression qui ne fonctionne pas avec la fonction LIEN_HYPERTEXTE

Question

Voici mon problème : J'ai un fichier Excel dans lequel j'ai une liste de fichiers que je souhaite imprimer. En faisant une petite recherche, je me suis inspiré d'un bout de code pour imprimer des liens hypertextes (créés à partir d'un emplacement réseau unique et du nom des fichiers) et tout allait bien jusque là (je créais le lien hypertexte en utilisant le menu Excel "lien hypertexte" de l'onglet "insertion"). Seulement voilà, j'ai voulu automatiser la création de ces liens hypertextes en utilisant une formule du type LIEN_HYPERTEXTE(CONCATENER("chemin_de_stockage";cellule où est stockée le nom du fichier;".pdf");"blabla"). Et là, c'est le drame, le lien hypertexte est bien créé (et il fonctionne si je clique dessus par exemple) mais ma fonction d'impression ne fonctionne plus, elle. La fonction en question est ShellExecute 0, print, fileName, vbNullString, "", SW_SHOWNORMAL (que je ne maîtrise pas réellement...). D'ailleurs, vous l'aurez peut être compris, je suis plutôt débutant en VBA. Si quelqu'un a une idée, je suis preneur, vous l'aurez compris... :) En vous remerciant par avance...

Xmenpl · Answer

Bonjour, Tu ne donnes pas assez d'informations ni de fichier pour que l'on puisse t'aider.

Tu parles de liens hypertextes ---> un lien ne sert qu'à ouvrir un fichier il ne pourra pas exécuter une commande en plus.

De quelle manière penses tu lancer ta macro ShellExecute 0, print, fileName, vbNullString, "", SW_SHOWNORMAL ?

Un bouton ? un lancement manuel de la macro ? ...…

Brefs on a plus de questions de réponses à apporter pour le moment.

Xmenpl · Answer

Ce n'est sans doute pas le problème mais cette délcaration est en rouge à l'ouverture de ton fichier :

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long

Il me semble que l'on doit mettre les deux versions possibles :

#If VBA7 Then
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ 
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#Else
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ 
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If

Je regarde pour le reste.

Xmenpl · Answer

Effectivement ouvrir un lien hypertexte par vba créé par excel et ouvrir un lien hypertexte créé par formule ce n'est pas la même méthode en vba.

Ci-joint : un petit fichier qui permet d'ouvrir plusieurs pdf en même temps en indiquant à partir de quelles lignes on souhaite ouvrir.

Tu pourras voir que le code des boutons : "Ouvrir liens hypertexte de la cellule" et "Ouvrir liens hypertexte Formule" n'est pas le même.

27test1-ouverture-pdf-multi.xlsm (23.34 Ko)

Tu peux sans doute utiliser les deux méthodes dans deux macros différentes est faire un test sur la cellule

dans le style :

Dim c As Range, f$, n%
For Each c In Selection
  f = c.Formula
  If f Like "=HYPERLINK(*" Then

macro1
Else
macro2