Gestion de fichiers pour interface graphiqueRésolu

Question

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.

Merci d'avance

biolo24fr · Accepted Answer

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 · Answer

est ce qu'il y a un moyen de distinguer tes fichiers selon un mot clé ou autre chose?

fattosh · Answer

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 · Answer

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.

fattosh · Answer

RE

Un grand merci à toi biolo24fr, j'ai même plus besoin de mon bouton exectuer.

Bon maintenant je passe à l'étape suivante, mes trois boutons.Si je n'y arrive pas seul, je reviendrais faire un petit tour par ici.

Encore merci Biolo24fr

biolo24fr · Answer

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 · Answer

RE 

Je regarderais ça demain, encore un grand merci, et si j'ai un problème, je reposterais un 'tit message ici.

Bonne continuation ;-)

fattosh · Answer

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 · Answer

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 · Answer

Hahaha je pense savoir d'où viens mon problème, je n'ai pas microsoft office sur mon ordinateur je n'ai qu'openoffice (ubuntu oblige).

fattosh · Answer

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)

biolo24fr · Answer

ça marche pareil... tu dois avoir de la doc sur ça...


ici.


-----------------------------------------------------------------------------------------------------------
De tous ceux qui n'ont rien à dire, les plus agréables sont ceux qui se taisent.

fattosh · Answer

Impossible de faire marcher mes boutons, j'abandonne pour aujourd'hui je regarderais à tête reposée.

fattosh · Answer

Bonsoir,

Quelqu'un pourrait-il m'aider pour le fonctionnement de mes boutons s'il vous plait ?

Merci d'avance

fattosh · Answer

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)

End Sub

Private Sub Form_Load()

Lbl_1.Caption = "Sélectionner une tour aéroréfrigérante :"
Cbo_TAR.AddItem "Veuillez sélectionne une TAR", 0
Cbo_TAR.AddItem "Chabal (Fonderie)", 1
Cbo_TAR.AddItem "DSR (Tôlerie)", 2
Cbo_TAR.AddItem "PF 301 (Filage)", 3
Cbo_TAR.AddItem "F 132 (Fonderie refusion copeaux)", 4
Cbo_TAR.AddItem "F 212/219 (Atelier Tôles Fortes)", 5
Cbo_TAR.AddItem "F 230 (Atelier Tôles Fortes)", 6
Cbo_TAR.AddItem "F 233 (Atelier Tôles Fortes)", 7
Cbo_TAR.AddItem "F 235 (Atelier Tôles Fortes)", 8
Cbo_TAR.ListIndex = 0
Img1.Picture = LoadPicture(App.Path & "\plan.jpg")

End Sub
/i


Merci d'avance pour votre aide.

biolo24fr · Answer

ce code ne marche qu'avec les produits microsoft...d'après ce que tu as mis tu n'as qu'openoffice non?

-----------------------------------------------------------------------------------------------------------
De tous ceux qui n'ont rien à dire, les plus agréables sont ceux qui se taisent.

fattosh · Answer

Non j'ai demandé microsoft office 2007 à un collègue, donc maintenant j'ai les deux, mais sa ne m'avance guère.

biolo24fr · Answer

c'est ReadOnly:=True pour la lecture seule. As-tu ajouté la librairie comme je t'avais dit? Y'as t-il un message d'erreur?
-----------------------------------------------------------------------------------------------------------
De tous ceux qui n'ont rien à dire, les plus agréables sont ceux qui se taisent.

fattosh · Answer

Ah non j'ai zappé la librairie, mais qu'est-ce qu'une librairie en fait ? Je comprend pas trop !

biolo24fr · Answer

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.

fattosh · Answer

Merci pour l'explication, mais je la trouve où cette librairie ?

biolo24fr · Answer

menu : Projet >> Références


-----------------------------------------------------------------------------------------------------------
De tous ceux qui n'ont rien à dire, les plus agréables sont ceux qui se taisent.

fattosh · Answer

Ok ok, bon je n'ai plus d'erreur de compilation,mais cela m'affiche "erreur d'exécution '1004'", je pense que c'est un souci de chemin.
Je regarde ça, et je vous tiens au jus.

Encore merci de votre patience.

fattosh · Answer

