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

cp4 · 6 Mai 2021

Bonjour,

Retire le caractère [ qui se trouve au début de la ligne coloriée.

Bonne journée.

fanch55 · 6 Mai 2021

Bonjour, il semblerait qu'un crochet ouvert se soit glissé en début de la ligne :
[ActiveSheet.ExportAsFixedFormat Type:=xlsTypePDF, Filename:=Chemin

Sinon ce code :

For Each c In [F5]

[F5] = c.Value
ActiveSheet.ExportAsFixedFormat Type:=xlsTypePDF, Filename:=Chemin
Next c

ne me semble pas utile ou approprié car le fichier restant le même est écrasé à chaque itération

Fitgy · 6 Mai 2021

Bonjour cp4,

Caractère retiré et ça ne fontionne toujours pas malheureusement

Fitgy · 6 Mai 2021

Bonjour fanch55,

Oui effectivement mais celui-ci enlevé ma macro ne fonctionne toujours pas

Sub ImpressionPDF()

ActiveSheet.Unprotect "0204"

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 = ""

ActiveSheet.Protect "0204", True, True, True

End Sub

Etoto · 6 Mai 2021

Fitgy à dit:
Bonjour fanch55,

Oui effectivement mais celui-ci enlevé ma macro ne fonctionne toujours pas

Bonjour,

Et cette fois-ci c'est quoi qui est en surbrillance ?

Fitgy · 6 Mai 2021

Bonjour Etoto,

Toujours la même ligne

Etoto · 6 Mai 2021

Fitgy à dit:
Bonjour Etoto,

Toujours la même ligne

Bizarre, je ne suis pas un expert en VBA mais ta ligne à l'aire d'être bonne aussi avec ton Chemin. Après est-ce que le chemin doit être considérer comme un string c'est peut-être cela le problème.

Fitgy · 6 Mai 2021

Etoto à dit:
Bizarre je suis pas un expert en VBA mais ta ligne à l'aire d'être bonne aussi avec ton Chemin.

C'est ce que je me suis dit et pourquoi il fonctionnait il y a 2h je ferme et au retours ça ne fonctionne plus alors que je n'ai rien touché Je vous dis pas la présentation à mon chef a été comique

Etoto · 6 Mai 2021

Alors si cela fonctionnait cela peu être que pendant ce moment (entre y'a deux heures et maintenant) Tu as peut-être modifié un dossier ou quelque chose qui aurait put modifier le chemin, parce que je croit que le problème vient du chemin.

Fitgy · 6 Mai 2021

Bah non mon chemin n'a pas bougé il est correcte je n'ai même pas touché à l'ordinateur pendant ce petit laps de temps
On m'a fait protégé la page par un code, je viens de me dire ça peux venir de là ? j'ai donc rajouté à ma VBA ce qu'il faut pour qu'elle fonctionne malgré la protection mais non ça ne fonctionne toujours pas :/

Sub ImpressionPDF()

ActiveSheet.Unprotect "0204"

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 = ""

ActiveSheet.Protect "0204", True, True, True

End Sub

Etoto · 6 Mai 2021

Essaye de copier ton fichier et déprotège-le pour savoir si cela fonctionne sans la protection, comme ça on connaitra l'origine du problème.

Compte Supprimé 979 · 6 Mai 2021

Bonjour le fil,

Il ne faut pas oublier la base avant d'aller plus loin

Qu'elle est la valeur dans la cellule F5 ?

VB:

Fichier = Range("F5") & ".pdf"

@+

Fitgy · 6 Mai 2021

Je vais essayer Etoto,
Bonjour BrunoM45,

Dans F5 il y a une liste deroulante avec le nom de l'appareil étudier par exemple : clé dynamométrique

Etoto · 6 Mai 2021

Fitgy à dit:
Je vais essayer Etoto

Et tu peux essayer quand ?

XL 2013 Impression pdf bug vba

Fitgy

XLDnaute Junior

Fitgy

cp4

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

Fitgy

XLDnaute Junior

Fitgy

XLDnaute Junior

Etoto

XLDnaute Barbatruc

Fitgy

XLDnaute Junior

Etoto

XLDnaute Barbatruc

Fitgy

XLDnaute Junior

Etoto

XLDnaute Barbatruc

Fitgy

XLDnaute Junior

Etoto

XLDnaute Barbatruc

Compte Supprimé 979

Guest

Fitgy

XLDnaute Junior

Etoto

XLDnaute Barbatruc

Discussions similaires