Boutons de controles !!!

[demax]

Bonsoir
je souhaiterais creer un bouton
-enregistrer sous
-imprimer
-fermer(excel)
oui je demande beaucoup de choses 😛
comme ca je me mets plein ecran et j'ai les fonctions principales😀
voila si vous avez quelques chose pour moi merci

 

[roro69]

Re : Boutons de controles !!!

Bonsoir
Tu insère un bouton ;tu lui affectes cette macro(avec l'enregistreur de macro tu peut la faire toi meme)

Sub DEMAX()

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\??\Mes documents\NomdetonClasseur1.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWorkbook.Close
End Sub

A++

 

[PascalXLD]

Re : Boutons de controles !!!

Bonjour

TU veux un bouton qui te fasse ces 3 choses à la suite ou un bouton qui te permette de choisir ces choses ?

 

[demax]

Re : Boutons de controles !!!

ouha roro69 tu n'y pas par 4 chemins😱
oui PascalXLD je voudrais avoir 3 boutons differents
mais avec le code de roro69 je vais pouvoir me debrouiller🙄
merci les gars

 

[demax]

Re : Boutons de controles !!!

Alors il y a des problems
imprimer ne marche pas

Sub imprimer()
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

pour enregistrer en fait j'aurais voulu enregistrer sous pour ce faire des copies

Sub enregistrer()
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Administrateur\Mes documents\Bordereau.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

et fermer c'est possible fermer completement le logiciel?
Là il ferme que la feuille

Sub fermer()
ActiveWorkbook.Close
End Sub

Mais deja C bien cool merci beaucoup🙂

 

[roro69]

Re : Boutons de controles !!!

Re
Voici les codes un beu revu
Pour quitter:

Sub fermer
Application.Quit
ThisWorkbook.Close SaveChanges:=True
End Sub

POur faire une sauvegrde du classeur

Sub sauve
Dim Chemin As String, Fichier As String
Chemin = "C:\Documents and Settings\Administrateur\Mes documents\"
Fichier = "Bordereau.xls"
ActiveWorkbook.SaveCopyAs Chemin & Fichier
End sub

Pour IMprimer

Sub Imprime
ActiveSheet.PrintOut
End sub

A++

 

[demax]

Re : Boutons de controles !!!

Tres bien roro69!😉
par contre c'est possible d'avoir la fenetre qui s'ouvre pour :
-enregistrer sous(pour eventuellement changer le nom du fichier
et imprimer pareil les parametres d'impression me seront utiles
merci++

 

[PascalXLD]

Re : Boutons de controles !!!

Re

pour l'enregistrement

Sub sauve()
Application.Dialogs(xlDialogSaveAs).Show
end sub

 

[PascalXLD]

Re : Boutons de controles !!!

re

pour l'impression

Sub Imprime()
Application.Dialogs(xlDialogPrint).Show
end sub

 

[demax]

Re : Boutons de controles !!!

Ca marche nickel PascalXLD comme je voulais C magique🙂
merci merci merci à roro69 aussi et toute la planete! oula