XL 2013 Impression pdf bug vba

Fitgy · 6 Mai 2021

Bonjour à tous le forum,

J'ai un fichier sur lequel j'imprime en pdf dans le dossier voulu avec le nom voulu. Jusque là impeccable ma VBA marché nickel mais voilà j'ai fermé mon excel je le réouvre et ça ne fonctionne plus mais pooouurquooii j'ai beau tourner dans tout les sens je ne comprends pas ce qui ne lui plaît pas et encore plus du fait qu'elle marché avant...
Je vous met en jaune ce que le débogage me surligne.

Merci d'avance à ceux qui pourront m'aider
Ma VBA :

Sub ImpressionPDF()
Fichier = Range("F5") & ".pdf"
Dossier = "L:\Etude R&R\2021\"
Chemin = Dossier & Fichier

ActiveSheet.PageSetup.PrintArea = "$A$1:$R$45"
choix = MsgBox("Imprimer tout ?", vbQuestion + vbYesNoCancel + vbDefaultButton2, "Impression")
If choix = vbCancel Then Exit Sub
If choix = vbNo Then
' imprimer feuille
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin
ActiveSheet.PageSetup.PrintArea = ""
Else
' imprimer tout
Application.ScreenUpdating = False
savSelection = [F5]
For Each c In [F5]
[F5] = c.Value
[ActiveSheet.ExportAsFixedFormat Type:=xlsTypePDF, Filename:=Chemin
Next c
[F5] = savSelection
End If
ActiveSheet.PageSetup.PrintArea = ""
End Sub

Fitgy · 6 Mai 2021

Re Bonjour à tous,

Je viens à l'instant de trouver ce qui n'allait pas... Ce n'est pas de fermé et de rallumé qui pose problème ni le fait que la cellule soit fusionné simplement dans ma cellule F5 c'est une liste de déroulante de nom et certaine contienne des caractères interdit pour la sauvegarde du fichier comme des \ ou / par exemple.
J'ai dû faire mes essais sur des noms qui n'en avait pas et bloqué sur ceux qui en avait ce qui explique qu'elle ne fonctionné que de temps en temps...

Merci Kiki29 pour ce lien qui est très intéressant je vais étudier tes codes.
Merci à tous pour votre aide

Fitgy · 6 Mai 2021

Etoto à dit:
Et tu peux essayer quand ?

Dans 30 min je te dis si ça a marché

Compte Supprimé 979 · 6 Mai 2021

Re,

Vu, je pense que l'erreur est là

VB:

Type:=xlsTypePDF

A remplacer par

Code:

Type:=xlTypePDF

@+

Etoto · 6 Mai 2021

Fitgy à dit:
Dans 30 min je te dis si ça a marché

Prends ton temps, tu peux même me répondre dans 2 ans, dans le fond c'est toi qui a besoin d'aide, moi je suis juste dispo pour aider.

Fitgy · 6 Mai 2021

Etoto à dit:
Prends ton temps, tu peux même me répondre dans 2 ans, dans le fond c'est toi qui a besoin d'aide, moi je suis juste dispo pour aider.

Oui c'est vrai mais je ne veux pas trop abuser de votre gentillesse à tous

Fitgy · 6 Mai 2021

Bruno j'ai essayer de remplacer ce que tu m'as dit ça ne change rien,
Etoto, je viens d'essayer ta manip et pareil rien ne change.

J'ai essayé d'enlever le slash après 2021 dans mon chemin et chose étonnante ça marche il enregistre mais il écris 2021 comme nom d'enregistrement et le range dans le dossier avant celui voulu (2021) ça j'avoue ne pas comprendre du tout...

Etoto · 6 Mai 2021

Vraiment étrange

Fitgy · 6 Mai 2021

Oui comme tu dis... je vous met mon fichier peut être que vous verrez quelque chose que je ne vois pas ... J'ai dû le modifier notamment supprimer des choses que je ne peux pas envoyer.

kiki29 · 6 Mai 2021

Salut, l'enregistrement PDF n'est arrivé qu'avec Office 2007 SP2 d'abord sous forme de plug-in puis a été intégré en natif dans la suite Office.

Etoto · 6 Mai 2021

Ta cellule F5 est fusionnée c'est surement ça le problème

Fitgy · 6 Mai 2021

Etoto à dit:
Ta cellule F5 est fusionnée c'est surement ça le problème

Bien vue c'était tellement bête ça fatigue d'être passé à côté de ça....
Tu sais pourquoi ça ne peux pas fonctionner avec un cellule fusionné ?

Etoto · 6 Mai 2021

Probablement parce qu'elle est moitié F5 et moitié G5.

Fitgy · 6 Mai 2021

Etoto à dit:
Probablement parce qu'elle est moitié F5 et moitié G5.

ah bah non désolé j'ai fermé et réouvert ça ne remarche plus.... Je crois que je vais carrément essayer un autre code...
Kiki29 tu veux dire que ma version ne serait pas compatible pour réussir cette manip ?

kiki29 · 6 Mai 2021

Re, sur un fichier XLS ( version 2003 par exemple ) oui. il faut passer par PDFCreator ou autres

Va voir également ici pour l'emploi de la fonction NomFichierValide(sChaine As String) As Boolean

Fitgy · 6 Mai 2021

Je te remercie

kiki29 à dit:
Re, sur un fichier XLS ( version 2003 par exemple ) oui. il faut passer par PDFCreator ou autres

Va voir également ici pour l'emploi de la fonction NomFichierValide(sChaine As String) As Boolean

je vais regarder et je reviens vers toi

Fitgy · 6 Mai 2021

Re Bonjour à tous,

Je viens à l'instant de trouver ce qui n'allait pas... Ce n'est pas de fermé et de rallumé qui pose problème ni le fait que la cellule soit fusionné simplement dans ma cellule F5 c'est une liste de déroulante de nom et certaine contienne des caractères interdit pour la sauvegarde du fichier comme des \ ou / par exemple.
J'ai dû faire mes essais sur des noms qui n'en avait pas et bloqué sur ceux qui en avait ce qui explique qu'elle ne fonctionné que de temps en temps...

Merci Kiki29 pour ce lien qui est très intéressant je vais étudier tes codes.
Merci à tous pour votre aide

XL 2013 Impression pdf bug vba

Fitgy

XLDnaute Junior

Fitgy

Fitgy

XLDnaute Junior

Compte Supprimé 979

Guest

Etoto

XLDnaute Barbatruc

Fitgy

XLDnaute Junior

Fitgy

XLDnaute Junior

Etoto

XLDnaute Barbatruc

Fitgy

XLDnaute Junior

Pièces jointes

kiki29

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

Fitgy

XLDnaute Junior

Etoto

XLDnaute Barbatruc

Fitgy

XLDnaute Junior

kiki29

XLDnaute Barbatruc

Fitgy

XLDnaute Junior

Fitgy

XLDnaute Junior

Discussions similaires