Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2014 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  imprimer un fichier excel depuis visual basic 6

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

imprimer un fichier excel depuis visual basic 6

n°1517290
xenografte​r2
Posté le 20-02-2007 à 21:13:01  profilanswer
 

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

mood
Publicité
Posté le 20-02-2007 à 21:13:01  profilanswer
 

n°1518368
aprilthe5i​th
Posté le 22-02-2007 à 15:26:34  profilanswer
 

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

n°1518374
aprilthe5i​th
Posté le 22-02-2007 à 15:28:55  profilanswer
 

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

n°1518387
aprilthe5i​th
Posté le 22-02-2007 à 15:40:55  profilanswer
 

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.
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  imprimer un fichier excel depuis visual basic 6

 

Sujets relatifs
parser un fichier html avec phpUpload de fichier sur un disque depuis une page asp.net
[Java][Shell] Transfert de fichier par FTPSupprimer les dernières lignes d'un fichier.
.[VBS] supprimer les 2 premiere ligne d'un fichier
éxécuter un fichier php à partir d'un autre (avec get)formule excel: faire varier la référence d'une cellule
[OLE]Creation de fichier OOo 
Plus de sujets relatifs à : imprimer un fichier excel depuis visual basic 6


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR