Pb avec macro impression PDF

fred65200

XLDnaute Impliqué

• 8 Octobre 2007

• #2

Re : Pb avec macro impression PDF

bonjour,
a tout hasard essaie de mettre
Application.displayalerts = false
en debut de code

passe à true en fin de code

@+

 

Vote positif 0 Vote négatif

B

Bernard-Louis

XLDnaute Occasionnel

• 8 Octobre 2007

• #3

Re : Pb avec macro impression PDF

Je te remercie fred65200,
A priori j'ai trouve la parade.
En plus de mettre l'imprimante par defaut, avant l'impression il faut aller dans fichier, imprimer et reselectionner l'imprimante Adobe pdf, option faire OK, puis lancer la macro et les fiches sortent en PDF.
Cela ne se passe que sur mon poste.
La cause reste un mystere. Demain j'essaie ta solution.
Merci pour ton aide.
Cordialement

 

Vote positif 0 Vote négatif

fred65200

XLDnaute Impliqué

• 8 Octobre 2007

• #4

Imprimante par défaut

Bonjour Bernard-Louis

le code qui suit t'aidera peut être

Code:

Sub ChangerImprimanteParDefaut()
'Tu peux aussi mettre
'Application.ActivePrinter = "Adobe PDF sur Ne01:" 'Je n'ai pas Adobe, vérifie

Dim ImprDepart As String
Dim MonChoixImpr As String

'on récuoère le nom de l'imprimante par défaut
ImprDepart = Application.ActivePrinter
'on affiche la boite de dialogue de choix d'imprimante avec en argument celle que tu veux
'le problème est que le dernier chiffre de Ne01 est différent d'un poste à l'autre
Application.Dialogs(xlDialogPrinterSetup).Show "Microsoft XPS Document Writer sur Ne01:"
'on affecte sa valeur si besoin
MonChoixImpr = Application.ActivePrinter
'ta routine ici
'Application.ActiveWorkbook.PrintOut

'on remet l'imprimante par défaut comme à l'origine
Application.ActivePrinter = ImprDepart
End Sub
Sub ListerImprimantes()
Debug.Print Application.ActivePrinter
End Sub

cordialement
fred65200

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 8 Octobre 2007

• #5

Re : Pb avec macro impression PDF

Bonjour,
Je sais que j'ai rencontré un problème avec l'impression différenciée entre plusieurs postes. Le problème venait que chaque imprimante déclarée prenait un numéro Ne01 à Ne10 suivant le poste. J'ai résolu le problème par une affectation en "on error resume" et une boucle sur les Ne01 à Ne10 pour affecter l'imprimante pdf au bon réseau. Ne pas oublier d'annuler l'absence de gestion d'erreur...
Bon courage

 

Vote positif 0 Vote négatif

B

Bernard-Louis

XLDnaute Occasionnel

• 24 Octobre 2007

• #6

Re : Pb avec macro impression PDF

Bonsoir a toutes et tous,
Je remonte ce poste pour un probleme de modification de macro.

La macro tourne tres bien mais je désire rajouter dans le libelle du PDF en plus de la valeur de la cellule "Cells(12 ,70)" la valeur de la cellule "K4"

Name "C:\Documents and Settings\" & Application.UserName & "\Mes Documents\FICHE.pdf" As "C:\Documents and Settings\" & Application.UserName & "\Mes Documents\FICHES FONDS\0" & Cells(12, 70) & ".pdf"
J'ai essayé des modifs sur la derniere partie de la ligne ci dessus, mais en vain.
Quelqu'un pourrait il m'aider.
Avec mes remerciements.
Cordialement

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 24 Octobre 2007

• #7

Re : Pb avec macro impression PDF

Salut Bernard-Louis,

Tout d'abord, pourquoi mettre : Cells(12, 70) puisque tu n'a pas d'incrément !?
Il suffit de mettre : Range("BR12"), beaucoup plus explicite à mon avis 😉

Ce qui peut donner (à mettre sur une seule ligne)

Code:

Name "C:\Documents and Settings\" & Application.UserName 
& "\Mes Documents\FICHE.pdf" As "C:\Documents and Settings\" 
& Application.UserName & "\Mes Documents\FICHES FONDS\0" 
& Range("BR12") & Range("K4") & ".pdf"

Essaye ça 😀

 

Vote positif 0 Vote négatif

B

Bernard-Louis

XLDnaute Occasionnel

• 24 Octobre 2007

• #8

Re : Pb avec macro impression PDF

Merci Bruno45,

Je fais les essais demain matin au bureau, et je te tiens au courant.
Une petite question, est ce que cela pose un probleme si ce sont des cellules fusionnées ?
Merci encore et bonne soirée.
Cordialement

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 24 Octobre 2007

• #9

Re : Pb avec macro impression PDF

Re,

Une petite question, est ce que cela pose un probleme si ce sont des cellules fusionnées ?

Cliquez pour agrandir...

Ca peux effectivement posé certains problèmes, mais en faisant référence à la première cellule, pas de souci

A+

 

Vote positif 0 Vote négatif

B

Bernard-Louis

XLDnaute Occasionnel

• 25 Octobre 2007

• #10

Re : Pb avec macro impression PDF

Bonjour a toutes et tous,

Je te remercie BrunoM45. C'est impeccable.
Une derniere question : Que faut il rajouter pour avoir "un espace" ou "un tiret" lors de l'impression entre Range("BR12") et Range("K4") ?


Name "C:\Documents and Settings\" & Application.UserName
& "\Mes Documents\FICHE.pdf" As "C:\Documents and Settings\"
& Application.UserName & "\Mes Documents\FICHES FONDS\0"
& Range("BR12") & Range("K4") & ".pdf"

Merci pour votre aide.
Cordialement

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 25 Octobre 2007

• #11

Re : Pb avec macro impression PDF

Bonjour Bernard-Louis

Pour avoir un espace dans le nom :

Code:

Range("BR12") & " " & Range("K4")

Pour avoir un tiret :

Code:

Range("BR12") & "-" & Range("K4")

Etc ... 😉

 

Vote positif 0 Vote négatif

B

Bernard-Louis

XLDnaute Occasionnel

• 25 Octobre 2007

• #12

Re : Pb avec macro impression PDF

Toujours fidele au poste BrunoM45!!

Je te remercie à nouveau et bonne jounée
Cordialement

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 25 Octobre 2007

• #13

Re : Pb avec macro impression PDF

Bernard-Louis à dit:

Toujours fidele au poste BrunoM45!!

Cliquez pour agrandir...

Pas toujours, mais quand je peux, je suis là, comme d'autres sur ce fantastique forum... 😛

Je te remercie à nouveau et bonne jounée

Cliquez pour agrandir...

De rien et bonne journée à toi 😉

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 25 Octobre 2007

• #14

Re : Pb avec macro impression PDF

To Bernard Louis : Attention à la confusion entre Application.UserName (qui correspond au Menu Excel ? | A Propos de Microsoft Excel License d'utilsation accordée à ...) qui n'a rien à voir avec le UserName de Login :
...
Dim sUserName As String
sUserName = Environ("USERNAME")
...

 

Dernière édition: 25 Octobre 2007

Vote positif 0 Vote négatif