XL 2021 Macro pour imprimer depuis la feuil1 la feuil2

clausen · 15 Décembre 2024

Bonsoir

J'ai fait sur la feuil1 un bouton (avec Macro) pour lancer l'impression de la feuil2

ActiveSheet,PrintOut Copies:=1

ça m'imprime toujours la feui1

Quelqu'un pourrais me corriger cette macro

Merci d'avance

OKBI · 15 Décembre 2024

Bonsoir,

Sheets("Feuil2").PrintOut Copies:=1

Cdt

clausen · 15 Décembre 2024

Merci mille fois comment vous dédommager pour toutes mes demandes.

J'en ai a pris des choses avec vous Super merci

cathodique · 15 Décembre 2024

clausen à dit:
comment vous dédommager pour toutes mes demandes.

En disant bonjour ou bonsoir et juste un Merci suffit.
Bonne soirée.

clausen · 15 Décembre 2024

OKBI à dit:
Bonsoir,

Sheets("Feuil2").PrintOut Copies:=1

Cdt

J’aimerai avoir une autre macro pour imprimer un PDF. Dans le répertoire « factures en cours »

J.en demande trop je sais

cathodique · Lundi à 09:37

clausen à dit:
J’aimerai avoir une autre macro pour imprimer un PDF. Dans le répertoire « factures en cours »

J.en demande trop je sais

Bonjour,

le dossier sera créé s'il n'existe pas, il faudrait adapter le nom du fichier.
Voir post#14

clausen · Lundi à 13:40

clausen à dit:
J’aimerai avoir une autre macro pour imprimer un PDF. Dans le répertoire « factures en cours »

J.en demande trop je sais

cathodique à dit:

Bonjour,

le dossier sera créé s'il n'existe pas, il faudrait adapter le nom du fichier.

VB:

Sub Enregistrer_FeuilleEnPDF()
   Dim Ch As String
   Dim chemin As String
   Dim dossier As String

   ' Chemin de base
   Ch = ThisWorkbook.Path
   ' Dossier cible
   dossier = "factures en cours"
   ' Chemin complet
   chemin = Ch & "\" & dossier

   ' Vérifiez si le dossier existe
   If Dir(chemin, vbDirectory) = "" Then
      ' Si le dossier n'existe pas, créez-le
      MkDir chemin
   End If

   ' Enregistrez la feuille de calcul en PDF dans le dossier
   ' Remplacez "NomDuFichier"
   ThisWorkbook.Sheets("Feuil2").ExportAsFixedFormat Type:=xlTypePDF, _
                                                             Filename:=chemin & "\NomDuFichier.pdf", _
                                                             Quality:=xlQualityStandard, _
                                                             IncludeDocProperties:=True, _
                                                             IgnorePrintAreas:=False, _
                                                             OpenAfterPublish:=False

   MsgBox "Le fichier PDF a été enregistré avec succès dans le dossier : " & chemin
End Sub

mERCI MAIS JE FAIS COMMENT POUR L'INTéGRER

clausen · Lundi à 13:41

cathodique à dit:

Bonjour,

le dossier sera créé s'il n'existe pas, il faudrait adapter le nom du fichier.

VB:

Sub Enregistrer_FeuilleEnPDF()
   Dim Ch As String
   Dim chemin As String
   Dim dossier As String

   ' Chemin de base
   Ch = ThisWorkbook.Path
   ' Dossier cible
   dossier = "factures en cours"
   ' Chemin complet
   chemin = Ch & "\" & dossier

   ' Vérifiez si le dossier existe
   If Dir(chemin, vbDirectory) = "" Then
      ' Si le dossier n'existe pas, créez-le
      MkDir chemin
   End If

   ' Enregistrez la feuille de calcul en PDF dans le dossier
   ' Remplacez "NomDuFichier"
   ThisWorkbook.Sheets("Feuil2").ExportAsFixedFormat Type:=xlTypePDF, _
                                                             Filename:=chemin & "\NomDuFichier.pdf", _
                                                             Quality:=xlQualityStandard, _
                                                             IncludeDocProperties:=True, _
                                                             IgnorePrintAreas:=False, _
                                                             OpenAfterPublish:=False

   MsgBox "Le fichier PDF a été enregistré avec succès dans le dossier : " & chemin
End Sub

Merci mais je fais comment pour l'intégrer

clausen · Lundi à 14:13

J'ai réussis à l'intégrer Merci tout baigne Merci encore pour toutes ces questions

clausen · Lundi à 14:16

J'ai parlé trop vite

Une facture écrase l'autre

Est-ce qu'on ne pourrait pas mettre dans le nom la date et l'heure par exemple

clausen · Lundi à 14:20

Ou alors comment mettre un compteur sur la facture et le récupérer

cathodique · Lundi à 14:52

clausen à dit:
Ou alors comment mettre un compteur sur la facture et le récupérer

C'est pour cela qu'il est recommandé de joint un fichier.

cathodique à dit:
"\NomDuFichier.pdf"

à remplacer par:

cathodique à dit:
"\NomDuFichier " & Now & ".pdf"

Phil69970 · Lundi à 15:29