Bonjour, dans un dossier temp ce trouve tout : c'est-à-dire mon projet,mon form,mon plan.jpeg,et les 8 dossiers contenant mes différents fichiers.
Hors je n'arrive pas à les ouvrir, cela m'affiche erreur "d'execution 1004".
Je ne vois pas ce qui peut clocher.

biolo24fr · Answer

Tu vas mettre un messagebox avant d'ouvrir le fichier pour voir si c'est le bon de fichier :

Set xlApp = New Excel.Application 
'ici
MsgBox ("C:\Users\Antoine\Desktop\STAGE" & File1.FileName)
Set wb = xlApp.Workbooks.Open("C:\Users\Antoine\Desktop\STAGE" & File1.FileName, readonly:=true) 

ça te donnera le chemin qu'il essaye d'ouvrir

-----------------------------------------------------------------------------------------------------------
De tous ceux qui n'ont rien à dire, les plus agréables sont ceux qui se taisent.

fattosh · Answer

Re

En sachant que dans le dossier (par exemple) Chabal, il y a un dossier qui s'apelle "déclaration chabal.doc" quand je clique sur ouvrir (avec le MsgBox) il tente d'ouvrir C:\Users\Antoine\Desktop\STAGE\ déclaration chabal.doc

Le chemin m'a l'air bon, tout ce qui concerne mon interface et dans un dossier sur le bureau que j'ai appelé STAGE (mon projet,mon form,mon plan.jpeg,et les 8 dossiers contenant mes différents fichiers)

Je clique sur "ok"

Et il y a encore "erreur d'exécution '1004':
'C:\Users\Antoine\Desktop\STAGE\ déclaration chabal.doc' introuvable. Vérifiez l'orthographe du nom du classeur et la validité de l'emplacement.
Si vous essayer d'ouvrir le fichier à partir de la liste des fichiers (et le msg s'arrête là)"

fattosh · Answer

J'ai mis mon dossier STAGE directement dans la C:\, au cas où cela viendrait de là. Mais rien n'y fait toujours cette erreur d'execution 1004.

biolo24fr · Answer

c'est quoi l'espace entre "C:\Users\Antoine\Desktop\STAGE" et "déclaration chabal.doc" ???
Est ce que tu as essayé de mettre ce chemin dans ton explorateur windows pour voir si ça ouvrait bien le fichier? 

-----------------------------------------------------------------------------------------------------------
De tous ceux qui n'ont rien à dire, les plus agréables sont ceux qui se taisent.

fattosh · Answer

L'espace entre "C:\Users\Antoine\Desktop\STAGE" et "déclaration chabal.doc" c'est le dossier qui porte le nom de la tour concerné par exemple CHABAL, F230 (il y a 8 dossiers).

fattosh · Answer

Ce sont les dossiers que je sélectionne dans la liste déroulantes en fait.

biolo24fr · Answer

non ma question est la suivante : as-tu essayé de copier l'url que ça produit, telle que je la vois avec l'espace dans l'explorateur windows????car cette erreur ce produit quand le fichier n'existe pas...

-----------------------------------------------------------------------------------------------------------
De tous ceux qui n'ont rien à dire, les plus agréables sont ceux qui se taisent.

biolo24fr · Answer

y'as un espace dans le nom du fichier au début????

-----------------------------------------------------------------------------------------------------------
De tous ceux qui n'ont rien à dire, les plus agréables sont ceux qui se taisent.

fattosh · Answer

Non...

fattosh · Answer

re

bon je viens de changer un peu mon code, sa marche partiellement:
mon bouton modifier marche mais qu'avec les fichiers .xls pas avec les .doc
et le bouton ouvrir ne marche pour aucun des deux.

