Discussion :

[johan89]

Bonjour,

Dans mon code, je crée une BOX pour sélectionner un fichier avec

Code :

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

1
2
Set objDialog=CreateObject("SAFRCFileDlg.FileOpen")
ObjDialog.OpenFileOpenDlg

Que renvoi la BOX lorsque l'utilisateur clique sur OK ou Annuler ?

J'ai besoin de savoir s'il annule pour gérer les erreurs ...

Merci

[l_autodidacte]

Bienvenu sur DVP

Que renvoi la BOX lorsque l'utilisateur clique sur OK ou Annuler ?

Il n'y a pas de bouton OK mais Ouvrir qui renvoie le nom du fichier sélectionné; Annuler ne renvoie rien(ou plus exactement une chaîne vide) donc pas de nom de fichier.
Pour confirmation de ceci, essaie d'ajouter à la fin de ton code :

Code :

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

MsgBox ObjDialog.FileName

Teste ce code en utilisant l'un puis l'autre bouton.

Pour ta dernière question, j'avoue franchement que je n'y ai rien compris

[johan89]

Merci beaucoup, mon problème est résolu

En disant "J'ai besoin de savoir s'il annule pour gérer les erreurs ...", je voulais dire "Je veux gérer au cas où l'utilisateur appuie sur annuler", car sinon le reste du code s'exécute, ce qui n'est pas cohérent. Mais je me suis mal exprimé. Tu comprendras sans doute mieux si je te mets tout le code :

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
'CREATION DES OBJETS
Set object_exec_cmd = CreateObject("WScript.Shell")
Set objet_connect_lecteur = CreateObject("WScript.Network")
Set objet_copie = CreateObject("Scripting.FileSystemObject")
 
 
'CONNEXION DU LECTEUR RESEAU
Function Connexion()
 
'Dim computername
 
'Récupération du nom de l'ordinateur
'computername = InputBox("Veuillez taper le nom de votre ordinateur svp (exemple FREL21524) :","Nom de votre ordinateur","")
 
'Déconnexion lecteur N:\ s'il existe
	ligne_cmd_deco = "net use /delete N:"
	Call object_exec_cmd.Run (ligne_cmd_deco)
'Connexion du lecteur réseau
	ligne_cmd_connexion = "net use N: \\frer0645\out"
	Call object_exec_cmd.Run (ligne_cmd_connexion)
 
End function
 
 
'VERIFICATION LECTEUR RESEAU CONNECTE AVANT COPIE
function Verif()
 
	Connexion()
 
	do while objet_copie.DriveExists("N:") = false
	loop
 
end function
 
 
 
Function Copie_fichier()
	Dim oFolder
	Dim objFolderItem
	Dim objPath
	Dim copie
 
	copie = 1 
	Option_noFolderButton = &H200
 
	Verif() 'On vérifie que le lecteur réseau est bien connecté
 
'BOX SELECTION
	Set objDialog=CreateObject("SAFRCFileDlg.FileOpen")
	ObjDialog.OpenFileOpenDlg
	'msgbox objDialog.FileName
 
	If objDialog.FileName <> "" then 'Si l'user a choisit un fichier
'Récupération du chemin du fichier à copier
		fichier_copie=objDialog.FileName
 
 
'BOX DESTINATION
		Set oShell = CreateObject("Shell.Application") 
		Set oFolder = oShell.BrowseForFolder(0, "Selectionner le répertoire de destination",Option_noFolderButton,"")
 
'Récupération du chemin du répertoire de destination
		If (not oFolder is nothing) then
			Set objFolderItem = oFolder.Self
			rep_dest = objFolderItem.Path
		else
			copie = 0 'Si l'user annule, on ne copie pas
		end if
'Copie du fichier du serveur vers le répertoire en local
		if copie = 1 then
			objet_copie.CopyFile fichier_copie,rep_dest,True
			MsgBox "Le fichier est copié."
		else
			MsgBox "Vous avez annuler l'opération."
		End if
'Set oFolder = nothing
'Set oShell = nothing
'Set objDialog=Nothing                                    
	end if
End function
 
 
'Pour le bouton de génération de flag
function create()
 
	Const ForReading = 1, ForWriting = 2
	Set WshShell = CreateObject("WScript.Shell")
	Dim fso, f
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set f = fso.OpenTextFile("\\frer0645\in\GMSHFM.ok", ForWriting,true)
	f.write("ok")
 
	MsgBox "Flag is generated on frer0645, in directory  E:\data\ftp\GMS_I\00_Central\in\"
end function
 
 
'PROCEDURES PRINCIPALES	
 
'FLAG
sub GenereFlag
 
	create()
 
end sub
 
'COPIE FICHIER
Sub DownloadFile()
	Copie_fichier()
End Sub

En copiant le code, une autre question m'est venu :
En cherchant sur internet, j'ai vu que les gars ont mis :

Code :

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

1
2
3
Set oFolder = nothing
Set oShell = nothing
Set objDialog=Nothing

Pour le moment, je les ai laissé en commentaire, et le code fonctionne très bien, mais faut-il les "dé-commenter" ? A quoi cela sert-il ?

[l_autodidacte]

Les 3 lignes citées servent à décharger les objets créés de la mémoire(Un nettoyage de la mémoire en quelque sorte)
OUI il vaut mieux les dé-commenter.
N'oublie pas le tag

[johan89]

Merci beaucoup de ton aide. Bonne soirée.