Autres Enregistrement pdf en vba avec erreur 1004

[chris66000]

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

 

[chris66000]

désolé....j'ai fait ce que tu m'a dit et j'ai toujours la meme erreur

veux tu que je t'envoie le classeur...rien de personnel dedans

 

[M12]

Ma macro du post 6 est fonctionnel

veux tu que je t'envoie le classeur...rien de personnel dedans

Pas de soucis, cela ira plus vite

 

[chris66000]

ci joint le classeur....pour lancer tu appuies sur validation dans l'onglet Formulaire

 

[kiki29]

Salut, intéresse toi aux caractères interdits dans les noms de fichiers.

<, >, :, “, /, \, |, ?, *

cela éviterait ceci :

A_20/05/2023_17_08_202217/06/2023_17_08_2022.pdf

 

[chris66000]

Salut, intéresse toi aux caractères interdits dans les noms de fichiers.

cela éviterait ceci :

ok mais comment enregistrer mon fichier avec la date ? je vais chercher

 

[kiki29]

Re, allons quand même, utilise l'instruction Format

 

[M12]

Re,
Teste ceci, tu aurait pu dire qu'il y avait des dates !!!

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]

Re,
Teste ceci, tu aurait pu dire qu'il y avait des dates !!!

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]

re, à voir

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]

re, à voir

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

 

[kiki29]

Re, tu ne sais pas lire ou quoi ?
pour l'envoi de mail via CDO voir ici.