Discussion :

[driver]

salut
je suis sur un projet de gestion rh
j'ai crée un formulaire d'ajout d'employés ce que je veux faire c'est cree un bouton d'ajout d 'image qui va ouvrir une boite pour que je choisie l'image puis
il va la copier dans un sous répertoire images/emp/ et en meme temp mettre le chemain dans un champ text

[Invité]

Bonjour

Pour cela il faut ouvrir une boite de dialogue (en cliquant sur un bouton), cela te permet de récupérer le nom du fichier et son chemin.

Voici un exemple de code dans la Afficher la boîte de dialogue ouvrir afin de récupérer le nom et le chemin du fichier sélectionné

Starec

[driver]

merci pour le lien
mais comment je peux faire pour recopier le fichier dans un autre repertoire

[Invité]

Re

Utilises la bibliothèque FSO : Manipulation des fichiers en VBA

Starec

[driver]

salut Starec tu m'as sauve
maintenant il ne me reste plus qu'as trouve comment renomme le fichier
genre id_nom.jpg

[Invité]

Re

Regardes à ce chapitre I-D-3-c. Move

Starec

[driver]

merci starec j'ai réussi avec ce bout de 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
 
Dim oFSO As Scripting.FileSystemObject
Dim ofl As Scripting.File
 
Set oFSO = New Scripting.FileSystemObject
Dim str_chemain_distant As String
Dim str_chemain_local As String
Dim code_hotel As String
Dim nom_hotel As String
Dim str_nom_fichier As String
Dim str_fichier_local As String
 
 
 
str_chemain_distant = OuvrirUnFichier(Me.Hwnd, "Parcourir", 1, "Fichier image", "jpg")
If str_chemain_distant <> "" Then
str_chemain_local = CurrentProject.Path & "\images\hotel\"
oFSO.CopyFile str_chemain_distant, str_chemain_local, (True)
str_nom_fichier = oFSO.GetFileName(str_chemain_distant)
If oFSO.FileExists(Me.HT_CODE.Value & ".jpg") Then
Kill str_chemain_local & Me![HT_CODE].Value & ".jpg"
End If
Name str_chemain_local & str_nom_fichier As str_chemain_local & Me![HT_CODE].Value & ".jpg"
Me![HT_PHOTO].Value = str_chemain_local & Me![HT_CODE].Value & ".jpg"
Me.imgphoto.Picture = Me![HT_PHOTO].Value
 
End If