Bonjour à tous

@cathodique

Aie aie aie !!!! @clausen va avoir des surprises

Mais je dis ça je dis rien car c'est la période des surprises !!!

cathodique à dit:
C'est pour cela qu'il est recommandé de joint un fichier.

Et je plussoie @cathodique car c'est souvent une demande sans fin ........

cathodique · Lundi à 15:51

Phil69970 à dit:
Bonjour à tous

@cathodique
Regarde la pièce jointe 1209214

Aie aie aie !!!! @clausen va avoir des surprises
Mais je dis ça je dis rien car c'est la période des surprises !!!

Et je plussoie @cathodique car c'est souvent une demande sans fin ........

@Phil69970 Autant pour moi. J'avais la tête ailleurs. Elle était en mode recherche de surprises. Merci pour ta rescousse.

@clausen : Je t'ai raconté des conneries dans mon précédent post#12. Le code va planter, les symboles de la date ne sont pas acceptées pour nommer un fichier. Utilise plutôt un numéro de facture dans une cellule pour composer le nom de ton fichier.

Ci-dessous code corrigé

VB:

Sub Enregistrer_FeuilleEnPDF()
   Dim Ch As String
   Dim chemin As String
   Dim dossier As String
   Dim NomDuFichier As String
   Dim DateHeure As String
   ' Chemin de base
   Ch = ThisWorkbook.Path
   ' Dossier cible
   dossier = "factures en cours"
   ' Chemin complet
   chemin = Ch & "\" & dossier
   'date + heure formatées pour etre accepté
   DateHeure = FORMAT(Now, "yyyy-mm-dd_hh-mm-ss")
   NomDuFichier = "facture " & DateHeure & ".pdf"
   ' Vérifiez si le dossier existe
   If Dir(chemin, vbDirectory) = "" Then
      ' Si le dossier n'existe pas, créez-le
      MkDir chemin
   End If

   ' Enregistrez la feuille de calcul en PDF dans le dossier
   ' Remplacez "NomDeLaFeuille" par le nom de votre feuille à enregistrer
   ThisWorkbook.Sheets(""Feuil2"").ExportAsFixedFormat Type:=xlTypePDF, _
                                                   Filename:=chemin & "\" & NomDuFichier, _
                                                   Quality:=xlQualityStandard, _
                                                   IncludeDocProperties:=True, _
                                                   IgnorePrintAreas:=False, _
                                                   OpenAfterPublish:=False

   MsgBox "Le fichier PDF a été enregistré avec succès dans le dossier : " & chemin
End Sub

clausen · Lundi à 17:20

cathodique à dit:

@Phil69970 Autant pour moi. J'avais la tête ailleurs. Elle était en mode recherche de surprises. Merci pour ta rescousse.

@clausen : Je t'ai raconté des conneries dans mon précédent post#12. Le code va planter, les symboles de la date ne sont pas acceptées pour nommer un fichier. Utilise plutôt un numéro de facture dans une cellule pour composer le nom de ton fichier.

Ci-dessous code corrigé

VB:

Sub Enregistrer_FeuilleEnPDF()
   Dim Ch As String
   Dim chemin As String
   Dim dossier As String
   Dim NomDuFichier As String
   Dim DateHeure As String
   ' Chemin de base
   Ch = ThisWorkbook.Path
   ' Dossier cible
   dossier = "factures en cours"
   ' Chemin complet
   chemin = Ch & "\" & dossier
   'date + heure formatées pour etre accepté
   DateHeure = FORMAT(Now, "yyyy-mm-dd_hh-mm-ss")
   NomDuFichier = "facture " & DateHeure & ".pdf"
   ' Vérifiez si le dossier existe
   If Dir(chemin, vbDirectory) = "" Then
      ' Si le dossier n'existe pas, créez-le
      MkDir chemin
   End If

   ' Enregistrez la feuille de calcul en PDF dans le dossier
   ' Remplacez "NomDeLaFeuille" par le nom de votre feuille à enregistrer
   ThisWorkbook.Sheets("icad").ExportAsFixedFormat Type:=xlTypePDF, _
                                                   Filename:=chemin & "\" & NomDuFichier, _
                                                   Quality:=xlQualityStandard, _
                                                   IncludeDocProperties:=True, _
                                                   IgnorePrintAreas:=False, _
                                                   OpenAfterPublish:=False

   MsgBox "Le fichier PDF a été enregistré avec succès dans le dossier : " & chemin
End Sub

XL 2021 Macro pour imprimer depuis la feuil1 la feuil2

clausen

XLDnaute Occasionnel

OKBI

XLDnaute Junior

clausen

XLDnaute Occasionnel

cathodique

XLDnaute Barbatruc

clausen

XLDnaute Occasionnel

cathodique

XLDnaute Barbatruc

clausen

XLDnaute Occasionnel

clausen

XLDnaute Occasionnel

clausen

XLDnaute Occasionnel

clausen

XLDnaute Occasionnel

clausen

XLDnaute Occasionnel

cathodique

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

clausen

XLDnaute Occasionnel

Pièces jointes

Discussions similaires