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

 

[youky(BJ)]

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

 

[chris66000]

Bruno merci;

je vais essayer de suite et reviens vers toi

 

[chris66000]

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

 

[youky(BJ)]

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

 

[M12]

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

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]

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]

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]

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]

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

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

 

[chris66000]

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)]

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

 

[M12]

Re
Cela fait une paire de post que l'on te montre une macro fonctionnel
tu places

"C:\Users\Administrateur\Documents\CERBERE\LOCATION\NomFichier.pdf"

alors que c'est

"C:\Users\Administrateur\Documents\CERBERE\LOCATION\" & NomFichier &".pdf"

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

 

[youky(BJ)]

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

 

[chris66000]

Re
Cela fait une paire de post que l'on te montre une macro fonctionnel
tu places

"C:\Users\Administrateur\Documents\CERBERE\LOCATION\NomFichier.pdf"

alors que c'est

"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

"C:\Users\Administrateur\Documents\CERBERE\LOCATION\NomFichier.pdf"

alors que c'est

"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