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,
J'espère au moins que tu ne retapes pas la macro à la main, mais que tu fasses un copier/coller de la macro comme je te l'ai construite dans l'autre forum et qui fonctionne
VB:
Sub enregistre_nom_date()
'
' enregistre_nom_date Macro
Dim Chemin As String, NomFichier As String
NomFichier = Range("c12").Value & "_" & Range("a23").Value & "_" & Format(Date, "dd_mm_yyyy") & Range("c23").Value & "_" & Format(Date, "dd_mm_yyyy") & ".pdf"

Chemin= "C:\Users\Administrateur\Documents\CERBERE\LOCATION\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Chemin & NomFichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True

End Sub
 

chris66000

XLDnaute Junior
Fait un copier/coller de ta macro et poste là ici
Sub enregistre_contrat()
'
' enregistre_contrat Macro
'

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

cette macro enregistre bien le pdf au bon endroit , mais elle garde le nom "NomFichier " désolé de t'embeter.....
 

M12

XLDnaute Accro
Re
Cela fait une paire de post que l'on te montre une macro fonctionnel
tu places
VB:
"C:\Users\Administrateur\Documents\CERBERE\LOCATION\NomFichier.pdf"
alors que c'est
Code:
"C:\Users\Administrateur\Documents\CERBERE\LOCATION\" & NomFichier &".pdf"

Prend mon dernier code plus haut et colle le à la place du tien
 

chris66000

XLDnaute Junior
Re
Cela fait une paire de post que l'on te montre une macro fonctionnel
tu places
VB:
"C:\Users\Administrateur\Documents\CERBERE\LOCATION\NomFichier.pdf"
alors que c'est
Code:
"C:\Users\Administrateur\Documents\CERBERE\LOCATION\" & NomFichier &".pdf"

Prend mon dernier code plus haut et colle le à la place du tien
Re
Cela fait une paire de post que l'on te montre une macro fonctionnel
tu places
VB:
"C:\Users\Administrateur\Documents\CERBERE\LOCATION\NomFichier.pdf"
alors que c'est
Code:
"C:\Users\Administrateur\Documents\CERBERE\LOCATION\" & NomFichier &".pdf"

Prend mon dernier code plus haut et colle le à la place du tien
désolé....j'ai fait ce que tu m'a dit et j'ai toujours la meme erreur
 

Discussions similaires

Réponses
3
Affichages
130