Discussion :

[Pexou]

bonjour,

apres moulte recherche de pages sur google pour trouver mon bonheur je dois men remettre a vous.

je cherche a ajouter sur un form pré établi ( avec des textbox et combobox ) un CommandButton qui ouvrirai une boite de dialogue pour y inserer des fichiers ( .pdf .xlsx .pwt .... .... ) c'est fichiers ajoutés par l'utilisateur seront copier dans un repertoire donné ! ( l'ajout de piece jointe peutétre de plusieurs fichiers )

Comment faire ?
ou y a til pas une autre methode plus simple tel qu'une filelistbox dans laquel on viendrai glisser les fichiers a joindre avec la souris? ( je ne sais pas si c'est faisable )

Cordialement

Pex

ps : Merci a tous vous m'êtes d'un grand secours, Mega Big UP

[pc75]

Bonjour,

Tu ajoutes un commondialog sur le form et tu l'appelles comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
    CommonDialog1.Filter = "Fichiers Excel (*.xls)|*.xls"
    CommonDialog1.ShowOpen

[Pexou]

Bonjour,

Tu ajoutes un commondialog sur le form et tu l'appelles comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
    CommonDialog1.Filter = "Fichiers Excel (*.xls)|*.xls"
    CommonDialog1.ShowOpen

comment faire pour que le fichier selectionner se copie dans un repertoire donné ?
Merci en tout cas

[pc75]

Re,

Un début de piste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
    Set fso = CreateObject("Scripting.FileSystemObject" )
    fso.CopyFile "F:\testproe\config.win.*", "F:\"

[Pexou]

Re,

Un début de piste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
    Set fso = CreateObject("Scripting.FileSystemObject" )
    fso.CopyFile "F:\testproe\config.win.*", "F:\"

je n'y arrive pas du tout au niveau des API je suis une quiche.
pourrais tu maider en me donnant un code complet que je comprendrai ou que je modifierai si cest possible de ta part !

merci

[pc75]

Re,

Aucun rapport avec des API.
As-tu commencé à écrire des lignes de code ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
CommonDialog1.Filter = "Fichiers Excel (*.xls)|*.xls"
CommonDialog1.ShowOpen
Set fso = CreateObject("Scripting.FileSystemObject" )
fso.CopyFile CommonDialog1.FileName, "C:\"

[Pexou]

Re,

Aucun rapport avec des API.
As-tu commencé à écrire des lignes de code ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
CommonDialog1.Filter = "Fichiers Excel (*.xls)|*.xls"
CommonDialog1.ShowOpen
Set fso = CreateObject("Scripting.FileSystemObject" )
fso.CopyFile CommonDialog1.FileName, "C:\"

j'utilisai la commande FileCopy mais j'avais une erreur de permission d'écriture !!
merci en tout cas !
des lignes oui il y en a mais il y a certaines choses dans lesquel je planche beaucoup ... je ne suis pas informaticien mais technicien labo !! donc bon apprendre tout cela de maniere autonome n'est pas forcément quelque chose d'aisé pour ma part !


