Aide pour un liens d'impression spécifique!!!

[gazeaupierre]

Bonjour ,

j 'aurais besoin d'aide je me tourne donc vers vous!!
je suis actuellement à la recherche d'un liens d'impression dans excel qui pourrait me permettre d'imprimer un document (ici word). En essayant d'être plus clair il me faudrait un lien qui lance l'impresion directement sans ouvrir la page. (je pense qu'il faut que je trouve une macro mais ne m'y connaissant pas trop je me tourne vers vous pour le petite formule)


Pour ceux qui sont très fort !! en +, un peu dans le même thème, de ce service est ce que vous savez si il est possible de réaliser une sorte de QCM parexemple et de mettre un liens sur les endroits cocher et lancer l'impression de tous les docs en même temps (que ceux sélectionner)

merci d'avance cordialement!!!

pour liens d'impression (s'est n'importe un bouton pourais être pas mal "mais sa marche comment)

pour toute réponse veuillez me considéré comme un abruti (lol) novice dc explication pour casiment toute la demarche

cordialement

 

[Staple1600]

Re : Aide pour un liens d'impression spécifique!!!

Bonjour

Qu'appeles-tu un lien d'impression?

un lien hypertexte?

Un bouton (commandbutton)?

 

[Staple1600]

Re : Aide pour un liens d'impression spécifique!!!

Re

Pour l'autre question

https://www.excel-downloads.com/threads/calcul-des-resultats-dun-qcm.29242/

 

[Staple1600]

Re : Aide pour un liens d'impression spécifique!!!

Re

Private Sub PrintDocWord(sDoc As String)
'AUTEUR: SilkyRoad
'SOURCE:http://vb.developpez.com/faq/?page=word
    Dim objWord As Word.Application
    Dim docWord As Word.Document
    Dim Fichier As String

    Set objWord = CreateObject("Word.Application")    '-- ouvrir une session Word
    objWord.Visible = False    '-- masquer l'application Word
    Set docWord = objWord.Documents.Open(sDoc)    '-- ouvrir le document Word

    docWord.PrintOut    '-- imprimer le document

    docWord.Close    '-- fermer le document Word
    objWord.Quit    '-- fermer la session Word
    Set docWord = Nothing    '-- détruire l'objet Document
    Set objWord = Nothing    '-- détruire l'objet Word
End Sub

 

[gazeaupierre]

Re : Aide pour un liens d'impression spécifique!!!

Merci pour vos réponse !!! je vais regarder ca!!

pour le liens d'impression s'est pour avoir un liens comme les liens hypertexte mais au lieu d'ouvrir la page s'est pour imprimer directement!!

 

[Staple1600]

Re : Aide pour un liens d'impression spécifique!!!

Bonsoir


Une autre approche

avec un exemple

http://jacxl.free.fr/cours_xl/vba/hypermacro.zip

 

[gazeaupierre]

Re : Aide pour un liens d'impression spécifique!!!

Desoler de vous rederanger mais je n arrive pas à faire fonctionner les information supérieur (je dois mal mi prendre pour la macros et pour le liens sa marche pas)

en ce qui concerne cette demande je souhaiterait en plus rajouter quelque chose il faudrais que l'adresse du liens (pour impression adresse du doc word) ne soit pas modifié même si celui-ci est déplacé (ensemble des docs dans un dossier mais ensemble succeptible de ce déplacer)

pour les autres réponse pouver vous faire simple (genre juste un copier coller) car pour un abruti comme moi même ca être compliquer lol!!

merci d'avance

 

[Staple1600]

Re : Aide pour un liens d'impression spécifique!!!

Bonjour


Peux-tu joindre un fichier exemple (expurgé de données confidentielles )?

 

[gazeaupierre]

Re : Aide pour un liens d'impression spécifique!!!

rebonjour,
voici donc le type de doc que je veus créer en gros (finition a revoir)

merci de ton aide

 

[Staple1600]

Re : Aide pour un liens d'impression spécifique!!!

Re


Ok je vois mieux ce que tu veux obtenir

Le temps d'y travailler et je reviens

D'ici là tu auras eu surement d'autres réponses

Alors patience

 

[Staple1600]

Re : Aide pour un liens d'impression spécifique!!!

Re


