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

 

[cp4]

Bonjour,

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

Bonne journée.

 

[fanch55]

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]

Bonjour cp4,

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

 

[Fitgy]

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]

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]

Bonjour Etoto,

Toujours la même ligne

 

[Etoto]

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]

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]

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]

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]

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]

Bonjour le fil,

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

Qu'elle est la valeur dans la cellule F5 ?

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

@+

 

[Fitgy]

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]

Je vais essayer Etoto

Et tu peux essayer quand ?