XL 2010 Aperçu, mise en page et impression userform

chakershaker · 25 Décembre 2020

Bonjour, après avoir remplir tous les champs de mon userform, je veux ajouter les commandes d'aperçu avant impression, d'ajustement et d'impression.
le problème encore que j'utilise le scrollbar puisque le fichier à imprimer doit comporter 2 à 3 pages normalement.
ya-t-il de solutions. si non est ce que je peux exporter sous forme de rapport pdf ou excel?

cp4 · 25 Décembre 2020

chakershaker à dit:
Re bonjour, merci beaucoup à vous, après exportation j'ai obtenu un du fichier pdf de 13 pages vides, alors que je doit fournir une liste qui contient tous les données dans les captures ci-dessous de préférence que je limite à 3 pages. je sais que je demande trop mais je voulais bien compléter ce document. merci à vous encore une fois.
Regarde la pièce jointe 1089890 Regarde la pièce jointe 1089891 Regarde la pièce jointe 1089892 Regarde la pièce jointe 1089893

Rebonjour,

Sur la base de ton fichier excel, ci-joint le fichier pdf généré par la macro.
Ce n'est pas du tout la même disposition.
La macro modifiée sur le conseil de Staple1600 pour le nom du fichier sans extension.

VB:

Option Explicit

Sub Enregitre_Feuille_En_PDF()
   Dim Chemin As String, NomFichier As String, Extension As String...

cp4 · 25 Décembre 2020

Bonjour,

Enregistre la feuille en pdf dans le même dossier du classeur. L'orientation de la page est style Paysage, la première colonne est répétée sur toutes les pages.

Edit : Code modifié

Bonne journée.

Staple1600 · 25 Décembre 2020

Bonjour le fil

=>cp4
[Juste pour infos]
NomFichier = Split(Dir(ThisWorkbook.Name), ".")(0)
peut poser problème

VB:

Sub Test()
Nomfichier = Split("nom.fichier.copie.xls", ".")(0)
MsgBox Nomfichier
End Sub

[/Juste pour infos]

cp4 · 25 Décembre 2020

Staple1600 à dit:
Bonjour le fil

=>cp4
[Juste pour infos]
NomFichier = Split(Dir(ThisWorkbook.Name), ".")(0)
peut poser problème

VB:

Sub Test() Nomfichier = Split("nom.fichier.copie.xls", ".")(0) MsgBox Nomfichier End Sub

[/Juste pour infos]

Bonjour Staple1600 ,

Je te remercie beaucoup d'avoir attiré mon attention. J'avoue ne pas y avoir pensé à cette éventualité.
Il faudrait donc trouver une solution pour prendre en compte l'extension du fichier.

Trois (3) lettres après le point à partir de la droite pour fichier en xls
Quatre (4) lettres après le point à partir de la droite pour fichier en xlsx, xlsm, xlsb, xlmt

Encore merci. Bonnes fêtes.

Staple1600 · 25 Décembre 2020

Re

