Un peu d'aide SVP !

@

@Christophe@

Guest

• 15 Juin 2003

• #2

Bonjour,

Ben c'est pas trop compliqué, tu affiche via menu Affichage le Boite à outils de Contrôle, tu ajoutes un Command Button sur ta feuille

Ensuite tu ajoutes le code suivant à ton bouton et le tour est joué

Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogSaveAs).Show
End Sub

@Christophe@

 

Vote positif 0 Vote négatif

T

thefa

Guest

• 15 Juin 2003

• #3

Merci mais est il possible de modifier le nom du bouton car il le nomme "commandbutton1" et comment le deplacer aussi...

merci d'avance !!

 

Vote positif 0 Vote négatif

T

thefa

Guest

• 15 Juin 2003

• #4

C'est bon j'ai trouvé !!!!

Sans vouloir abuser de votre générosité pourriez vous me donner le code lancer une impression et pour lancer l'icone ouvrir !!

Merci bcp !!!

 

Vote positif 0 Vote négatif

A

Alain

Guest

• 15 Juin 2003

• #5

Bonjour,


Pour lancer une impression :


ActiveSheet.PrintOut ou ActiveSheet.PrintPreview (pour l'aperçu)

Pour ouvrir un fichier :

Application.Dialogs(xlDialogOpen).Show


@+

 

Vote positif 0 Vote négatif

M

mouad

Guest

• 15 Juin 2003

• #6

merci pour enregistrer sous selement en ce qui concerne imprimer par page;ca marche pas; vouler vous jeter 1 coup doeil
merci davance

 

Vote positif 0 Vote négatif

P

petchy

Guest

• 15 Juin 2003

• #7

salut mouad

essaye peut etre se code

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

petchy

 

Vote positif 0 Vote négatif