Comment faire pour pouvoir fair une multiselection de fichier ( ajouter plusieur fichier joints.
peut on ouvrir des commandialog dans laquel on viendrai ajouter les fichiers mais le nom serai stoker( dans une richtextbox par exemple ) puis une fois tout les fichier repertorié dedans les copier ?

[ProgElecT]

Salut

Pour pouvoir multiselection il faut ajouter CommonDialog1.Flags = cdlOFNAllowMultiselect + cdlOFNExplorer avant le CommonDialog1.ShowOpen.
Illustration par le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim T As Integer
Dim ListF() As String
 
CommonDialog1.Flags = cdlOFNAllowMultiselect + cdlOFNExplorer
CommonDialog1.ShowOpen
ListF = Split(CommonDialog1.FileName, Chr(0))
 
For T = 0 To UBound(ListF)
    MsgBox ListF(T)
Next T

ListF(0) contient le chemin complet, ListF(1) à ListF(UBound(ListF)) contient le nom de chaque fichier sélectionné.

Si il n'y a qu'un fichier sélectionné, ListF(0) contient le chemin complet et le nom du fichier.

[Pexou]

Salut

Pour pouvoir multiselection il faut ajouter CommonDialog1.Flags = cdlOFNAllowMultiselect + cdlOFNExplorer avant le CommonDialog1.ShowOpen.
Illustration par le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim T As Integer
Dim ListF() As String
 
CommonDialog1.Flags = cdlOFNAllowMultiselect + cdlOFNExplorer
CommonDialog1.ShowOpen
ListF = Split(CommonDialog1.FileName, Chr(0))
 
For T = 0 To UBound(ListF)
    MsgBox ListF(T)
Next T

ListF(0) contient le chemin complet, ListF(1) à ListF(UBound(ListF)) contient le nom de chaque fichier sélectionné.

Si il n'y a qu'un fichier sélectionné, ListF(0) contient le chemin complet et le nom du fichier.

merci pour la multiselection.

est il possible d'avoir a chaque fois le chemin complet afin de les copiers ensuite tous ensemble directement dans le repertoire de destination prévu.
et est il possible aussi possible que la selection faites des fichiers affiche le chemins des noms complet dans une RichTextBox ?

merci de votre aide

[Pexou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
 
Private Sub CBEnregistrerDemandeActiviteDemandeActivite_Click()
 
End Sub
 
Sub Test_parcours_dossiers()
    parcours_dossiers "\\MonAdresseDeRepertoire"
End Sub
 
Sub parcours_dossiers(strFolderName As String)
    Dim FSO As Object
    Dim oSourceFolder As Object
    Dim oFolder As Object
 
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set oSourceFolder = FSO.GetFolder(strFolderName)
    NewNumber = 0
 
    For Each oFolder In oSourceFolder.SubFolders
 
        On Error Resume Next
        If CDbl(Right(oFolder.Name, 3)) > NewNumber Then
            NewNumber = CDbl(Right(oFolder.Name, 3))
        End If
 
    Next oFolder
 
    NewDossier = "ACT2013-" & Right("000" & CStr(NewNumber) + 1, 3)
    DemandeActivite.Visible = False
    MsgBox " le numéro de suivi d'activité pour ce projet sera : " & vbNewLine & _
    "" & vbNewLine & _
    "" & "                     " & NewDossier & vbNewLine & _
    "" & vbNewLine & _
    "" & vbNewLine & _
    "" & "          (Notez bien cette réfèrence) ", vbInformation, "Suivi"
 
    MkDir "\\nasw05\MxP_Composites\09-fonctionnement YQMC\Activité Labo\" & NewDossier
 
  End Sub
 
' ******* Voici comment je rempli ma listbox et non la Richtextbox ! ******* 
 
Private Sub CBAjoutPieceJointe_Click()
Dim iPosit As Integer
  Dim strTemp As String
  Dim Pth As String
  FileTool1.Flags = OFN_ALLOWMULTISELECT + OFN_EXPLORER
  FileTool1.FileName = ""
  If FileTool1.ShowOpen Then
    strTemp = FileTool1.FileName
    iPosit = InStr(strTemp, Chr$(0))
    If iPosit > 0 Then
      Pth = Left$(strTemp, iPosit - 1)
      If Right(Pth, 1) <> "\" Then
        Pth = Pth & "\"
      End If
      strTemp = Mid$(strTemp, iPosit + 1)
      iPosit = InStr(strTemp, Chr$(0))
      While iPosit > 0
        List1.AddItem Pth & Left$(strTemp, iPosit - 1)
        strTemp = Mid$(strTemp, iPosit + 1)
        iPosit = InStr(strTemp, Chr$(0))
      Wend
      List1.AddItem Pth & strTemp
    Else
      List1.AddItem strTemp
    End If
    FileTool1.Flags = 0
  End If
 
End Sub
 
Private Sub CBEnregistrerDemandeActivite_Click()
 
Dim oExcel As Excel.Application
Dim oWk As Workbook
Dim adresse As String
Dim dest As Range
Dim OutlookApp As New Outlook.Application
Dim NewMail As Outlook.MailItem
 
  If TBDemandeur = "" Or TBFinActivite = "" Or TBImputation = "" Or TBProjet = "" Or TBNbreElement = "" Then
  MsgBox "Saisissez tous les champs obligatoire", , "Information"
  Label7.Visible = True
Label8.Visible = True
Label9.Visible = True
Label10.Visible = True
Label11.Visible = True
Exit Sub
End If
 
 
  adresse = "\\MonAdresseDeRepertoire"
 
    Set oExcel = CreateObject("Excel.Application")
    oExcel.Visible = False 'Masque l'application excel (valeur par défaut)
    On Error Resume Next 'Pour éviter les erreur si classeur n'existe pas
    Set oWk = oExcel.Workbooks.Open(adresse & "\Info Activités ACTXXXX-XXX.xlsx")
    On Error GoTo 0
    If oWk Is Nothing Then
      MsgBox "Erreur sur ouverture classeur fichier inexistant ", vbCritical
      Exit Sub
    End If
 
    Set dest = Sheets("feuil1").Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0)
    dest.Offset(0, 2).Value = TBDemandeur
       dest.Offset(0, 4).Value = TBFinActivite
          dest.Offset(0, 5).Value = TBImputation
             dest.Offset(0, 6).Value = TBProjet
                dest.Offset(0, 7).Value = TBCommentaire
                   dest.Offset(0, 8).Value = TBNbreElement
                    dest.Offset(0, 1).Value = NomDeLactivite
 
    Test_parcours_dossiers
 
    DemandeActivite.Visible = True
 
    Set NewMail = OutlookApp.CreateItem(olMailItem)
    NewMail.Recipients.Add ("email@.fr")
    NewMail.Subject = "Demande Activité"
    NewMail.Body = TBDemandeur & " souhaite la prise en charge du projet " & " '' " & TBProjet & " '' " & vbNewLine & _
               "" & vbNewLine & _
               "" & vbNewLine & _
               "" & TBCommentaire
    NewMail.Send
 
        'Sauve le classeur
    oWk.Save
    oWk.Close False 'Ferme le classeur
    oExcel.Quit
    Set oWk = Nothing
    Set oExcel = Nothing 'libération mémoire..
 
  TimerProgresseBar.Show
 
Unload DemandeActivite
 
  Unload Executable_Technologue_YQMC
 
End Sub
 
Private Sub CBreset_Click()
TBCommentaire.Text = ""
TBProjet.Text = ""
TBDemandeur.Text = ""
TBFinActivite.Text = ""
TBNbreElement.Text = ""
TBImputation.Text = ""
End Sub
 
Private Sub CBRetour_Click()
Executable_Technologue_YQMC.Visible = True
Unload DemandeActivite
 
End Sub
 
Private Sub Check1_Click()
If Check1.Value = 1 Then
CBAjoutPieceJointe.Visible = True
DemandeActivite.Width = 12795
DemandeActivite.Height = 4350
CBreset.Left = 10320
CBreset.Top = 2640
CBEnregistrerDemandeActivite.Left = 8760
CBEnregistrerDemandeActivite.Top = 3240
CBRetour.Left = 10680
CBRetour.Top = 3240
CBAjoutPieceJointe.Visible = True
Label12.Visible = True
Else
DemandeActivite.Width = 8760
DemandeActivite.Height = 5040
CBreset.Left = 2400
CBreset.Top = 3960
CBEnregistrerDemandeActivite.Left = 3240
CBEnregistrerDemandeActivite.Top = 3960
CBRetour.Left = 5160
CBRetour.Top = 3960
CBAjoutPieceJointe.Visible = False
Label12.Visible = False
End If
End Sub
 
Private Sub Command1_Click()
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile List1, "C:\Documents and Settings\s558670\Bureau\"
End Sub
Private Sub Form_Load()
Label7.Visible = False
Label8.Visible = False
Label9.Visible = False
Label10.Visible = False
Label11.Visible = False
DemandeActivite.Width = 8760
DemandeActivite.Height = 5040
CBreset.Left = 2400
CBreset.Top = 3960
CBEnregistrerDemandeActivite.Left = 3240
CBEnregistrerDemandeActivite.Top = 3960
CBRetour.Left = 5160
CBRetour.Top = 3960
CBAjoutPieceJointe.Visible = False
Label12.Visible = False
End Sub

je bloque au niveau pour la copie du des fichiers vers le repertoire de destination (voir ligne 183 à 186)

pouvez vous m'aider afin de finir ce bout de code?

[Pexou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
  FileTool1.ClearSourceFiles
  FileTool1.ClearDestFiles
  For iPnt = 0 To List1.ListCount - 1
    FileTool1.AddSourceFile List1.List(iPnt)
  Next
  FileTool1.AddDestFile "\\MonRepertoire" & Newdossier
  FileTool1.CopyFiles
  FileTool1.ClearSourceFiles
  FileTool1.ClearDestFiles
  List1.Clear

voici comment jajoute mes elements dans le dossier

merci a tous