Voici le 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(File1.Path & "" & 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(File1.Path & "" & File1.FileName)
ReadOnly = True


End Sub
Private Sub Form_Load()

Lbl_1.Caption = "Sélectionner une tour aéroréfrigérante :"
Cbo_TAR.AddItem "Veuillez sélectionne une TAR", 0
Cbo_TAR.AddItem "Chabal (Fonderie)", 1
Cbo_TAR.AddItem "DSR (Tôlerie)", 2
Cbo_TAR.AddItem "PF 301 (Filage)", 3
Cbo_TAR.AddItem "F 132 (Fonderie refusion copeaux)", 4
Cbo_TAR.AddItem "F 212/219 (Atelier Tôles Fortes)", 5
Cbo_TAR.AddItem "F 230 (Atelier Tôles Fortes)", 6
Cbo_TAR.AddItem "F 233 (Atelier Tôles Fortes)", 7
Cbo_TAR.AddItem "F 235 (Atelier Tôles Fortes)", 8




Cbo_TAR.ListIndex = 0

Img1.Picture = LoadPicture(App.Path & "\plan.jpg")
Img2.Picture = LoadPicture(App.Path & "\logo.jpg")
/i

biolo24fr · Answer

ce n'est pas comme ça le readonly c'est comme ça :
Set wb = xlApp.Workbooks.Open(File1.Path & "" & File1.FileName, ,ReadOnly := True )

oui c'est normal avec les .doc il ne faut pas faire appelle à Workbook  car c'est pour les fichiers excel.

Pour word tu as le forum, regarde :

http://www.vbfrance.com/forum/sujet-OUVRIR-MODIFIER-WORD-DEPUIS-VB-NET_1234539.aspx

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.

fattosh · Answer

Ouep je suis daccord pour le readonly:=true, mais lorsque que je clique sur ouvrir rien ne se passe, sa cherche mais excel ne s'ouvre pas et je n'ai pas de msg d'erreur ?

fattosh · Answer

Re

je viens de modifier mon code:

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 xlApp As Excel.Application
Set xlApp = New Excel.Application
xlApp.Visible = True
xlApp.Workbooks.Open FileName:=File1.Path & "" & File1.FileName

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)


End Sub

Private Sub Cmd_ouvrir_Click()

Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
xlApp.Visible = True
xlApp.Workbooks.Open FileName:=File1.Path & "" & File1.FileName, ReadOnly:=xlYes

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)



End Sub

Private Sub Form_Load()

Lbl_1.Caption = "Sélectionner une tour aéroréfrigérante :"
Cbo_TAR.AddItem "Veuillez sélectionne une TAR", 0
Cbo_TAR.AddItem "Chabal (Fonderie)", 1
Cbo_TAR.AddItem "DSR (Tôlerie)", 2
Cbo_TAR.AddItem "PF 301 (Filage)", 3
Cbo_TAR.AddItem "F 132 (Fonderie refusion copeaux)", 4
Cbo_TAR.AddItem "F 212/219 (Atelier Tôles Fortes)", 5
Cbo_TAR.AddItem "F 230 (Atelier Tôles Fortes)", 6
Cbo_TAR.AddItem "F 233 (Atelier Tôles Fortes)", 7
Cbo_TAR.AddItem "F 235 (Atelier Tôles Fortes)", 8




Cbo_TAR.ListIndex = 0

Img1.Picture = LoadPicture(App.Path & "\plan.jpg")
Img2.Picture = LoadPicture(App.Path & "\logo.jpg")


End Sub




Mais j'ai encore des soucis:
Lorsque que je clique sur ouvrir:
-.doc =>erreur d'execution 1004
-.xls =>Ouvre le fichier sous le format excel mais aussi sous le format word (fichier word avec des sigles dedans)

Lorsque que je clique sur modifier:
-.doc => erreur d'execution 1004
-.xls => ouvre le fichier sous le format excel mais aussi sous le format word avec une fenêtre qui me dit que le fichier et déjà utiliser, lorsque je ferme cette fenêtre erreur d'execution 4198 qui s'affiche.

biolo24fr · Answer

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.

fattosh · Answer

Merci beaucoup de ta patience biolo24fr et de ton aide.

Ouè c'est ce que j'avais remarquer et j'essayais de régler ça avec un If mais c'était un peu la galère.

fattosh · Answer

Yes sa marche, bon il faut encore que je peaufine encore tout ça.

Encore un grand merci.

fattosh · Answer

Re

Je suis de retour pour une petite question,

Pour mon bouton imrpimer qu'est ce qui serais le plus simple pour moi:

le code suivant :

