Discussion :

[fredym]

Bonjour,
Je voudrais à partir de la feuille 1 afficher l'aperçu de la feuille 2 ( plage A2:L20).
L'aperçu doit comporter 2 menus (imprimer et fermer l'aperçu) sans autre option, pour à la sortie arriver sur la question 'enregistrer en pdf ou annuler.

j'ai tenté ceci (qui n'est pas bon...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
sub apercu()
 
Application.Dialogs(xlDialogPrintPreview).Show false arg1:=Sheets(feuille2) ' erreur dans le code
 
Dim retour As Byte
     r = (MsgBox " Enregistrer le document ? " & vbYesNo + vbquestion, " sauvegarde")
       If (r = 7) then
        exit sub
       End If
 
(si oui):
enregistrement ...
sub End

Merci de votre patience!

[Pierre Fauconnier]

Salut.

Il faut respecter la syntaxe. Si tu as une ligne en rouge, c'est qu'il y a un problème de syntaxe qu'il faut régler. Normalement, tu as une aide avec infobulle lorsque tu saisis ton code et que tu types bien les variables.



Dans l'illustration ci-dessus, tu vois que l'infobulle t'aide pour la saisie, en mettant en gras l'argument qui est attendu. En VBA, les arguments sont séparés par des virgules, et tu peux suivre ce qui t'est demandé.

La variable utilisée pour la réponse au MsgBox peut être typée VbMsgBoxResult. De cette façon, tu n'as pas besoin de connaître la valeur de la réponse (6 ou 7, par exemple), car le VBE te proposera la liste des constantes nommées disponibles:




De plus, il est plus intéressant de tester qu'on a répondu OUI (vbYes) plutôt que de sortir avec un Exit Sub sur le vbNo (Je déteste les EXIT et j'explique pourquoi)


Voici quelque chose qui devrait ressembler à ce que tu souhaites réaliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub apercu()
  Dim r As VbMsgBoxResult
 
  Feuil2.PrintPreview
  r = MsgBox("Enregistrer le document?", vbYesNo + vbQuestion, "sauvegarde")
  If r = vbYes Then ThisWorkbook.Save
End Sub

PS: Il est préférable de démarrer une nouvelle discussion lorsque le problème rencontré sort du cadre de la discussion initiale. Je l'ai fait pour toi sur ce message

[fredym]

Merci pour les remarques constructives, j'exit le 'exit sub' du code

Je poursuis le chantier!

Merci et bonne journée
Fredym