Pb avec macro impression PDF

[Bernard-Louis]

Bonjour a toutes et tous

Je viens vers vous pour un problème d’impression sous PDF.
Cette macro me lance l’impression d’une centaine de fiches différentes a la suite :

Sub edition_total()


i = 2

For i = 2 To 100000

If Feuil5.Cells(i, 1) = "" Then
Exit For
End If

Cells(12, 70) = Feuil5.Cells(i, 1)
ActiveWindow.SelectedSheets.PrintOut
Application.Wait (Now + TimeValue("0:00:05"))

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"


Next i

End Sub

Le probleme est qu’a chaque fiche je dois confirmer le chemin du message « enregistrer sous »
J’ai l’imprimante « adobe pdf » par défaut et j’ai décocher les options d‘impression :
-afficher le fichier adobe pdf obtenu
-Demander le nom du fichier adobe pdf

Sur d’autres postes la macro fonctionne sans problème.
Quelqu’un a t il une solution a ce paramétrage ?

Merci d’avance.
Cordialement

 

[fred65200]

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

@+

 

[Bernard-Louis]

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

 

[fred65200]

Imprimante par défaut

Bonjour Bernard-Louis

le code qui suit t'aidera peut être

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

 

[JNP]

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

 

[Bernard-Louis]

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

 

[Compte Supprimé 979]

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)

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 😀

 

[Bernard-Louis]

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

 

[Compte Supprimé 979]

Re : Pb avec macro impression PDF

Re,

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

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

A+

 

[Bernard-Louis]

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

 

[Compte Supprimé 979]

Re : Pb avec macro impression PDF

Bonjour Bernard-Louis

Pour avoir un espace dans le nom :

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

Pour avoir un tiret :

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

Etc ... 😉

 

[Bernard-Louis]

Re : Pb avec macro impression PDF

Toujours fidele au poste BrunoM45!!

Je te remercie à nouveau et bonne jounée
Cordialement

 

[Compte Supprimé 979]

Re : Pb avec macro impression PDF

Toujours fidele au poste BrunoM45!!

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

Je te remercie à nouveau et bonne jounée

De rien et bonne journée à toi 😉

 

[kiki29]

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")
...