Autres Enregistrement pdf en vba avec erreur 1004

chris66000 · 16 Août 2022

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

M12 · 17 Août 2022

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 · 17 Août 2022

chris66000 à dit:
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 · 17 Août 2022

Ma macro du post 6 est fonctionnel

chris66000 à dit:
veux tu que je t'envoie le classeur...rien de personnel dedans

Pas de soucis, cela ira plus vite

chris66000 · 17 Août 2022

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

kiki29 · 17 Août 2022

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 · 17 Août 2022

kiki29 à dit:
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 · 17 Août 2022

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

M12 · 17 Août 2022

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 · 17 Août 2022

M12 à dit:

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 · 17 Août 2022

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 · 17 Août 2022

kiki29 à dit:

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

kiki29 · 17 Août 2022

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

Autres Enregistrement pdf en vba avec erreur 1004

chris66000

XLDnaute Junior

M12

chris66000

XLDnaute Junior

M12

XLDnaute Accro

chris66000

XLDnaute Junior

Pièces jointes

kiki29

XLDnaute Barbatruc

chris66000

XLDnaute Junior

kiki29

XLDnaute Barbatruc

M12

XLDnaute Accro

chris66000

XLDnaute Junior

kiki29

XLDnaute Barbatruc

chris66000

XLDnaute Junior

kiki29

XLDnaute Barbatruc

Discussions similaires