XL 2016 Macro export pdf ne fonctionne pas

[KTM]

Bonjour le Forum
Ma macro pour exporter ma plage de cellule au format pdf pose un probleme. Veuillez inspecter mon code pour m'aider à résoudre ce problème.
Et si possible j'en suis sur me proposer plus simple.

Private Sub Sauvegarder_Reinitialiser_RCM_Click()
Application.ScreenUpdating = False

With Sheets("RCM")
If .[K4].Value = 0 Then MsgBox " Veuillez Renseigner le Stock Disponible ", 64: Exit Sub
If .[M4].Value = 0 Then MsgBox " Veuillez Renseigner la Qt? command?e ", 64: Exit Sub

If MsgBox("Sauvegarder et Reinitialiser le RCM ? ", vbYesNo + 32) = vbYes Then

'Filtrer les Donn?es

.Range("$O$5:$P$121").AutoFilter Field:=2, Criteria1:="<>0", _
Operator:=xlAnd

'Creer Dossier RCM Pour enregistrer la sauvegarde

chemin = ThisWorkbook.Path & "\RCM\"
If Dir(chemin, vbDirectory) = "" Then MkDir chemin

'Exporter au format PDF

fichier = .Range("E3") & "-" & "RCM REC"
.PageSetup.PrintArea = .Range("A1122").Address
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & fichier, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Selection.AutoFilter

'Reinitialiser

.[M6:M121] = ""
.[F6:F121] = ""
.[I6:I121] = ""
.[E6:E121].Value = [K6:K121].Value
Application.ScreenUpdating = True
End If
End With
End Sub

 

[Hasco]

Bonjour,

Les slashs et anti-slashs (/\) sont interdits dans les noms de fichier windows.

Remplacer: fichier = .Range("E3") & "-" & "RCM REC"
Par : fichier = Replace(.Range("E3"), "/", "-") & "-RCM REC"

[Edit] Ou Par : fichier = Format(Range("E3") ,"jj-mm-yyyy") & "-RCM REC si Range("E3") est toujours une date

Et tout ira bien.

Bonne soirée

 

[KTM]

Bonjour,

Les anti-slash (\) sont interdits dans les noms de fichier windows.

Remplacer: fichier = .Range("E3") & "-" & "RCM REC"
Par : fichier = Replace(.Range("E3"), "/", "-") & "-RCM REC"

[Edit] Ou Par : fichier = Format(Range("E3") ,"jj-mm-yyyy") & "-RCM REC si Range("E3") est toujours une date

Et tout ira bien.

Bonne soirée

Merci très cher Roblochon

 

[Hasco]

Re,

J'ai ré-édité mon premier post. Avez-vous vu?

A plus

 

[Hasco]

re,

En plus court si Range("E3") est toujours une date : fichier = format(Range("E3"),"dd-mm-yyyy""-RCM REC""").

D'ailleurs le format yyyy-mm-dd est plus judicieux pour trier les fichiers dans le répertoire.

A+

 

[KTM]

re,

En plus court si Range("E3") est toujours une date : fichier = format(Range("E3"),"dd-mm-yyyy""-RCM REC""").

D'ailleurs le format yyyy-mm-dd est plus judicieux pour trier les fichiers dans le répertoire.

A+

Encore merci