Select Case Right(File1.FileName, 4)
Case ".xls"
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
xlApp.Workbooks.Open FileName:=File1.Path & "" & File1.FileName
retour = MsgBox("Imprimer ce fichier ?", vbYesNo, "Imprimer")
    If retour = vbYes Then ThisWorkbooks.PrintOut
    
Case ".doc"
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open(File1.Path & "" & File1.FileName)
retour = MsgBox("Imprimer ce fichier ?", vbYesNo, "Imprimer")
    If retour = vbYes Then ThisDocuments.PrintOut
    
  
End Select


Ou alors utiliser un CommonDialog ?

biolo24fr · Answer

l'impression directe est le mieux bien sûr...

-----------------------------------------------------------------------------------------------------------
De tous ceux qui n'ont rien à dire, les plus agréables sont ceux qui se taisent.

fattosh · Answer

Bonjour bonjour, 

Encore un grand merci pour toute votre aide, je passe à l'installation de mon executable sur un autre pc que le mien, mon interface marche bien, sauf le bouton imprimer, lorsque que je clique dessus j'ai une erreur d'execution 424, je pense que cela vient du fait que j'ai 2imprimantes ?

Qu'en pensez-vous ? 

Voilà mon code final:
Private Sub Cbo_TAR_Click()

Select Case Me.Cbo_TAR.Text 'Selection de la liste déroulante
Case "Chabal (Fonderie)"
File1.Path = "C:\STAGE\CHABAL"
Case "DSR (Tôlerie)"
File1.Path = "C:\STAGE\DSR"
Case "PF 301 (Filage)"
File1.Path = "C:\STAGE\PF301"
Case "F 132 (Fonderie refusion copeaux)"
File1.Path = "C:\STAGE\F132"
Case "F 212/219 (Atelier Tôles Fortes)"
File1.Path = "C:\STAGE\F212-219"
Case "F 230 (Atelier Tôles Fortes)"
File1.Path = "C:\STAGE\F230"
Case "F 233 (Atelier Tôles Fortes)"
File1.Path = "C:\STAGE\F233"
Case "F 235 (Atelier Tôles Fortes)"
File1.Path = "C:\STAGE\F235"

End Select
End Sub



Private Sub Cmd_imprimer_Click(Index As Integer)

Select Case Right(File1.FileName, 4)
Case ".xls"
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
xlApp.Workbooks.Open FileName:=File1.Path & "" & File1.FileName
retour = MsgBox("Imprimer ce fichier ?", vbYesNo, "Imprimer") 'fenetre de confirmation d'impression
    If retour = vbYes Then ThisWorkbooks.PrintOut 'si oui on imprime
    
Case ".doc"
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open(File1.Path & "" & File1.FileName)
retour = MsgBox("Imprimer ce fichier ?", vbYesNo, "Imprimer") 'fenetre de confirmation d'impression
    If retour = vbYes Then ThisDocuments.PrintOut 'si oui on imprime
    
  
End Select
End Sub

Private Sub Cmd_modifier_Click(Index As Integer)

Select Case Right(File1.FileName, 4) 'filtration de l'extention
Case ".xls" 'filtration de l'extention
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
xlApp.Visible = True 'ouverture de la fenêtre visible
xlApp.Workbooks.Open FileName:=File1.Path & "" & File1.FileName 'ouverture du fichier sélectionner dans filelistbox

Case ".doc" 'filtration de l'extention
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True 'ouverture de la fenêtre visible
Set WordDoc = WordApp.Documents.Open(File1.Path & "" & File1.FileName) 'ouverture du fichier sélectionner dans filelistbox

End Select
End Sub

Private Sub Cmd_ouvrir_Click()

Select Case Right(File1.FileName, 4)
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 'ouverture en lecture seule

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) 'ouverture en lecture seule

End Select
End Sub

Private Sub Form_Load()

Lbl_1.Caption = "Sélectionner une tour aéroréfrigérante :" 'remplissage de la liste déroulante
Cbo_TAR.AddItem "Veuillez sélectionne une TAR", 0
Cbo_TAR.AddItem "Chabal (Fonderie)", 1
Cbo_TAR.AddItem "DSR (Tôlerie)", 2
Cbo_TAR.AddItem "PF 301 (Filage)", 3
Cbo_TAR.AddItem "F 132 (Fonderie refusion copeaux)", 4
Cbo_TAR.AddItem "F 212/219 (Atelier Tôles Fortes)", 5
Cbo_TAR.AddItem "F 230 (Atelier Tôles Fortes)", 6
Cbo_TAR.AddItem "F 233 (Atelier Tôles Fortes)", 7
Cbo_TAR.AddItem "F 235 (Atelier Tôles Fortes)", 8




