XL 2013 Insérer le contenu d'une cellule dans un Userform.

PatLac

XLDnaute Occasionnel
Bonjour à tous,
Je cherche à insérer le contenu d'une cellule qui se trouve en feuil2 (masquée), dans un Userform.
Quelqu'un a une idée ?
D'avance Merci.
;)
 

Pièces jointes

  • Test.xlsm
    15.2 KB · Affichages: 8

PatLac

XLDnaute Occasionnel
Je reviens vers vous, j'aurais encore besoin de vos lumières:
Dans l'exemple ci-joint je voudrais imprimer la "feuil2" toujours masquée.
Pour ce faire, il faudrait qu'elle s'ouvre (la Feuil2) à la commande, qu'elle s'imprime, et que dans la foulée elle se re-masque.
Vous pouvez m'aider ?
;)
 

Pièces jointes

  • Classeur1.xlsm
    16.5 KB · Affichages: 4

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir,
Testez cette PJ avec :
VB:
Sub Rectangle1_Cliquer()
Application.ScreenUpdating = False
With Sheets("Feuil2")
    .Visible = -1
    .Select
    Range("a1:k20").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$k$20"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    .Visible = 0
End With
Sheets("Feuil1").Select
Range("A1").Select
Application.ScreenUpdating = True
End Sub
On fige l'écran, on rend visible Feuil2 qu'on ne voit pas car l'écran est figé.
On imprime et on masque Feuil2.
 

Pièces jointes

  • Classeur1.xlsm
    16.5 KB · Affichages: 5

PatLac

XLDnaute Occasionnel
Bonjour, Je reviens (une nouvelle fois) vers vous.
J'aurais besoin de créer un PDF de la "feuil2" (toujours cachée) et de l'enregistrer sur C:/TOTO.
Vous avez une idée ?
D'avance merci.
 

Pièces jointes

  • Classeur2.xlsm
    16.2 KB · Affichages: 1

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour,
Idem dans sa structure que la macro d'impression :
VB:
Sub EnregPDF()
Chemin = "C:\Users\PC_PAPA\Desktop\XLD\"    ' Modifier le chemin
NomFichier = "EssaiEnPDF.pdf"               ' Modifier le nom du chemin, ou le construire ( avec la date par ex )
Application.ScreenUpdating = False
With Sheets("Feuil2")
    .Visible = -1
    .Select
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & NomFichier, Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    .Visible = 0
End With
Sheets("Feuil1").Select
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Penser à modifier Chemin et NomFichier.
 

Pièces jointes

  • Classeur2.xlsm
    18.4 KB · Affichages: 2

Discussions similaires

  • Résolu(e)
Microsoft 365 Taille UserForm
Réponses
3
Affichages
301

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T