• Initiateur de la discussion Initiateur de la discussion br44
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

br44

XLDnaute Impliqué
Bonsoir le forum

1°) J'ai petite question qui va vous sembler bête ,mais qui me serai util . Voilà j'aimerai savoir dans quel partie d'un classeur doit-on commencer un program en VBA quand il n'y pas d'UserForm ?

2°) Est-il possible d'ouvrir en VBA un classeur directement sur " L' Apperçu saut page" ? et si oui quel serai cette procèdure .


Merci d'avance à tous ceux et toutes celles qui prendront quelques minutes sur se post . A bientôt
br44
 
Re : Questions au Forum

Bonjour BR44,

Pour ta première question il suffit de créer un nouveau module (insertion\module sous l'éditeur VB).

Pour ta seconde question voici un bout de code :
Code:
Private Sub Workbook_Open()
 ActiveWindow.SelectedSheets.PrintPreview
End Sub

A tester.

Bye bye
 
Re : Questions au Forum

re: Bonjour ,le forum Simmon

Bon comme je convenu je te tient au courant suite au teste de ta procèdure .Hèlas elle fonctionne pas mais je crois que cela vient de l'enssemble de ma methode que j'utilse pour le faire .

Donc je te mets ma procédure à suivre Si tu vois où cela peut bloquer moi j'ai une erreur de type 13 de signaler alors ?????

Voici où j'enb suis :

Private Sub CommandButton5_Click() 'Bouton "Imprimer les Fiches"
'Déclare les variables Wb1
Dim Wb1 As Workbook

'Dèfinit les varibles Wb1
Set Wb1 = Workbooks.Open(Chemin)

'Dèfinit la zonne D'impression
Sheets(Mois).PageStup.PrintArea
'Definit l'apperçu avant l'impression
Sheets(Mois).Select.PrintPreview
End Sub

Pour info : Wb1 ètant le classeur de destination que je veux imprimer

Bon en espèrant avoir ètè claire dans ma demande je te dis à plus sur ce fil et te souhaites de bonnes fêtes de noël . br44
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
884
P
  • Question Question
Réponses
1
Affichages
851
D
Réponses
2
Affichages
974
Daphnel
D
M
Réponses
7
Affichages
10 K
M
Y
Réponses
4
Affichages
5 K
yael2002
Y
M
Réponses
4
Affichages
2 K
M
M
Réponses
0
Affichages
1 K
majestic12
M
N
Réponses
2
Affichages
656
Neonours
N
Retour