Impression lien hypertexte sous excel via macro

Bonjour,

Je souhaite une aide au niveau d'un document excel
Via des formules , je récupere et compose un lien hypertexte sur une colonne prédéfinie dans ma feuille excel
j'en ai a peu pres une centaine
j'ai ajouté la macro suivante afin de pouvoir imprimer en un seul coup tous ces liens sur mon imprimante

Code:

---

1 2 3 4 5 6 7 8

Sub imprimer_Liensclasseurs() Dim Lien As Hyperlink   For Each Lien In ActiveSheet.Hyperlinks ExecuteFile Lien.Address, printfile Next Lien   End Sub

---

ça fonctionne a motié car ça me donne un apercu avant ! et surtout toujours l'apercu du 1er lien

Pouvez vous me dire comment enlever l'apercu avant impression sur cette macro ?
Ou y a-t-il plus simple a faire ... ? ce sont des liens jpg la plupart du temps
Merci grandement pour votre aide

Bonjour,

Dans ta fonction printfile, tu as surement une ligne xxx.PrintOut
Il faut rajouter après le PrintOut le paramètre

Code:

---

Preview:=False

---

Si ce n'est pas ça il faudrait que tu postes ta fonction printfile et ta fonctione ExecuteFile au cas ou.

Bonne journée.
Alex

Bonjour Alex et merci pour ton aide
Je débute dans les macros . J'ai en fait dans mon fichier uniquement ce code dans le macro ,rien d'autres
quand je le lance , si j'ai un lien en txt ça imprime direct , sauf qu'en jpg , j'ai la prévisu . Ou penses tu que je dois mettre la ligne que tu mentionnes ?
Merci d'avance

Le plus simple serait de changer le code utilisé. Si tu remplaces la ligne de code dans ta boucle For par les 3 là ça devrait fonctionner (je n'ai pas testé) :

Code:

---

1 2 3

Activesheet.Picture.Insert(Lien.Address).Select Selection.PrintOut Preview:=False Selection.delete

---

Bonjour Alex,

Je ne comprend pas trop comment structure ma macro avec tes informations

Code:

---

1 2 3 4 5 6 7 8

Sub imprimer_Liensclasseurs() Dim Lien As Hyperlink   ActiveSheet.Picture.Insert(Lien.Address).Select Selection.PrintOut Preview:=False Selection.Delete   End Sub

---

erreur 91
il me met : variable objet ou variable de bloc With non définie