Enregistre sous selon date

Bonsoir à tous.

Le code ci-dessous me permet d'enregistrer une facture en xlsm selon le nom de plusieurs cellule, ca fonctionne parfaitement.

Je souhaite rajouter la cellule K14 entre la D18 et la F11 au nom de la facture.

la cellule K14 est la date du jour =aujourdhui() afficher en mmm aaaa (févr 2016)

ca me genere une erreur quelqu'un à une idée?

et en même temps quelqu'un aurais une idée du code à rajouter et où le rajouter pour qu'elle s'enregistre en pdf dans un autre dossier "g:\Drop\JN SE\archive"

Sub enregistrefacture()
Dim Chemin As String, Fichier As String

  Fichier = Range("R11") & "" & Range("D18") & " " & Range("F11") & " " & Range("F4")
  If Len(Trim(Fichier)) = 0 Then
    MsgBox "Pas de nom de fichier"
    Exit Sub
  End If

  With Application.FileDialog(msoFileDialogFolderPicker)
    .InitialFileName = "g:\Drop\JN SE\Facturation"
    If .Show = -1 Then    ' Clic sur Ok
     Chemin = .SelectedItems(1)
    Else
      ' Clic sur Annuler
     Exit Sub
    End If
  End With

  ActiveSheet.Copy
  With ActiveWorkbook
    .SaveAs Filename:=Chemin & "\" & Fichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled
    .Close
  End With
  recopie

End Sub

Bonjour,

Format(Date, "mmm yyyy")

pour ton ajout (si date du jour, inutile d'aller la chercher en K14).

Et pour enregistrer en pdf :

ActiveSheet.ExportAsFixedFormat xlTypePDF, "[chemin éventuel\]" & "NomFichier" & ".pdf"

Cordialement.

merci beaucoup pour ta réponse mais je ne vois pas ou placer le

Format(Date, "mmm yyyy")

et pour le pdf, je remplace quoi pour qu'il s'appel comme le format xlsm

C'est tout de même toi qui sait où tu veux mettre ton ajout dans le nom du fichier ! Et qui sait le nom que tu veux donner à ton pdf et où tu veux l'enregistrer !

Est-ce que le code est correct comme ca?

    Sub enregistrefacture()
    Dim Chemin As String, Fichier As String

      Fichier = Range("R11") & "" & Range("D18") & " " & Format(Date, "mmm yyyy") & " " & Range("F11") & " " & Range("F4")
      If Len(Trim(Fichier)) = 0 Then
        MsgBox "Pas de nom de fichier"
        Exit Sub
      End If

      With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = "g:\Drop\JN SE\Facturation"
        If .Show = -1 Then    ' Clic sur Ok
        Chemin = .SelectedItems(1)
        Else
          ' Clic sur Annuler
        Exit Sub
        End If
      End With

      ActiveSheet.Copy
      With ActiveWorkbook
        .SaveAs Filename:=Chemin & "\" & Fichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled
ActiveSheet.ExportAsFixedFormat xlTypePDF, "g:\Drop\JN SE\Facturation" & "NomFichier" & ".pdf"
        .Close
      End With
      recopie

    End Sub

Cela devrait aller.

Mais je placerait plutôt la ligne d'enregistrement du pdf avant ActiveSheet.Copy, autant le faire à partir de l'original, parce que là tu le fais à partir de la copie.

Cordialement.

Merci encore de ton aide.

voici mon code, pour la date ca fonctionne nikel, par contre pour le pdf, il n'est pas présent à l'endroit indiqué et nul par ailleurs du coup

 Sub enregistrefacture2()
        Dim Chemin As String, Fichier As String

          Fichier = Range("R11") & "" & Range("D18") & " " & Format(Date, "mmm yyyy") & " " & Range("F11") & " " & Range("F4")
          If Len(Trim(Fichier)) = 0 Then
            MsgBox "Pas de nom de fichier"
            Exit Sub
          End If

          With Application.FileDialog(msoFileDialogFolderPicker)
            .InitialFileName = "g:\Drop\JN SE\Facturation"
            If .Show = -1 Then    ' Clic sur Ok
           Chemin = .SelectedItems(1)
            Else
              ' Clic sur Annuler
           Exit Sub
            End If
          End With
          ActiveSheet.Copy
          With ActiveWorkbook
            .SaveAs Filename:=Chemin & "\" & Fichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled
            ActiveSheet.ExportAsFixedFormat xlTypePDF, "g:\Drop\JN SE\CABINET V" & "NomFichier" & ".pdf"
            .Close
          End With
          recopie

        End Sub

Es-tu sûr ?

Ton fichier se nomme : CABINET VNomFichier.pdf selon ce que tu as mis dans ton code...

J'y comprend rien lol je souhaite qu'il aille dans le répertoire CABINET V mais que le fichier sappel comme le xlsm

Regarde ce que tu écris !

Si CABINET V est un dossier, il doit être suivi de : \

Ensuite, si ton nom de fichier figure dans une variable appelée Fichier, tu le raccordes : & Fichier [sans guillemets]

Et tu rajoutes l'extension : & ".pdf"

Voici mon code.

Ca me donne une erreur d'execution '1004'

document non enregistré

la ligne est surligné en jaune ActiveSheet.ExportAsFixedFormat xlTypePDF, "g:\Drop\JN SE\CABINET V\" & Fichier & ".pdf"

Sub enregistrefacture()
Dim Chemin As String, Fichier As String

          Fichier = Range("R11") & "" & Range("D18") & " " & Format(Date, "mmm yyyy") & " " & Range("F11") & " " & Range("F4")
          If Len(Trim(Fichier)) = 0 Then
             MsgBox "Pas de nom de fichier"
            Exit Sub
          End If

          With Application.FileDialog(msoFileDialogFolderPicker)
            .InitialFileName = "g:\Drop\JN SE\Facturation\Facturation chantier\"
            If .Show = -1 Then    ' Clic sur Ok
           Chemin = .SelectedItems(1)
            Else
              ' Clic sur Annuler
           Exit Sub
           End If
          End With
          ActiveSheet.ExportAsFixedFormat xlTypePDF, "g:\Drop\JN SE\CABINET V\" & Fichier & ".pdf"
          ActiveSheet.Copy
          With ActiveWorkbook
            .SaveAs Filename:=Chemin & "\" & Fichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled
            .Close
          End With
          recopie
End Sub

Est-ce que tes dossiers existent ?

oui oui il existe, a savoir que dans ce dossier CABINET V, il y à d'autre dossier qui eux même ont des dossiers.

Ce que je souhaite c'est que ca s'enregistre à la racine de CABINET V

quand j'enleve le \ apres le V je n'ai pas d'erreur mais ca ne m'enregistre pas le pdf.

et quand je le met, j'ai l'erreur.

sur ActiveSheet.ExportAsFixedFormat xlTypePDF, "g:\Drop\JN SE\CABINET V\" & Fichier & ".pdf"

Vérifie le nom du dossier, si Excel ne le reconnaît pas, il y a une raison.

Présence de caractères invisibles par exemple.

Salut c'est bon jai trouvé l'erreur.

Erreur de nom de dossier

Desolé mais la fatigue a fait que je n'ai pas vu la faute