XL 2010 SOS enregistrement en PDF ne fonctionne plus

superbog · 12 Octobre 2016

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)

VB:

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 · 17 Octobre 2016

Staple1600 à dit:
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 · 17 Octobre 2016

JCGL à dit:
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 · 17 Octobre 2016

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 · 17 Octobre 2016

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 · 17 Octobre 2016

Re à tous

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

VB:

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 · 17 Octobre 2016

Bonjour à tous,

superbog à dit:
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 · 17 Octobre 2016

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 · 17 Octobre 2016

Staple1600 à dit:
Re à tous

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

VB:

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 · 17 Octobre 2016

Staple1600 à dit:
Re à tous

superbog
Tu disais

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

le voici

VB:

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 · 17 Octobre 2016

Shakki à dit:
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 · 19 Octobre 2016

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

VB:

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

XL 2010 SOS enregistrement en PDF ne fonctionne plus

superbog

XLDnaute Occasionnel

Pièces jointes

superbog

XLDnaute Occasionnel

superbog

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Shakki

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

JCGL

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

superbog

XLDnaute Occasionnel

superbog

XLDnaute Occasionnel

superbog

XLDnaute Occasionnel

superbog

XLDnaute Occasionnel

Discussions similaires

XL 2010 SOS enregistrement en PDF ne fonctionne plus

XLDnaute Occasionnel

Pièces jointes

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency