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

youky(BJ) · 16 Août 2022

Hello,
Je verrais bien comme ceci
Nom = Range("c12").Value & "_" & Range("a23").Value & "_" & Range("c23").Value & ".pdf"
Bruno

chris66000 · 16 Août 2022

Bruno merci;

je vais essayer de suite et reviens vers toi

chris66000 · 16 Août 2022

Bruno..... exactement le meme resultat !!
je bugg completement

youky(BJ) · 16 Août 2022

J'avais pas vu . . .
"C:\Users\Administrateur\Documents\CERBERE\LOCATION\" & Nom _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True

M12 · 16 Août 2022

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

M12 · 16 Août 2022

Et vérifie bien que tes dossiers CERBERE et LOCATION, n'aient pas d'espace devant ou derrière avec la même écriture

chris66000 · 16 Août 2022

M12 à dit:
Et vérifie bien que tes dossiers CERBERE et LOCATION, n'aient pas d'espace devant ou derrière avec la même écriture

je regarde et essaye .merci

chris66000 · 16 Août 2022

M12 à dit:
Et vérifie bien que tes dossiers CERBERE et LOCATION, n'aient pas d'espace devant ou derrière avec la même écriture

M12 désolé...tjrs message d'erreur 1004

M12 · 16 Août 2022

chris66000 à dit:
M12 désolé...tjrs message d'erreur 1004

Fait un copier/coller de ta macro et poste là ici

chris66000 · 17 Août 2022

M12 à dit:
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.....

youky(BJ) · 17 Août 2022

"C:\Users\Administrateur\Documents\CERBERE\LOCATION\" & NomFichier , Quality:= _
Comme cela
Bruno

M12 · 17 Août 2022

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

youky(BJ) · 17 Août 2022

Attention
NomFichier comporte déjà ".pdf"
Bruno

chris66000 · 17 Août 2022

M12 à dit:
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

Autres Enregistrement pdf en vba avec erreur 1004

chris66000

XLDnaute Junior

M12

youky(BJ)

XLDnaute Barbatruc

chris66000

XLDnaute Junior

chris66000

XLDnaute Junior

youky(BJ)

XLDnaute Barbatruc

M12

XLDnaute Accro

M12

XLDnaute Accro

chris66000

XLDnaute Junior

chris66000

XLDnaute Junior

M12

XLDnaute Accro

chris66000

XLDnaute Junior

youky(BJ)

XLDnaute Barbatruc

M12

XLDnaute Accro

youky(BJ)

XLDnaute Barbatruc

chris66000

XLDnaute Junior

Discussions similaires