Impression... pdf doc et xls

N_Christian

XLDnaute Occasionnel
Bonjour le forum,

J'ai enfin quelque chose qui marche avec mes formats de fichiers en tous genres... ( avec Excel 97 )

j'ai trouvé les trois formats les plus standards.. ( Merci Michel.. tu reconnaitras un peu de ton code )

je vous passe le code.. si vous pouvez essayer avec d'autres machines, je serais satisfait.. ou moins si ça ne marche pas..

Merci d'avance.
A+ Christian



Code:
'*******************************************************************
'Necessite d'activer la reference Microsoft Word xx.x Object Library
'*******************************************************************
'Dim WordApp As Word.Application
'Dim WordDoc As Word.document
'Dim LeNom As String

            ' la variable LeNom contient le chemin du fichier
            ' exemple LeNom = 'c:\\mes documents\\document.doc'
            
            'CHOIX DU PROGRAMME A OUVRIR
            
            'verifie si le document est un Acrobat
            If Right(FileItem, 4) = '.pdf' Then
            Shell 'C:\\Program Files\\Adobe\\Acrobat 5.0\\Reader\\AcroRd32.exe /p /h ' & LeNom, vbMinimizedFocus
            ' imprime le document /p pour print /h pour éviter la boite dialogue d'impression... par défaut
            ' Precision : pas besoin de fermer les pdf... ils ne restent pas ouvert !...
            ' seul Acrobat reste dans la barre de tache...? pas de solution..!
            DoEvents
            End If
            
            'verifie si le document est un Word
            If Right(FileItem, 4) = '.doc' Then
                Set WordApp = New Word.Application 'ouverture session Word
                WordApp.Visible = False
                Set WordDoc = WordApp.Documents.Open(LeNom) 'ouverture document Word
                WordDoc.PrintOut 'impression
                While WordApp.BackgroundPrintingStatus <> 0
                Wend ' Attente pour éviter le message d'erreur
                WordDoc.Close 'fermeture document
                WordApp.Quit ' fermeture session word
            End If

            'verifie si le document est un Excel
            If Right(FileItem, 4) = '.xls' Then
                Workbooks.Open FileName:=LeNom 'ouverture document
                ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'impression
                DoEvents
                ActiveWindow.Close 'fermeture document
            End If

Bon tests
 

Discussions similaires

Réponses
11
Affichages
2 K

Statistiques des forums

Discussions
314 450
Messages
2 109 721
Membres
110 551
dernier inscrit
Khyolyanna