Discussion :

[eliot.raymond]

Bonjour a toutes et tous, Forum Bonjour,

J'ai un userform avec une listview2 contenant une liste de nom de films.

Dans un label216 je récupère le nom d'un film choisi dans la liste.

je souhaiterai savoir svp quel est le code vba qui permet en cliquant sur le

label216 envoyer le fichier film.avi vers ma freebox.

J'ai fouiner sur le site et sur le net, mais pas trouver vraiment ce code.

Merci a vous pour votre temps, une bonne journée a tous.

Cordialement Ray

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
 
Pour infos 
 
' Chemin de la Free         >>>        "\\FREEBOX\Disque dur"
 
' Chemin ou sont les vidéos    >>>  "E:\Videos\" 
 
'### Envoi copier un fichier vers FREEBOX
 
Private Sub Label216_Click()
Dim FilmSelection As String
 
   With Me
        .Frame2.Label216 = FilmSelection & ".avi"
 
   End With
End Sub

[jfontaine]

Bonjour,

Si ta freebox est accessible via windows, tu peux utiliser les instructions DOS

Code :

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

Shell "copy E:\test\y.txt F:\test\x.txt"

[eliot.raymond]

Bonjour jfontaine, Forum

Merci pour ta réponse, j'ai fait des essais, mais pas réussi a coder correctement ce que tu me propose.

En faisant le code ci-dessous il me réponds que le fichier n'existe pas

bien sur le fichier est bien a l'endroit indiquer

Shell "copy E:\Videos\Tintin.avi :\\FREEBOX\Disque dur"

Voila le temps passe vite vu l'heure bon appétit et merci

Ray

[jfontaine]

Quand tu es dans windows, comment transferts tu les fichiers dans la freebox?
Copie de fichier ou FTP?

[eliot.raymond]

Re salut

quand je suis dans windows 7 32 bits

j'ai creer sur mon bureau une icone avec l'adresse Free indiqué soit \\FREEBOX\Disque dur

quand je clic sur l'icone j'ai tout les répertoires du D-D de la FREE qui s'affichesur mon pc

je selectionne une video sur D-D (E)

puis je le glisse le film dans le répertoire vidéos de la Free, temps de transfert pour 700 Mo environ 10 a 15 secondes

j'ai un livre sur les commandes DOS 6.22, j'ai relu avec plaisir mais pas trouver comment faire

Ray

[jfontaine]

as tu essayé de monter un lecteur réseau a destination de la freebox (Lecteur avec une lettre) Ensuite tu fais un test de copie

[eliot.raymond]

RE

bien compris ta réponse merci mais a vrai dire ca je ne sais pas faire

Re salut

j'ai coder de cette manière avec un code trouvé sur le net

bon ca plante pas mais j'ai erreur execution76 chemin introuvable

une correction a faire mais je trouve pas.

si quelqu'un a une idée par avance merci beaucoup

bonne après midi

Ray

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
 
'### Envoi copier un fichier vers FREEBOX
 
Private Sub Label216_Click()
 
Dim objFSO As Variant
 
Dim FilmSelection As String
 
FilmSelection = "300"
 
MsgBox FilmSelection
 
Const overwriteExisting = True
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
objFSO.CopyFile "E:\Videos\" & FilmSelection & ".avi", "ftp://hd1.freebox.fr/Disque dur/Vidéos/", overwriteExisting
 
End

[jfontaine]

je suis étonné que FSO fonctionne avec FTP

[eliot.raymond]

Re salut

en fait je ne sais pas si ca fonctionne car pour l'instant je bloque

j'ai eu ce code sur le net

je dois avoir mal coder quelque chose mais je trouve pas

voila merci de ta réponse

Ray

[jfontaine]

Sur ce lien un post qui traite du transfert FTP sur un serveur
http://www.developpez.net/forums/d61...chier-serveur/

[eliot.raymond]

Bonsoir jfontaine,

Merci pour la réponse et le lien, j'ai regarder mais ca me parle pas.

Alors tant pis, je ne pensais pas que ca serai si compliqué d'envoyer

une vidéo sur la freebox. enfin pour moi.

Bonne soirée a toi et merci beaucoup pour ton aide

Cordialement Ray

[eliot.raymond]

Bonjour a tous, forum bonjour

Pas réussi a transférer un fichier sur Freebox

Si quelqu'un svp a une idée et sais comment faire, je suis preneur et l'en

remercie d'avance car je n'ai rien trouver de plus sur le net.

Bon j'avoue que je ne suis pas douer pour les recherches, non plus.

Excellente après midi a vous et merci

Ray