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

[chakershaker]

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]

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]

Bonjour le fil

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

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

[/Juste pour infos]

 

[cp4]

Bonjour le fil

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

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.

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

Encore merci. Bonnes fêtes.

 

[Staple1600]

Re

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

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

 

[cp4]

Re

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

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

Merci beaucoup @Staple1600.

 

[chakershaker]

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]

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.

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]

=>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]

=>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]

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]

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]

Merci beaucoup