B
Bastien
Guest
Peut imprimer une feuille excel d'un classeur sans avoir à l'ouvrir a partir d'une macro d'un classeur actif.
Si oui comment?
Merci d'avance
Si oui comment?
Merci d'avance
B
Bastien
Guest
Vraiment personne peut m'aider ou alors c'est vraiment impossible ?
Bonjour a toutes et a tousMeteo 5° ciel dégagé pas de vent (region megeve)
Salut Bastien
Ecoute soit patient il y surement des personnes qui travail sur ton probleme, meme hier soir j'ai essayé plusieurs solutions.
N'oublie pas sur ce forum toutes et tous sont des bénévoles
Donc soit indulgent sur les temps de réponse
Au fait as tu essayé de ton coté
A+
B) Re a tous
Bastien
Il me semble que tu as trouvé ta réponse sur le forum ami VERITI
Pseudo GAGLETOR
C'est bien mais il faut en faire profiter les adeptes de ce forum
D'avance Merci
Bonne journée
Bastien
Il me semble que tu as trouvé ta réponse sur le forum ami VERITI
Pseudo GAGLETOR
C'est bien mais il faut en faire profiter les adeptes de ce forum
D'avance Merci
Bonne journée
B) Re a tous
Erreur de ma part
Ne tiens pas compte de cette réponse
A+
Erreur de ma part
Ne tiens pas compte de cette réponse
A+
B
bastien
Guest
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
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
Discussions similaires
- Résolu(e)
- Question
