Bonjour,
J'ai un certain nombre de documents WORD 2000 ou je dois imprimer uniquement la 1ère et la dernière page sachant que le nombre de pages de chaque document est différent. Je suppose qu'une bonne macro fera l'affaire.... J'ai besoin de votre aide, répondez-moi vite ça urge !!!!!! D'avance merci pour vos conseils et bonne journée. Bien cordialement.

Hello
 
Tes documents sont tous dans le meme dossier ?

Hello,
 
oui

J'ai une macro mais elle marche pas bien et la personne qui m'a aidé n'est pas là cette semaien
 
Public n As Variant
Public pages As Variant
Public rep As String
Public fichier As String
 
Sub Liste_doc()
 
   
   ' -----------------------------------
   ' récupération du répertoire en cours
   ' -----------------------------------
   
   rep = ActiveDocument.Path
   rep = rep & "\"
 
     
   
' La fonction Dir sert à renvoyer tous les noms de fichier dotés de l'extension « .doc ».
 
   fichier = Dir(rep & "*.DOC" )
 
   
  While fichier <> ""
   
       ' -----------------------------
      ' imprssion du fichier
       ' -----------------------------
     
    Call imp_chorus(fichier)
   
       ' -----------------
       ' obtenir le suivant
       ' -----------------
   fichier = Dir
 
 Wend
   
   
End Sub
 
 
Sub imp_chorus(doc)
 
 
' -----------------------------------
' Ouverture du fichier en cours
' -----------------------------------
 
Documents.Open FileName:=rep & doc, ReadOnly:=True
 
n = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
 
' -----------------------------------
' fabrication de la chaine à imprimer
' -----------------------------------
 
n = "1" & ";" & n
 
' -------------------------------------------
' impression dsla 1ère et nième pages du doc
' -------------------------------------------
 
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
        wdPrintDocumentContent, Copies:=1, pages:=n, PageType:= _
        wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
        PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
 
' -----------------------------------
' Fermeture du fichier en cours
' -----------------------------------
 
ActiveDocument.ActiveWindow.Close SaveChanges:=wdDoNotSaveChanges
 
 
End Sub
 
 
 
 
Sub MyPrint()
Dim sCurrentPrinter As String
 
sCurrentPrinter = ActivePrinter
ActivePrinter = "mettre ici le nom de l'imprimante"
Application.PrintOut FileName:=""
ActivePrinter = sCurrentPrinter
 
End Sub