Pas de problèmeet pardon encore pour mon 2ième post
J'ai surement trouvé un début de solution mais je tiens bcp à vos reponses et à vos critiques.
Je pense qu'il faut lancer une application Excel en tache de fond defond de windows:
Dim Fichier As String
Dim xlApp As Object
Dim xlBook As Workbook
Dim xlSheet As Worksheet
Fichier = 'C:\\Documents and Settings\\...\\FichierFerme.xls'
'Ouverture du projet en tache de fond avec la feuille 'Silo' sélectionnée
Set xlApp = CreateObject('Excel.Application')
Set xlBook = xlApp.Workbooks.Open(Fichier)
Set xlSheet = xlBook.Sheets('Silo')
'Je remplie ma feuille ferme
xlSheet.Range('A1') = 'Essai'
'Impression de la feuille 'Silo' sur l'imprimante par default
xlSheet.PrintOut Copies:=1, Preview:=False, Collate:=False
'enlève les message d'alerte de sauvegarde
xlApp.DisplayAlerts = False
'sauvegarde du fichier Excel
xlApp.ActiveWorkbook.SaveAs (Fichier)
xlBook.Close 'fermeture du fichier Excel
Set xlBook = Nothing
Set xlSheet = Nothing
xlApp.Quit 'fermeture de l'application
Tout ca fonctionne tres bien mais il me reste un petit problème a résoudre encore.
Quand je lance la commande d'impression, on voit s'afficher le nombre de page qui s'imprime ( 1/2.....)
Comment peut on éviter cela
Merci d'avance
PS: Si d'autres personnes ont des idées sur le sujet, je suis preneur