bonsoir
 
j'ai creer un petit projet en vb6  
 
et je souhaiterais creer un bouton qui lorsque l'on appuis dessus permet d'ouvrir un fichier excel precedemment creer et me propose de l'imprimer
 
le fichier s'apelle A.xls
il se trouve sur c:\A.xls
 
je souhaiterais obtenir le code nécéssaire lié a ce bouton pour ouvrir ce fichier a chaque fois que je clique dessus  
 
merci pour votre aide

Code :
 
sub ouvretimprime()
 
dim MyBk as workbook, MySht as worksheet
 
Set MyBk = Workbooks.Open(Filename:="C:\A.xls" )
Dim MyBox As Integer
retour = MsgBox("Imprimer ce fichier ?", vbYesNo, "Titre de la boîte" )
     If retour = vbYes Then ThisWorkbook.PrintOut

Désolé pour le précédent envoi, fausse manoeuvre,
 
Voici le vrai code :
 
sub ouvretimprime()
 
dim MyBk as workbook, MySht as worksheet
Dim MyBox As Integer
 
Set MyBk = Workbooks.Open(Filename:="C:\A.xls" )
MyBox= MsgBox("Voulez-vous imprimer ce fichier ?", vbYesNo, "Impression" )
If retour = vbYes Then MyBk.PrintOut
 
end sub

Décidément... voici le bon code :
 
sub ouvretimprime()
 
dim MyBk as workbook, MySht as worksheet
Dim MyBox As Integer
 
Set MyBk = Workbooks.Open(Filename:="C:\A.xls" )
MyBox= MsgBox("Voulez-vous imprimer ce fichier ?", vbYesNo, "Impression" )
If MyBox = vbYes Then MyBk.PrintOut
 
end sub
 
Pour mettre cette macro dans un bouton dans Excel :
 
tu colles le code précédent dans l'éditeur vba (alt+F11) et tu enregistres ce classeur (vide par ailleurs) où tu veux.
Tu laisses ce classeur ouvert pour le moment et tu fais dans Excel :
 
Clic droit dans la barre de menus : "personnaliser..."
Dans la boite qui s'affiche, dans la colonne de gauche : "Macros"
Dans la colonne de droite: clic et glisse "Elément de menu personnalisé" vers la bare de menus.
Clic droit dessus : tu changes so nom
Clic droit de nouveau dessus : "Affecter une macro"
Là, une fenêtre te propose la liste de tes macros ;tu la choisis.
tu fermes la fenêtre et tu peux fermer ton classeur.
Le bouton sera toujours présent qq soit le classeur ouvert et ira bien checher la macro ou elle se trouve.