XL 2010 SOS enregistrement en PDF ne fonctionne plus

[superbog]

Bonsoir,

Je ne sais plus que faire, j'ai une macro qui fonctionne depuis des lustres pour enregistrer une feuille en PDF. Je l'ai recopié dans un nouveau fichier, en changeant juste le chemin. A la première utilisation elle a parfaitement fonctionné et là elle ne veut plus.

Lorsque je lance la macro, j'ai une fenêtre erreur d’exécution

j'ai vérifié le pdf n'existe pas et n'est donc pas ouvert.

voici la partie de la macro qui semble ne pas fonctionner (fichier joint)

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=_"C:\Users\BAB\DX\GESTION MAMAN\QUITTANCES\" & nomNewClasseur, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, from:=1, To:=1, OpenAfterPublish:=True

merci d'avance de votre aide​

 

[superbog]

Bonsoir à tous

Suggestion en passant
Ta session Windows est ouverte sous quel nom utilisateur ? BB?
Ou autre chose?

Ce dossier existe bien ?
C:\Users\BB\DX\GESTION MAMAN\QUITTANCES

Tu as les droits d'écriture sur le lecteur C?

ma session windows est sous BB et le dossier existe, et je suis administrateur

 

[superbog]

Bonjour à tous,
Salut l'Agrafe,

Exact... Pas lu.

A+ à tous

c'est un vrai casse tête chinois, je ne comprends pas
cette macro fonctionne mot à mot dans un autre fichier excel ...

grrrrr

 

[Staple1600]

Re à tous

superbog
Tu disais

j'ai mis en oeuvre mais il y a l'erreur suivante

Tu peux publier le code VBA tel que tu l'as mis en oeuvre?

 

[Shakki]

Bonjour,

Beaucoup l'ont dit, c'est les / qui posent problème (et pas les \). D'ailleurs, je ne comprends pas comment ça a pu marcher avant...

La solution de JCGL (format dd-mm-yyyy) fonctionne parfaitement. Tu devrais essayer.

A+

 

[Staple1600]

Re à tous

Ah bah oui, j'aurai du ouvrir la PJ avant de l'ouvrir

Sub a()
nomNewClasseur = Range("A12") & "quittance -" & Range("C4") & ".pdf"
MsgBox nomNewClasseur
End Sub

renvoie cette string : RMquittance -01/05/2016.pdf

mea culpa

mais dans ce cas il y a un nouveau mystère

cette macro fonctionne mot à mot dans un autre fichier excel ...

Sauf ci C4 contient ce texte "mai 2016" et pas une date.

 

[JCGL]

Bonjour à tous,

c'est un vrai casse tête chinois, je ne comprends pas
cette macro fonctionne mot à mot dans un autre fichier excel ...
grrrrr

Voir le message #13...

A+ à tous

 

[Staple1600]

Re

JCGL
Tu as vu que je me suis meaculpé

Mais ça n'explique pas pourquoi le code Dranreb ne fonctionnait pas chez superbog puisque là il n'y avait pas de /?

Et comment expliquer

Je ne sais plus que faire, j'ai une macro qui fonctionne depuis des lustres pour enregistrer une feuille en PDF

Sans doute que depuis des lustres il n'y avait pas de date en C4, jusqu'au jour où...

 

[superbog]

Re à tous

Ah bah oui, j'aurai du ouvrir la PJ avant de l'ouvrir

Sub a()
nomNewClasseur = Range("A12") & "quittance -" & Range("C4") & ".pdf"
MsgBox nomNewClasseur
End Sub

renvoie cette string : RMquittance -01/05/2016.pdf

mea culpa

mais dans ce cas il y a un nouveau mystère


Sauf ci C4 contient ce texte "mai 2016" et pas une date.

non je confirme que C4 est une date au format dddd-mmmm

 

[superbog]

Re à tous

superbog
Tu disais

Tu peux publier le code VBA tel que tu l'as mis en oeuvre?

le voici

Sub Main()
ProduirePdf ThisWorkbook.Path, ThisWorkbook.Sheets("quittance").Range("A12") & " quittance -" & Range("C4") & ""
End Sub

Sub ProduirePdf(ByVal Doss As String, ByVal NomFic As String)
On Error Resume Next
ChDrive Doss: ChDir Doss
If Err Then MsgBox "Impossible d'accéder au dossier """ & Doss & """." _
  & vbLf & Err.Description, vbCritical, "ProduirePdf": Exit Sub
If LCase$(Right$(NomFic, 4)) <> ".pdf" Then NomFic = NomFic & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NomFic, _
  Quality:=xlQualityStandard, IncludeDocProperties:=True, _
  IgnorePrintAreas:=False, OpenAfterPublish:=True
If Err Then MsgBox "Impossible de créer """ & NomFic & """ sur :" & vbLf & CurDir _
  & vbLf & Err.Description, vbCritical, "ProduirePdf"
End Sub

 

[superbog]

Bonjour,

Beaucoup l'ont dit, c'est les / qui posent problème (et pas les \). D'ailleurs, je ne comprends pas comment ça a pu marcher avant...

La solution de JCGL (format dd-mm-yyyy) fonctionne parfaitement. Tu devrais essayer.

A+

YEPEEEE en usant de "format mmmm-yyyy"ça fonctionne, je ne sais pas ce qui s'est passé sur cette cellule C4 mais le problème venait bien de là

merci beaucoup beaucoup à tous

 

[superbog]

justement cela serait une autre solution c'est de transformer la cellule d'origine sh2.Cells(i, 5) en texte avant de la copier en C4

j'ai fait l'ajout suivant, avant de coller en C4

myDate = sh2.Cells(i, 5).Value
sh2.Cells(i, 5).NumberFormat = "@"
sh2.Cells(i, 5).Value = Format(myDate, "mmmm yyyy")

cela marche mais je ne sais pas si c'est la bonne solution au regard des puristes que vous êtes