Cbo_TAR.ListIndex = 0 'écriture par défaut dans la liste déroulante à l'ouverture

Img1.Picture = LoadPicture("C:\STAGE\plan.jpg") 'affichage du plan à l'ouverture
Img2.Picture = LoadPicture("C:\STAGE\logo.jpg") 'affichage du logo à l'ouverture


End Sub


Private Sub Form_Resize() 'fonction pour redimmensionnement des contrôles de la fenêtre lors de l'agrandissement de celle-ci

    Dim Feuille As Form

    Set Feuille = Screen.ActiveForm

    If (Feuille.WindowState = vbMinimized) Then

        Exit Sub

    End If

    Static Longueur As Long

    Static Hauteur As Long

    Dim PropLongueur As Single

    Dim PropHauteur As Single

    If ((Longueur > 0) And (Hauteur > 0)) Then

        PropLongueur = Feuille.Width / Longueur

        PropHauteur = Feuille.Height / Hauteur

        Dim Ctrl As Control

        On Error Resume Next

        For Each Ctrl In Feuille.Controls

            Ctrl.Left = CInt(Ctrl.Left * PropLongueur)

            Ctrl.Top = CInt(Ctrl.Top * PropHauteur)

            Ctrl.Width = CInt(Ctrl.Width * PropLongueur)

            Ctrl.Height = CInt(Ctrl.Height * PropHauteur)

        Next

        On Error GoTo 0

    End If

    Longueur = Feuille.Width
    Hauteur = Feuille.Height
End Sub


Encore merci d'avance...

biolo24fr · Answer

Tu trouves pas que ton code répéte toujours la même chose à une exception prêt (impression, lecture seule)... il faudrait faire une petite méthode avec paramètre qui gére tout non... du genre :


Private Sub Generedoc(Byval chemin as string,Byval lectureSeule as boolean,Byval  Impression as boolean)
   ' à implémenter selon les cas...
end sub


ensuite dans les méthodes clic tu fais appelle à la méthode...

En ce qui concerne ton cas erreur as-tu déclaré retour ????mais de toute façon pour la question voulez-vous imprimer écrit le plutôt comme ça :

If MsgBox("Imprimer ce fichier ?", vbYesNo, "Imprimer") = vbYes Then
    wb.PrintOut
End If


-----------------------------------------------------------------------------------------------------------
De tous ceux qui n'ont rien à dire, les plus agréables sont ceux qui se taisent.

fattosh · Answer

Re

Voilà je viens de créer l'executable de mon interface pour pouvoir la mettre sur n'importe quel ordinateur. 

Comme j'ai 2 imprimantes réliées à cette ordinateur j'ai voulu mettre une commondialog pour sélectionner l'imprimante que je veux utiliser.

Voilà le code pour mon bouton Imprimer

Private Sub Cmd_imprimer_Click(Index As Integer)
Select Case Right(File1.FileName, 4) 'Récupère les 4 derniers caractères
Case ".xls" 'Récupération de l'extension xls (fichier excel)
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
CommonDialog.ShowPrinter
xlApp.PrintOut

Case ".doc" 'Récupération de l'extension doc (fichier word)
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = CreateObject("Word.Application")
CommonDialog.ShowPrinter
WordApp.PrintOut

End Select
End Sub

La fenêtre sélectionner s'ouvre bien lorsque je clique sur le bouton, je peux bien sélectionner l'imprimante que je veux mais lorsque que je clique sur 'ok' il s'affiche:
"Erreur d'execution '4605' Cette methode n'est pas disponible car une fenêtre de document n'est pas active"

Comment dois-je faire, je ne comprend pas ?

biolo24fr · Answer

pourquoi avoir enlever 
xlApp.Workbooks.Open FileName:=File1.Path & "" & File1.FileName

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 · Answer

