Enregistrement en pdf et aller chercher le numeto dans une cellule

Dfab31 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention   -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour a tous,

Je suis a la recherche d une macro ou je pourrais enregistrer en pdf et de nommer le document du numéro de facture qui se trouve en cellule C12 et de mettre la date et l heure. Merci à tous

Configuration: Android / SamsungBrowser 11.1

7 réponses

  1.
    yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     
    bonjour,
    connais-tu la possibilité d'enregistrer une macro?
    0
    1. Dfab31 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
       
      Bonjour, oui mais le problème est que j enregistre ma macro en copiant la case c12 cela est bien pris dans la macro mais quand je vais dans enregistrer sous et que j efface le titre pour faire contrôler V cela ne fonctionne pas du coup la macro ne prend pas le numéro de la case C12. Merci pour ta réponse yg_be
      0
  2. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

    comme ceci: 

    Sub Save_pdf()
Dim nom As String
Dim chemin As String
chemin = ActiveWorkbook.Path & "\" 'chemin du dossier destination à adapter
nom = Range("C12").Value & "_" & Now
nom = Replace(nom, "/", "-")
nom = Replace(nom, ":", "-")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        chemin & nom & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
        MsgBox "Enregistrer" 'on peut supprimer
End Sub


    0
    1. Dfab31 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
       
      Merci beaucoup cs le pivert c est exactement ce que je voulait faire.
      Bonne journée merci encore
      0
      1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588 > Dfab31 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
         
        peux-tu alors marquer le sujet comme résolu?
        0
    2. Dfab31 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
       
      Par contre il y a juste un détail il m enregistre le dossier dans le même dossier que ma facture et non dans le dossier que j ai nommé (car j ai mis la destination a adapter la ou je voulais que le dossier s enregistre
      0
      1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588 > Dfab31 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
         
        peux-tu nous montrer comment tu as adapté la destination?
        0
  3. Dfab31 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
     

    Il me manque un truc avant le lecteur C mais quoi
    0
  4. Dfab31 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
     

    Il me manque un truc avant le lecteur C mais quoi
    0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Dfab31 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
     

    Il me manque un truc avant le lecteur C mais quoi
    0
    2. Dfab31 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention   > yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention  
       
      Ok désolé mai j ai fait avec mon tel car impossible de répondre su le pc je ferai ça ce soir ou demain . Merci encore pour votre aide
      0
    3. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588 > Dfab31 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
       
      tu t'es contenté de modifier le commentaire, pas le code
      je pense que il faut simplement faire 
      chemin = "c:\factures2020\"
      0
    4. Dfab31 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention   > yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention  
        
      Dim nom As String
Dim chemin As String
chemin = ActiveWorkbook.Path & "\" 'C:\Facture2020
   nom = Range("B4").Value & "_" & Now
   nom = Replace(nom, "/", "-")
   nom = Replace(nom, ":", "-")
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
   chemin & nom & ".pdf", Quality:=xlQualityStandard, _
   IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
   MsgBox "Enregistrer" 'on peut supprimer'
   
    ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True, _
        IgnorePrintAreas:=False
      0
    5. Dfab31 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention   > Dfab31 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
       
      Oui effectivement je n ai fait que copier votre code je m interesse au macro que depuis hier et je ne comprend pas tt le langage je ne comprend pas ou mettre le chemin pour l enregistrement
      0
  7. Dfab31 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
     
    Ok merci j essayerai demain .
    0
  8. Dfab31 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
     
    bonjour, en remplacent: cela me donne une erreur quand je fait debogage " erreur d exécution'2147024773(8007007b).
    ci dessous comment j ai fait la macro 
    Dim nom As String
    Dim chemin As String
    chemin = "C:\Facture2020\"
       nom = Range("B4").Value & "_" & Now
       nom = Replace(nom, "/", "-")
       nom = Replace(nom, ":", "-")
       ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       chemin & nom & ".pdf", Quality:=xlQualityStandard, _
       IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
       MsgBox "Enregistrer" 'on peut supprimer'
       
        ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True, _
            IgnorePrintAreas:=False


    en gras c est quand je fais le débogage c'est en jaune et une flèche jaune sur la ligne includeproperties....
    0
    1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      Ce n'est pas le chemin complet!!!!!!!!!!!!!!!!! 

      chemin = "C:\Facture2020\"


      voilà un chemin complet par exemple 

      C:\Users\LePivert\Documents\


      si tu veux avoir le chemin complet, sers-toi de l’enregistreur de macro. Tu enregistres en pdf. Tu auras alors le chemin complet dans la macro ainsi créée
      0
      1. Dfab31 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention   > cs_Le Pivert Messages postés 8437 Statut Contributeur
         
        Mon chemin complet fait une ligne et demi mais je ne l ai pas mis entier car il y a le nom des clients dessus. Mais je suis sur de mon chemin car je l ai vérifié et fait avec l enregistrement de macro. Sur le débogage il me dit que c est le code après que j ai mis en bas le problème... merci de ton aide
        0
      2. cs_Le Pivert Messages postés 8437 Statut Contributeur 730 > Dfab31 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
          
        ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True, _
IgnorePrintAreas:=False


        ce code fonctionne chez moi, il imprime le classeur Excel

        supprime le MsgBox avant
        0
      3. Dfab31 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention   > cs_Le Pivert Messages postés 8437 Statut Contributeur
         
        Oui le code que tu dit fonctionne parfaitement pour fair 3 impression mais c est le code du haut qui ne fonctionne pas bien ligne ci-dessous ça met le message en jaunes 

        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        chemin & nom & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

        Le code erreur est erreur d exécution'2147024773(8007007b).
        0
      4. cs_Le Pivert Messages postés 8437 Statut Contributeur 730 > Dfab31 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
         
        C'est le chemin qui n est pas bon
        Je ne peux faire plus c est a toi de trouver la solution
        Met un autre chemin par exemple Documents
        0

Discussions similaires

disque dur et bbox bouygues
t671 -
CCMBot -

1 réponse