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

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

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

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

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