Yeah sa marche, j'ai rajouté un ligne xlApp.quit et wordApp.quit, car les fenêtre étaient certes pas visible mais elles étaient bien ouverte.

Voilà mon interface marche du feu de dieu .

Sa votre aide je pense qu'elle n'aurait jamais fonctionnée.

Encore un très grand merci pour votre aide et surtout pour votre patience.

Au revoir

biolo24fr · Answer

Y'as pas de mal...

-----------------------------------------------------------------------------------------------------------
De tous ceux qui n'ont rien à dire, les plus agréables sont ceux qui se taisent.

fattosh · Answer

Bonjour bonjour,

et oui je suis de retour, pour l'ultime question, la der des ders.

Voilà j'aimerais savoir s'il serait possible de rajouter les fichier .pdf à mon interface, donc s'il serait possible d'avoir un code (comme pour les fichiers excel et word) pour ouvrir, modifier et imprimer les fichiers pdf ??

biolo24fr · Answer

Salut,

C'est des pdf modifiable?

-----------------------------------------------------------------------------------------------------------
De tous ceux qui n'ont rien à dire, les plus agréables sont ceux qui se taisent.

fattosh · Answer

Non ce sont surtout des résultats d'analyses, déclaration qui sont envoyés par mail, donc pas modifiable!

biolo24fr · Answer

alors si c'est juste pour les ouvrir ou les imprimer...

tu mets ça tout en haut :

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
 ByVal lpOperation As String, _
 ByVal lpFile As String, _
  ByVal lpParameters As String, _
  ByVal lpDirectory As String, _
 ByVal nShowCmd As Long) As Long


pour l'impression :

ShellExecute Me.hwnd, "print", "D:\CRA" & File1.FileName, vbNullString, vbNullString, SW_SHOWNORMAL


pour les ourvir :

ShellExecute Me.hwnd, "open", "D:\CRA" & File1.FileName, vbNullString, vbNullString, SW_SHOWNORMAL


voilà...

-----------------------------------------------------------------------------------------------------------
De tous ceux qui n'ont rien à dire, les plus agréables sont ceux qui se taisent.

fattosh · Answer

Qu'est ce que c'est "shell32.dll" c'est pas une sorte de librairie comme pour word et excel ? Il ne faut pas rajouter une référence au projet ?

biolo24fr · Answer

Pardon oui désolé...

shell32.dll est une librairie du system windows... tu n'as donc pas besoin de l'importer...

-----------------------------------------------------------------------------------------------------------
De tous ceux qui n'ont rien à dire, les plus agréables sont ceux qui se taisent.

fattosh · Answer

Ok ok,

je ne comprend pas lorsque je clique il ne se passe rien à quoi correspond les éléments de la ligne 

ShellExecute Me.hwnd, "open", "D:\CRA"  & File1.FileName, vbNullString, vbNullString, SW_SHOWNORMAL

fattosh · Answer

Non c'est bon j'ai bidouillé un peu c'est bon sa marche, je vais essayer l'impression maintenant.

fattosh · Answer

