Problème pour éditer une facture en pdf

[libellule85]

Bonjour le forum,

Voilà, au moment d'éditer ma facture j'ai une erreur 1004



et quand je clique sur le débogage il me stabilote la ligne suivante :

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Documents and Settings\Moi\Bureau\Impression Facture - Avoir en PDF\2011\" & Application.Proper(Sheets(1).Name) & " n° " & Application.Proper(Sheets(1).[C16].Value) & " Ed. du " & Format(Now, "dd.mm.yy à hh \h nn \m\n ss \s ") & ".pdf"

Je ne comprends vraiment pas pourquoi celà ne marche pas, le répertoire de destination existe au bon emplacement, auparavant je n'ai jamais eu de problème !!
J'ai un autre classeur avec la même macro et celà fonctionne impeccable !

Pouvez-vous m'aider à résoudre ce problème ?
D'avance merci pour votre aide

 

[TempusFugit]

Re : Problème pour éditer une facture en pdf

Bonjour


Tu lances ta macro sur un classeur qui a déjà été enregistré (qui a déjà un nom du type : toto.xls)
ou sur un classeur non enregistré ? (qui se nomme Classeur1 par exemple )

 

[libellule85]

Re : Problème pour éditer une facture en pdf

Bonjour TempusFugit,

En fait, la macro imprime et enregistre en même temps, je te mets la macro entière ci-dessous :

Sub ImprimerPDFImage()
Dim I As Long, c As Range
 Application.ScreenUpdating = False
 For I = (Range("B19").Value <> "Sous réserve de disponibilité chez l'Editeur") + 21 To 39
     Set c = Rows(I).Find("*", , xlValues, , 1, 1, 0)
     If c Is Nothing Then Rows(I).Hidden = True
 Next I
 Range("a10").Select
 Application.ScreenUpdating = True
ActiveSheet.Shapes("Image 3").Visible = True
ActiveSheet.Shapes("Image 2").Visible = True
     Sheets(1).Select
     ActiveSheet.PrintPreview
      Select Case MsgBox("Voulez-vous imprimer ce document ?", vbYesNo + vbQuestion + vbDefaultButton1, "Confirmation d'Impression de Document")
      Case vbYes
      On Error GoTo pass
     'MkDir "C:\Documents and Settings\Moi\Bureau\Impression Excel en PDF"
pass:
     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Documents and Settings\Moi\Bureau\Impression Facture - Avoir en PDF\2011\" & Application.Proper(Sheets(1).Name) & " n° " & Application.Proper(Sheets(1).[C16].Value) & " Ed. du " & Format(Now, "dd.mm.yy à hh \h nn \m\n ss \s ") & ".pdf"
              Select Case MsgBox("Le Document  "" " & Sheets(1).[e2].Value & " " & Application.Proper(Sheets(1).Name) & ".pdf "" est sauvegardé dans C:\Documents and Settings\Moi\Bureau\Impression Facture - Avoir en PDF", vbInformation, "Information Importante à savoir !!")
 End Select
      Case vbNo
      End Select
 ActiveSheet.Shapes("Image 3").Visible = False
ActiveSheet.Shapes("Image 2").Visible = False
Application.ScreenUpdating = False
 Range("a10").Select
 For I = (Range("B19").Value <> "Sous réserve de disponibilité chez l'Editeur") + 21 To 39
 'For I = 20 To 39
     Set c = Rows(I).Find("*", , xlValues, , 1, 1, 0)
     If c Is Nothing Then Rows(I).Hidden = False
 Next I
 Application.ScreenUpdating = True
 Range("a10").Select

 End Sub

 

[TempusFugit]

Re : Problème pour éditer une facture en pdf

Bonjour


"dd.mm.yy à hh \h nn \m\n ss \s "

Avec ce format, il me semble que les \ sont interdits dans les noms de fichiers.

Est-ce la le problème ?

 

[libellule85]

Re : Problème pour éditer une facture en pdf

Re,

Je ne crois pas que celà vienne de là car dans le fichier "originel" il y a la même chose et il n'y a pas de problème !! Je viens d'essayer et celui-ci me met bien tout lors de l'édition : Nom du Client, n° Doc, date, heures, mn, sec.

 

[TempusFugit]

Re : Problème pour éditer une facture en pdf

Excuses-moi

Je viens de tester

Sub test()
Dim nomfichier As String
nomfichier = Format(Now, "dd.mm.yy à hh \h nn \m\n ss \s ") & ".pdf"
MsgBox nomfichier
End Sub

et effectivement il n'y a pas de \ dans la chaine nomfichier.

Désolé pour la fausse piste.