XL 2021 Macro pour imprimer depuis la feuil1 la feuil2

clausen à dit:

comment vous dédommager pour toutes mes demandes.

Cliquez pour agrandir...

OKBI à dit:

Bonsoir,

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

Cdt

Cliquez pour agrandir...

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

clausen à dit:

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

Cliquez pour agrandir...

cathodique à dit:

"\NomDuFichier.pdf"

Cliquez pour agrandir...

cathodique à dit:

"\NomDuFichier " & Now & ".pdf"

Cliquez pour agrandir...

cathodique à dit:

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

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

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

Cliquez pour agrandir...