=>cp4
Une syntaxe pour avoir le nom du fichier
(extrait d'un path)

VB:

Sub Test_II()
strPath = ThisWorkbook.FullName
Nomfichier = Mid(strPath, InStrRev(strPath, "\") + 1)
MsgBox Nomfichier
End Sub

cp4 · 25 Décembre 2020

Staple1600 à dit:
Re

=>cp4
Une syntaxe pour avoir le nom du fichier
(extrait d'un path)

VB:

Sub Test_II() strPath = ThisWorkbook.FullName Nomfichier = Mid(strPath, InStrRev(strPath, "\") + 1) MsgBox Nomfichier End Sub

Merci beaucoup @Staple1600.

chakershaker · 25 Décembre 2020

Re bonjour, merci beaucoup à vous, après exportation j'ai obtenu un du fichier pdf de 13 pages vides, alors que je doit fournir une liste qui contient tous les données dans les captures ci-dessous de préférence que je limite à 3 pages. je sais que je demande trop mais je voulais bien compléter ce document. merci à vous encore une fois.

cp4 · 25 Décembre 2020

chakershaker à dit:
Re bonjour, merci beaucoup à vous, après exportation j'ai obtenu un du fichier pdf de 13 pages vides, alors que je doit fournir une liste qui contient tous les données dans les captures ci-dessous de préférence que je limite à 3 pages. je sais que je demande trop mais je voulais bien compléter ce document. merci à vous encore une fois.
Regarde la pièce jointe 1089890 Regarde la pièce jointe 1089891 Regarde la pièce jointe 1089892 Regarde la pièce jointe 1089893

Rebonjour,

Sur la base de ton fichier excel, ci-joint le fichier pdf généré par la macro.
Ce n'est pas du tout la même disposition.
La macro modifiée sur le conseil de Staple1600 pour le nom du fichier sans extension.

VB:

Option Explicit

Sub Enregitre_Feuille_En_PDF()
   Dim Chemin As String, NomFichier As String, Extension As String
   Chemin = ThisWorkbook.Path & "\" 'chemin du classeur auquel on concatène \
   NomFichier = CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name) 'nom du classeur sans extension
   Extension = ".pdf"

   With ActiveSheet
      With .PageSetup
         .PrintArea = [A1].CurrentRegion.Address 'zone d'impression définie
         .PrintTitleColumns = "$A:$A" 'colonne à répéter sur toutes les pages
         .Orientation = xlLandscape 'orientation Paysage
      End With

      .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & NomFichier & Extension, Quality:=xlQualityStandard, _
                           IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
                           False
   End With
End Sub

A+

Staple1600 · 25 Décembre 2020

=>cp4
Juste pour infos (bis)
Certes, un conseil j'ai donné
Mais je n'ai point évoqué ceci
"NomFichier = CreateObject("Scripting.FileSystemObject")"
Car ce n'est pas compatible avec Mac
(ce qui fait donc un second potentiel problème )

cp4 · 25 Décembre 2020

Staple1600 à dit:
=>cp4
Juste pour infos (bis)
Certes, un conseil j'ai donné
Mais je n'ai point évoqué ceci
"NomFichier = CreateObject("Scripting.FileSystemObject")"
Car ce n'est pas compatible avec Mac
(ce qui fait donc un second potentiel problème )

En effet, tu n'as point donné ce que j'ai mis. J'ai fouiné dans mes petites archives et j'ai trouvé le code.
J'avoue encore une fois que je ne savais que celui-ci n'était pas compatible avec Mac.
Je l'ai utilisé dans cette ignorance car il se résumait à une ligne de code.

Encore merci pour la pertinence de tes interventions.

Bonne soirée.

Staple1600 · 25 Décembre 2020

Re

=>cp4
Juste pour infos (ter)
Tout ce qui est CreateObject dans est liè à l'environnement Windows.
Donc inaccessible à un OS Apple.
Et juste pour la route, une suggestion à tester
Ceci devrait suffire (pour ce qui concerne l'export PDF)


.ExportAsFixedFormat xlTypePDF, Chemin & NomFichier & Extension

cp4 · 25 Décembre 2020

Staple1600 à dit:
Re

=>cp4
Juste pour infos (ter)
Tout ce qui est CreateObject dans est liè à l'environnement Windows.
Donc inaccessible à un OS Apple.
Et juste pour la route, une suggestion à tester
Ceci devrait suffire (pour ce qui concerne l'export PDF)
.ExportAsFixedFormat xlTypePDF, Chemin & NomFichier & Extension

Encore merci. Cependant, je pense que j'ai lu de travers la demande de @chakershaker .
D'après son post#7 , il cherche à mettre en page et imprimer son userform. Ceci, me dépasse.

Bonne soirée.

chakershaker · 26 Décembre 2020

Merci beaucoup

XL 2010 Aperçu, mise en page et impression userform

chakershaker

XLDnaute Junior

Pièces jointes

cp4

cp4

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

chakershaker

XLDnaute Junior

cp4

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

chakershaker

XLDnaute Junior

Discussions similaires