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

Enregistrement en pdf et aller chercher le numeto dans une cellule

Réponse 1 / 7

yg_be Messages postés 23352 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 novembre 2024 Ambassadeur 1 554
7 avril 2020 à 08:45

bonjour,
connais-tu la possibilité d'enregistrer une macro?

Dfab31 Messages postés 15 Date d'inscription mardi 7 avril 2020 Statut Membre Dernière intervention 8 avril 2020
7 avril 2020 à 09:22

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

Réponse 2 / 7

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
Modifié le 7 avril 2020 à 09:25

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

Dfab31 Messages postés 15 Date d'inscription mardi 7 avril 2020 Statut Membre Dernière intervention 8 avril 2020
7 avril 2020 à 10:49

Merci beaucoup cs le pivert c est exactement ce que je voulait faire.
Bonne journée merci encore

yg_be Messages postés 23352 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 novembre 2024 1 554 > Dfab31 Messages postés 15 Date d'inscription mardi 7 avril 2020 Statut Membre Dernière intervention 8 avril 2020
7 avril 2020 à 11:29

peux-tu alors marquer le sujet comme résolu?

Dfab31 Messages postés 15 Date d'inscription mardi 7 avril 2020 Statut Membre Dernière intervention 8 avril 2020
7 avril 2020 à 14:58

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

yg_be Messages postés 23352 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 novembre 2024 1 554 > Dfab31 Messages postés 15 Date d'inscription mardi 7 avril 2020 Statut Membre Dernière intervention 8 avril 2020
7 avril 2020 à 15:04

peux-tu nous montrer comment tu as adapté la destination?

Réponse 3 / 7

Dfab31 Messages postés 15 Date d'inscription mardi 7 avril 2020 Statut Membre Dernière intervention 8 avril 2020
7 avril 2020 à 15:59

Il me manque un truc avant le lecteur C mais quoi

Réponse 4 / 7

Dfab31 Messages postés 15 Date d'inscription mardi 7 avril 2020 Statut Membre Dernière intervention 8 avril 2020
7 avril 2020 à 16:00

Il me manque un truc avant le lecteur C mais quoi

Réponse 5 / 7

Dfab31 Messages postés 15 Date d'inscription mardi 7 avril 2020 Statut Membre Dernière intervention 8 avril 2020
7 avril 2020 à 16:00

Il me manque un truc avant le lecteur C mais quoi

yg_be Messages postés 23352 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 novembre 2024 1 554
7 avril 2020 à 16:57

merci de partager le texte de ton code, pas une image. merci aussi d'utiliser les balises de code: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

Dfab31 Messages postés 15 Date d'inscription mardi 7 avril 2020 Statut Membre Dernière intervention 8 avril 2020 > yg_be Messages postés 23352 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 novembre 2024
7 avril 2020 à 17:27

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

yg_be Messages postés 23352 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 novembre 2024 1 554 > Dfab31 Messages postés 15 Date d'inscription mardi 7 avril 2020 Statut Membre Dernière intervention 8 avril 2020
7 avril 2020 à 17:33

tu t'es contenté de modifier le commentaire, pas le code
je pense que il faut simplement faire

chemin = "c:\factures2020\"

Dfab31 Messages postés 15 Date d'inscription mardi 7 avril 2020 Statut Membre Dernière intervention 8 avril 2020 > yg_be Messages postés 23352 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 novembre 2024
7 avril 2020 à 18:42

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

Dfab31 Messages postés 15 Date d'inscription mardi 7 avril 2020 Statut Membre Dernière intervention 8 avril 2020 > Dfab31 Messages postés 15 Date d'inscription mardi 7 avril 2020 Statut Membre Dernière intervention 8 avril 2020
7 avril 2020 à 18:45

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

Réponse 6 / 7

Dfab31 Messages postés 15 Date d'inscription mardi 7 avril 2020 Statut Membre Dernière intervention 8 avril 2020
7 avril 2020 à 18:59

Ok merci j essayerai demain .

Réponse 7 / 7

Dfab31 Messages postés 15 Date d'inscription mardi 7 avril 2020 Statut Membre Dernière intervention 8 avril 2020
8 avril 2020 à 07:36

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....

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
Modifié le 8 avril 2020 à 09:02

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

Dfab31 Messages postés 15 Date d'inscription mardi 7 avril 2020 Statut Membre Dernière intervention 8 avril 2020 > cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024
8 avril 2020 à 10:41

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

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729 > Dfab31 Messages postés 15 Date d'inscription mardi 7 avril 2020 Statut Membre Dernière intervention 8 avril 2020
Modifié le 8 avril 2020 à 12:25

ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True, _
IgnorePrintAreas:=False

ce code fonctionne chez moi, il imprime le classeur Excel

supprime le MsgBox avant

Dfab31 Messages postés 15 Date d'inscription mardi 7 avril 2020 Statut Membre Dernière intervention 8 avril 2020 > cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024
8 avril 2020 à 12:45

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

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729 > Dfab31 Messages postés 15 Date d'inscription mardi 7 avril 2020 Statut Membre Dernière intervention 8 avril 2020
Modifié le 8 avril 2020 à 13:22

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