Par contre comment éviter lorsque que je clique sur imprimer qu'il y est une fenêtre adobe qui s'ouvre (elle est vide mais s'ouvre en même temps que la commondialog) ?

biolo24fr · Answer

fais voir ta fonction imprimer!!!

-----------------------------------------------------------------------------------------------------------
De tous ceux qui n'ont rien à dire, les plus agréables sont ceux qui se taisent.

fattosh · Answer

ah oui désolé...

La voilà, ce qui est en commentaire n'est pas important c'est que mon code marche pas encore à 100%.
J'ai mis un controle commondialog, je peux choisir l'imprimante sans souci et celà imprime bien ! 
Mais si je change les propriétés (nombre de copies, recto verso ...etc) , elles ne sont pas prises en compte.
j'ai un autre souci avec mon bouton "imprimer" lorsque que la commondialog s'ouvre même si je clique sur la "petit croix"  pour fermer la fenêtre elle imprime quand même le document.

Bref

Voici mon code:
Private Sub Cmd_imprimer_Click(Index As Integer)

Select Case Right(File1.FileName, 4) 'Récupère les 4 derniers caractères
Case ".xls" 'Récupération de l'extension xls (fichier excel)
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
xlApp.Workbooks.Open FileName:=File1.Path & "" & File1.FileName
CommonDialog.ShowPrinter
'Printer.hDC = CommonDialog.hDC
'Printer.Copies = CommonDialog.Copies
'Printer.Duplex = CommonDialog.Duplex
'Printer.PaperSize = CommonDialog.PaperSize
'Printer.PrintQuality = CommonDialog.PrintQuality
'Printer.Orientation = CommonDialog.Orientation
'Me.PrintForm: DoEvents
'Printer.EndDoc: DoEvents
xlApp.PrintOut
xlApp.Quit


Case ".doc" 'Récupération de l'extension doc (fichier word)
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open(File1.Path & "" & File1.FileName)
CommonDialog.ShowPrinter
'Printer.hDC = CommonDialog.hDC
'Printer.Copies = CommonDialog.Copies
'Printer.Duplex = CommonDialog.Duplex
'Printer.PaperSize = CommonDialog.PaperSize
'Printer.PrintQuality = CommonDialog.PrintQuality
'Printer.Orientation = CommonDialog.Orientation
'Me.PrintForm: DoEvents
'Printer.EndDoc: DoEvents
WordApp.PrintOut
WordApp.Quit

Case ".pdf"
ShellExecute Me.hwnd, "print", File1.Path & "" & File1.FileName, vbNullString, vbNullString, SW_SHOWNORMAL
CommonDialog.ShowPrinter

End Select
End Sub

biolo24fr · Answer

le soucis que le shellexecute imprime direct avec l'imprimante par défault. Pourquoi ne pas prendre l'imprimante par défault au lieu d'ouvrir toujours cette boite de dialogue....idem pour les Words et excel...



-----------------------------------------------------------------------------------------------------------
De tous ceux qui n'ont rien à dire, les plus agréables sont ceux qui se taisent.

fattosh · Answer

Ben en fait c'est que par défault l'imprimante fais du recto verso et fait rentré 2feuilles sur une feuille (A4) pour un souci d'économie...

Et moi j'aimerais bien pouvoir changer ces paramètres.

Pour le pdf sa ne me dérange pas que cela imprime directement, ce qui me dérange c'est cette fenêtre adobe vide qui s'ouvre lorsque je clique sur imprimer...

fattosh · Answer

Bonjour,

Voilà mon interface marche très bien, je travaille maintenant sur la mise en forme.

J'ai juste un petit souci, j'ai trouvé un code pour que lorsque que j'agrandie la fenêtre form, mes contrôles s'agrandissent aussi :

Private Sub Form_Resize() 'fonction pour redimmensionnement des contrôles de la fenêtre lors de l'agrandissement de celle-ci

    Dim Feuille As Form
    Set Feuille = Screen.ActiveForm
    If (Feuille.WindowState = vbMinimized) Then
        Exit Sub
    End If

    Static Longueur As Long
    Static Hauteur As Long
    Dim PropLongueur As Single
    Dim PropHauteur As Single

    If ((Longueur > 0) And (Hauteur > 0)) Then
        PropLongueur = Feuille.Width / Longueur
        PropHauteur = Feuille.Height / Hauteur
        Dim Ctrl As Control
        On Error Resume Next
        For Each Ctrl In Feuille.Controls
            Ctrl.Left = CInt(Ctrl.Left * PropLongueur)
            Ctrl.Top = CInt(Ctrl.Top * PropHauteur)
            Ctrl.Width = CInt(Ctrl.Width * PropLongueur)
            Ctrl.Height = CInt(Ctrl.Height * PropHauteur)
        Next
        On Error GoTo 0
    End If
    Longueur = Feuille.Width
    Hauteur = Feuille.Height
End Sub

Mais l'image elle ne se centre pas par contre.
Je voudrais donc savoir s'il est possible que lorsque que je clique sur agrandir l'image (le plan de l'usine) se centre automatiquement.

(En sachant que lorsque que je sélectionne une tour dans ma liste déroulante, la photo de la tour apparait elle bien centré, mais cela ne se fait pas autmatiquement quand je clique sur agrandir)


???

Gestion de fichiers pour interface graphique

62 réponses

Votre réponse

Discussions similaires