Impression d'une feuille excel sous condition PDF
Fermé
pascal
-
22 janv. 2013 à 16:05
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 24 janv. 2013 à 09:24
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 24 janv. 2013 à 09:24
A voir également:
- Impression d'une feuille excel sous condition PDF
- Spouleur d'impression - Guide
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Liste déroulante excel - Guide
- Excel cellule couleur si condition texte - Guide
- Feuille de pointage excel - Télécharger - Tableur
1 réponse
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
23 janv. 2013 à 13:52
23 janv. 2013 à 13:52
Bonjour,
Par ou commencer?
Par ta question : Comment tester le nom de l'imprimante active, et si elle contient "pdf", ne pas imprimer. C'est cela?
Si oui, ce code devrait suffire :
Ensuite, ton code... n'est pas orthodoxe.
1- tu as deux fois, dans les tests initiaux :
2-
Inutile de sélectionner!!!
Donc, à remplacer par :
3-
à remplacer par :
4- syntaxe étrangère pour moi :
Je ne connais que : ActiveWorkBook
5-
etc.
Par ou commencer?
Par ta question : Comment tester le nom de l'imprimante active, et si elle contient "pdf", ne pas imprimer. C'est cela?
Si oui, ce code devrait suffire :
Dim Imprimante As String Imprimante = Application.ActivePrinter If InStr(UCase(Imprimante), "PDF") <> 0 Then MsgBox "Impossible d'imprimer sur ce poste", vbCritical Else ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If
Ensuite, ton code... n'est pas orthodoxe.
1- tu as deux fois, dans les tests initiaux :
ElseIf CboMoteur.Text = "" Then MsgBox "renseignez le Moteur a l'aide du menu déroulant", vbInformation, "champs obligatoire" CboMoteur.SetFocus
2-
Worksheets("T+general").Activate 'on choisi la ligne vide puis le n° de ligne Range("B65536").Select Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Select NumLigneVide = ActiveSheet.Columns(2).Find("").Row
Inutile de sélectionner!!!
Donc, à remplacer par :
NumLigneVide = Columns(2).Find("*", , , , xlByColumns, xlPrevious).Row + 1
3-
Range("a" & (ActiveCell.Row)).Select Range("a" & (ActiveCell.Row), "l" & (ActiveCell.Row)).Select Selection.Interior.ColorIndex = 48
à remplacer par :
Range("A" & NumLigneVide & ":I" & NumLigneVide).Interior.ColorIndex = 48
4- syntaxe étrangère pour moi :
WorkbookActivate.Save
Je ne connais que : ActiveWorkBook
5-
Set WS1 = WB1.Worksheets(1)te sers à quoi puisqu'après tu utilises Sheets(1) au lieu de WS1...
etc.
24 janv. 2013 à 07:29
merci encore
j aurai une question supplémentaire
s aurai tu faire une condition si lors de l ouverture de mon fichier qui mette un timer si le fichier s'ouvre en lecture seule ?
24 janv. 2013 à 09:24
Teste quelque chose comme ceci :