Lien hypertext permettant impression directe
Résolu/Fermé
c135078
Messages postés
48
Date d'inscription
lundi 12 novembre 2007
Statut
Membre
Dernière intervention
5 mai 2009
-
19 janv. 2008 à 16:36
c135078 Messages postés 48 Date d'inscription lundi 12 novembre 2007 Statut Membre Dernière intervention 5 mai 2009 - 20 janv. 2008 à 14:32
c135078 Messages postés 48 Date d'inscription lundi 12 novembre 2007 Statut Membre Dernière intervention 5 mai 2009 - 20 janv. 2008 à 14:32
A voir également:
- Lien hypertext permettant impression directe
- Spouleur d'impression - Guide
- Lien url - Guide
- Verifier un lien - Guide
- Créer un lien pour partager des photos - Guide
- L'en-tête du document comporte une information qui n’apparaît pas à l'impression car elle est de couleur blanche. de quelle information s'agit-il ? ✓ - Forum Bureautique
2 réponses
c135078
Messages postés
48
Date d'inscription
lundi 12 novembre 2007
Statut
Membre
Dernière intervention
5 mai 2009
1
20 janv. 2008 à 14:30
20 janv. 2008 à 14:30
merci j'ai trouvé
c135078
Messages postés
48
Date d'inscription
lundi 12 novembre 2007
Statut
Membre
Dernière intervention
5 mai 2009
1
20 janv. 2008 à 14:32
20 janv. 2008 à 14:32
Private Sub CommandButton6_Click()
Dim Fichier As String
Dim App As Object
Dim Book As Workbook
Dim Sheet As Worksheet
Set App = CreateObject("Excel.Application")
App.DisplayAlerts = False
Set Book = App.Workbooks.Open("chemin d'acces.xls")
Set Sheet = Book.Sheets("non de la feuille")
Sheet.PrintOut Copies:=1, Preview:=False, Collate:=False
Set Book = Nothing
Set Sheet = Nothing
App.Quit
End Sub
Dim Fichier As String
Dim App As Object
Dim Book As Workbook
Dim Sheet As Worksheet
Set App = CreateObject("Excel.Application")
App.DisplayAlerts = False
Set Book = App.Workbooks.Open("chemin d'acces.xls")
Set Sheet = Book.Sheets("non de la feuille")
Sheet.PrintOut Copies:=1, Preview:=False, Collate:=False
Set Book = Nothing
Set Sheet = Nothing
App.Quit
End Sub