En attendant tu peux regarder cet exemple
https://www.excel-downloads.com/threads/macro-excel-vers-word.21354/

 

[Staple1600]

Re : Aide pour un liens d'impression spécifique!!!

Re

Dans cette exemple

on liste les TOUS les fichiers du répertoire C:\TEMP

Il faudra donc adapter

voir exemple

Maintenant il reste à s'occuper de l'impression...

 

[Staple1600]

Re : Aide pour un liens d'impression spécifique!!!

Re

Ici on imprime des fichiers Excel

(mais ca peut nous interesser...)

Sub PrintAllWorkbooksInFolder(TargetFolder As String, FileFilter As String)
' prints all workbooks in a folder that matches the FileFilter
' example: PrintAllWorkbooksInFolder "C:\FolderName", "*.xls"
' example: PrintAllWorkbooksInFolder "C:\FolderName", "Bud*.xls"
Dim fn As String, sht As Variant
    Application.ScreenUpdating = False
    If Right(TargetFolder, 1) <> Application.PathSeparator Then
        TargetFolder = TargetFolder & Application.PathSeparator
    End If
    If FileFilter = "" Then FileFilter = "*.xls"
    fn = Dir(TargetFolder & FileFilter) ' the first file name in the folder
    While Len(fn) > 0
        If fn <> ThisWorkbook.Name Then
            Application.StatusBar = "Printing " & fn & "..."
            Workbooks.Open TargetFolder & fn
            ActiveWorkbook.PrintOut ' prints all sheets in the workbook

            ' or print each separate sheet
'            For Each sht In ActiveWorkbook.Sheets
'                sht.PrintOut
'            Next sht

            ' print a specific sheet or chart
'            Worksheets(1).PrintOut ' prints the first worksheet in the workbook
'            Charts(2).PrintOut ' prints the second chart sheet in the workbook

            ' print all sheets of a specific sheet type
'            For Each sht In ActiveWorkbook.Sheets
'                Debug.Print ActiveWorkbook.Name & " " & _
                    sht.Name & " is of type " & TypeName(sht) ' can be removed...
'                If TypeName(sht) = "Worksheet" Then
'                    sht.PrintOut ' print worksheets
'                End If
'                If TypeName(sht) = "Chart" Then
'                    sht.PrintOut ' print charts
'                End If
'            Next sht
            ActiveWorkbook.Close False 
            ' close the workbook without saving any changes
        End If
        fn = Dir ' the next file name in the folder
    Wend
    Application.StatusBar = False
End Sub

 

[Staple1600]

Re : Aide pour un liens d'impression spécifique!!!

Re

laissons un moment l'impression

pour retourner à l'unique sélection de fichier Word

Voila de quoi nous aider

Dim oFS As Office.FileSearch
Dim i As Integer
Set oFS=Application.FileSearch
With OFS
.NewSearch
.FileType=msoFileTypeWordDocuments
.LookIn="C:\TEMP"
.Execute
For i=1 to .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
End With

 

[Staple1600]

Re : Aide pour un liens d'impression spécifique!!!

Re


Alors cette fois on approche

(Merci à Planet PDF)

Option Explicit ' Force variable declaration 
' Author : Planet PDF
' Date : 11 March 1998 
' Description: PrintAllWordDocsInDir 
' This vb method uses prints all the word docs 
' in a folder. 
' This method / function should be extended to suit the requirements 
' of an organisation 
Sub PrintAllWord() 

	Dim strFileName As String 
	Dim strPath As String 

	strPath = "c:\worddocstoprint" 
            'Ici tu dois mettre le nom du répertoire adéquat
	' Get the first word doc in the directory 
	strFileName = Dir(strPath + "*.doc", vbNormal) 
	Do While strFileName <> "" 

		Documents.Open FileName:=strPath + strFileName 
		Documents(strFileName).PrintOut 
		Documents.Close 
		' Get the next word doc in the directory 
		strFileName = Dir 
	Loop 
End Sub

Seulement avec cette macro on imprime tous les fichiers WORD du répertoire renseigné

et on ne peut pas les sélectionner séparément

Mais avec tout ca tu as de quoi faire
(adaption selon tes desiredatas)

Et je vais laisser un peu de place à d'autres contributions du forum

(ca fait drole de ne voir que son pseudo à la queue-leu-leu sans d'autres noms d'intervenants)