Discussion :

[kaokenzo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[AbsolutAlex]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kaokenzo]

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

[AbsolutAlex]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kaokenzo]

Bonjour Alex,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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