XL 2021 Macro pour imprimer depuis la feuil1 la feuil2

[clausen]

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]

Bonsoir,

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

Cdt

 

[clausen]

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

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

 

[cathodique]

comment vous dédommager pour toutes mes demandes.

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

 

[clausen]

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]

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]

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.

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]

Bonjour,

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

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]

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

 

[clausen]

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]

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

 

[cathodique]

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.

"\NomDuFichier.pdf"

à remplacer par:

"\NomDuFichier " & Now & ".pdf"

 

[Phil69970]

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

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]

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é

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]

@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é

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