Autres Enregistrement pdf en vba avec erreur 1004

chris66000

XLDnaute Junior
Bonjour,
J'ai besoin d'enregistrer une feuille excel en pdf..
J'ai declarer Nom
Chemin
J'ai mis des Msgbox pour contrôler la valeur tout est ok
mais cela me sauvegarde au bon endroit mais sous " & Nom " au lieu du nom déclarer
Si quelqu'un peux m'aider.....je bug
Merci Chris

Sub enregistre_nom_date()
'
' enregistre_nom_date Macro
Dim Chemin As String, NomFichier As String

Nom = Range("c12").Value & "_" & Range("a23").Value & "_" & Range("c23").Value & "_"
'& ".pdf"
MsgBox Nom
Chemin = "C:\Users\Administrateur\Documents\CERBERE\LOCATION"
MsgBox Chemin
ChDir "C:\Users\Administrateur\Documents\CERBERE\LOCATION\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Administrateur\Documents\CERBERE\LOCATION\ & Nom" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True

End Sub
 
Solution
Re,
Teste ceci, tu aurait pu dire qu'il y avait des dates !!!
VB:
Sub enregistre_nom_date_M12()

  ' enregistre_nom_date Macro
  Dim Route As String, NomFichier As String
  NomFichier = Range("c12").Value & "_" & Format(Range("a23").Value, "dd-mm-yyyy") & " au " & Format(Range("c23").Value, "dd-mm-yyyy") & ".pdf"
 
  Route = "C:\Users\Administrateur\Documents\CERBERE\LOCATION\"
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
  Route & NomFichier & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
  :=False, OpenAfterPublish:=True

End Sub

M12

XLDnaute Accro
Re,
Teste ceci, tu aurait pu dire qu'il y avait des dates !!!
VB:
Sub enregistre_nom_date_M12()

  ' enregistre_nom_date Macro
  Dim Route As String, NomFichier As String
  NomFichier = Range("c12").Value & "_" & Format(Range("a23").Value, "dd-mm-yyyy") & " au " & Format(Range("c23").Value, "dd-mm-yyyy") & ".pdf"
 
  Route = "C:\Users\Administrateur\Documents\CERBERE\LOCATION\"
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
  Route & NomFichier & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
  :=False, OpenAfterPublish:=True

End Sub
 

chris66000

XLDnaute Junior
Re,
Teste ceci, tu aurait pu dire qu'il y avait des dates !!!
VB:
Sub enregistre_nom_date_M12()

  ' enregistre_nom_date Macro
  Dim Route As String, NomFichier As String
  NomFichier = Range("c12").Value & "_" & Format(Range("a23").Value, "dd-mm-yyyy") & " au " & Format(Range("c23").Value, "dd-mm-yyyy") & ".pdf"
 
  Route = "C:\Users\Administrateur\Documents\CERBERE\LOCATION\"
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
  Route & NomFichier & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
  :=False, OpenAfterPublish:=True

End Sub
merci beaucoup ...cela fonctionne. j'a appris grace a toi comment modifier le format date pour etre sans caracteres spéciaux ....merci encore
 

kiki29

XLDnaute Barbatruc
re, à voir
VB:
Private Function NomFichierValide(sChaine As String) As Boolean
Dim i As Long
Const sCaracInterdits As String = """*/:<>?\|"
    NomFichierValide = True
    If Len(sChaine) = 0 Then
        NomFichierValide = False
        Exit Function
    End If
    For i = 1 To Len(sCaracInterdits)
        If InStr(sChaine, Mid$(sCaracInterdits, i, 1)) > 0 Then
            NomFichierValide = False
            Exit Function
        End If
    Next i
End Function
 

chris66000

XLDnaute Junior
re, à voir
VB:
Private Function NomFichierValide(sChaine As String) As Boolean
Dim i As Long
Const sCaracInterdits As String = """*/:<>?\|"
    NomFichierValide = True
    If Len(sChaine) = 0 Then
        NomFichierValide = False
        Exit Function
    End If
    For i = 1 To Len(sCaracInterdits)
        If InStr(sChaine, Mid$(sCaracInterdits, i, 1)) > 0 Then
            NomFichierValide = False
            Exit Function
        End If
    Next i
End Function
merci de ta réponse .....M12 m'a apporter une solution qui fonctionne parfaitement. saurait tu si sur excel 2007 je peux ajouter une classe CDO pour envoyer directement par Gmail...je ne la trouve pas merci
 

Discussions similaires

Statistiques des forums

Discussions
311 740
Messages
2 082 049
Membres
101 882
dernier inscrit
XaK_