fattosh
Messages postés38Date d'inscriptionlundi 11 avril 2011StatutMembreDernière intervention26 avril 2011
-
13 avril 2011 à 10:54
fattosh
Messages postés38Date d'inscriptionlundi 11 avril 2011StatutMembreDernière intervention26 avril 2011
-
26 avril 2011 à 10:51
Actuellement étudiant je viens de me mettre à VB6 pour mon plaisir personnel, en attaquant par de petite interface graphique, malheureusement tout ce qui se reporte au script est peu compréhensible pour moi.
Je vous présente grossièrement mon interface:
Dans ma liste déroulante j'ai 8 noms de tours aéroréfrigérantes, pour chacune de ces tours j'ai 2 fichiers exel (suivi de consommation et suuvi légio) et 2 fichiers word (description de la tour et expertise d'expert).
Le but est de selectionner la tour qui m'intéresse, appuyer sur exécuter là la liste des 4 fichiers (2 word + 2 exel) apparait dans ma filelistbox, je selectionne celui qui m'intéresse et je l'ouvre(lecture seule), le modifie(ouverture + modification) ou l'imprime
Voilà l'image c'est juste un plan de l'usine...
J'ai réussie à remplir la liste déroulante (je sais je sais c'est pas grand chose ); et j'aurais besoin d'aide pour la suite.
biolo24fr
Messages postés87Date d'inscriptionjeudi 16 janvier 2003StatutMembreDernière intervention28 mai 20131 13 avril 2011 à 16:35
Déjà tu vas rajouter avec ta filelistbox des masques de fichiers ça t'évitera d'avoir des extensions non voulu
donc tu rajoute dans la propriété Pattern seulement : *.xls;*.doc
on filtre déjà sur les xls et doc
Ensuite appelons ta combobox comboxbox1
tu vas double cliquer dessus tu rentreras dans le code : tu replace le change par click
tu mets ça :
Private Sub Combo1_Click()
Select Case Me.Combo1.Text
Case "Chabal (Fonderie)"
File1.Path = "D:\Dossiers1"
Case "tours aéro 2"
File1.Path = "D:\Dossiers2"
.......etc...
End Select
End Sub
-----------------------------------------------------------------------------------------------------------
De tous ceux qui n'ont rien à dire, les plus agréables sont ceux qui se taisent.
biolo24fr
Messages postés87Date d'inscriptionjeudi 16 janvier 2003StatutMembreDernière intervention28 mai 20131 18 avril 2011 à 13:21
une librairie c'est des fonctions ou des méthodes déjà conçu, prête à l'emploi. Style quand tu fais appel à "xlApp.Workbooks.Open" la méthode open est déjà implémenté. ça fait appel à des classes avec ou sans paramètres. Est ce que ça fonctionne maintenant?
-----------------------------------------------------------------------------------------------------------
De tous ceux qui n'ont rien à dire, les plus agréables sont ceux qui se taisent.
biolo24fr
Messages postés87Date d'inscriptionjeudi 16 janvier 2003StatutMembreDernière intervention28 mai 20131 18 avril 2011 à 13:31
menu : Projet >> Références
-----------------------------------------------------------------------------------------------------------
De tous ceux qui n'ont rien à dire, les plus agréables sont ceux qui se taisent.
il suffit juste que tu regardes l'extension du fichier pour faire soit excel ou soit les .doc
ps : n'oublie pas d'ajouter la référence à word....
-----------------------------------------------------------------------------------------------------------
De tous ceux qui n'ont rien à dire, les plus agréables sont ceux qui se taisent.
Vous n’avez pas trouvé la réponse que vous recherchez ?
biolo24fr
Messages postés87Date d'inscriptionjeudi 16 janvier 2003StatutMembreDernière intervention28 mai 20131 19 avril 2011 à 12:28
Oui c'est normal dans ta méthode Cmd_ouvrir_Click() tu ouvres excel et word en même temps lol mdr
je t'avais dit de tester l'extension du fichier :
tu as les erreurs car :
-.doc =>erreur d'execution 1004 : c'est parce que tu essayes d'ouvrir le fichier excel avec word
- .xls --> tu as déjà ouvert le fichier avec word au dessous c'est pourquoi il te met l'erreur que le fichier est déjà utilisé.
Bon donc tu vas remplacer tout dans Cmd_ouvrir_Click() par :
SELECT CASE Right(File1.FileName,4) 'tu prends les 4 dernier caractère du nom du fichier
Case ".doc"
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open(File1.Path & "" & File1.FileName, ReadOnly:=True)
Case ".xls"
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
xlApp.Visible = True
xlApp.Workbooks.Open FileName:=File1.Path & "" & File1.FileName, ReadOnly:=xlYes
END SELECT
Attention avec le nouveau format xls et doc, les extensions sont xlsx et docx, je te laisse donc adapter...
---------------------------------------------------------------------------------------------------------------
De tous ceux qui n'ont rien à dire, les plus agréables sont ceux qui se taisent.
du coup ton objet xlApp est vide. il ne sait pas quoi imprimer...
-----------------------------------------------------------------------------------------------------------
De tous ceux qui n'ont rien à dire, les plus agréables sont ceux qui se taisent.
fattosh
Messages postés38Date d'inscriptionlundi 11 avril 2011StatutMembreDernière intervention26 avril 2011 13 avril 2011 à 14:47
Bonjour
Mes fichiers sont tous appelés pareils, c'est-à -dire que j'ai 8 dossiers nommés par le noms des tours aéro et dans chaque dossiers j'ai:
-suivi_conso
-suivi_légio
-description
-déclaration
biolo24fr
Messages postés87Date d'inscriptionjeudi 16 janvier 2003StatutMembreDernière intervention28 mai 20131 13 avril 2011 à 16:39
désolé
ensuite il suffit d'ouvrir le fichier sur lequel l'utilisateur a cliqué.
-----------------------------------------------------------------------------------------------------------
De tous ceux qui n'ont rien à dire, les plus agréables sont ceux qui se taisent.
biolo24fr
Messages postés87Date d'inscriptionjeudi 16 janvier 2003StatutMembreDernière intervention28 mai 20131 13 avril 2011 à 17:01
sur le bouton ouvrir tu doubles cliques et tu mets ça :
Dim wb As Workbook
Dim ws As Worksheet
Dim var As Variant
Set xlApp = New Excel.Application
'Ouvrir en lecture seule
Set wb = xlApp.Workbooks.Open("D:\CRA" & File1.FileName, , ReadOnly:=True)
'Ouvrir avec modification
Set wb = xlApp.Workbooks.Open("D:\CRA" & File1.FileName)
xlApp.Visible = True
Voilà j'espère que ça t'aidera.
-----------------------------------------------------------------------------------------------------------
De tous ceux qui n'ont rien à dire, les plus agréables sont ceux qui se taisent.
fattosh
Messages postés38Date d'inscriptionlundi 11 avril 2011StatutMembreDernière intervention26 avril 2011 14 avril 2011 à 09:01
Bonjour,
Je ne comprend pas lorsque je clique sur le bouton ouvrir j'ai un message qui apparait: "type défini par l'utilisateur non défini" avec wb as workbook surligné...
biolo24fr
Messages postés87Date d'inscriptionjeudi 16 janvier 2003StatutMembreDernière intervention28 mai 20131 14 avril 2011 à 09:46
il faut que tu ajoute une référence à Excel COM : "Microsoft Excel <%version%> object library"
-----------------------------------------------------------------------------------------------------------
De tous ceux qui n'ont rien à dire, les plus agréables sont ceux qui se taisent.
fattosh
Messages postés38Date d'inscriptionlundi 11 avril 2011StatutMembreDernière intervention26 avril 2011 14 avril 2011 à 13:11
Hahaha je crois savoir d'où vient mon problème, je n'ai tout simplement pas microsoft office sur mon ordianteur, je n'ai qu'oppen office (ubuntu oblige)
-----------------------------------------------------------------------------------------------------------
De tous ceux qui n'ont rien à dire, les plus agréables sont ceux qui se taisent.
fattosh
Messages postés38Date d'inscriptionlundi 11 avril 2011StatutMembreDernière intervention26 avril 2011 18 avril 2011 à 09:51
Bonjour à tous !
Voilà j'aimerais faire marcher mes trois boutons de mon interface mais y'a rien n'a faire je n'y arrive pas. Mon but serez d'ouvrir les fichiers présent dans la filelistebox (que se soit .doc ou .xls) avec word ou excel suivant leur extension.
Il y a un bouton ouvrir -> Lecture seul
modifier-> Ouverture
imprime-> commondialog
Voici mon code:
[i]
Private Sub Cbo_TAR_Click()
Select Case Me.Cbo_TAR.Text
Case "Chabal (Fonderie)"
File1.Path = "C:\Users\Antoine\Desktop\STAGE\CHABAL"
Case "DSR (Tôlerie)"
File1.Path = "C:\Users\Antoine\Desktop\STAGE\DSR"
Case "PF 301 (Filage)"
File1.Path = "C:\Users\Antoine\Desktop\STAGE\PF301"
Case "F 132 (Fonderie refusion copeaux)"
File1.Path = "C:\Users\Antoine\Desktop\STAGE\F132"
Case "F 212/219 (Atelier Tôles Fortes)"
File1.Path = "C:\Users\Antoine\Desktop\STAGE\F212-219"
Case "F 230 (Atelier Tôles Fortes)"
File1.Path = "C:\Users\Antoine\Desktop\STAGE\F230"
Case "F 233 (Atelier Tôles Fortes)"
File1.Path = "C:\Users\Antoine\Desktop\STAGE\F233"
Case "F 235 (Atelier Tôles Fortes)"
File1.Path = "C:\Users\Antoine\Desktop\STAGE\F235"
End Select
End Sub
Private Sub Cmd_imprimer_Click(Index As Integer)
CD_imp.ShowPrinter
End Sub
Private Sub Cmd_modifier_Click(Index As Integer)
Dim wb As Workbook
Dim ws As Worksheet
Dim vas As Variant
Set xlApp = New Excel.Application
Set wb xlApp.Workbooks.Open("C:\Users\Antoine\Desktop\STAGE" & File1.FileName, xlApp.Visible True)
End Sub
Private Sub Cmd_ouvrir_Click()
Dim wb As Workbook
Dim ws As Worksheet
Dim vas As Variant
Set xlApp = New Excel.Application
Set wb xlApp.Workbooks.Open("C:\Users\Antoine\Desktop\STAGE" & File1.FileName, ReadOnly True)