XL 2013 Impression pdf bug vba

[Fitgy]

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]

Et tu peux essayer quand ?

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

 

[Compte Supprimé 979]

Re,

Vu, je pense que l'erreur est là

Type:=xlsTypePDF

A remplacer par

Type:=xlTypePDF

@+

 

[Etoto]

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]

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]

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]

Vraiment étrange

 

[Fitgy]

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]

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]

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

 

[Fitgy]

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]

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

 

[Fitgy]

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]

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]

Je te remercie

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]

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