Discussion :

[Floorfiler]

Bonjour,

Pour alimenter une base de CV j'ai besoin du code me permettant de copier un fichier (.doc ou .jpg) le dossier ou se situe mon VBA.

[mercatog]

Avant de poster, il est préférable de chercher dans la FAQhttp://excel.developpez.com/faq/inde...rsDir#FileCopy

[Floorfiler]

En faite en cliquant sur un bouton il faudrait que je puisse selectionner le fichier voulu pour qu'ensuite celui ci soit copier dans le dossier de mon vba à défaut thisworkbook.path un truc du genre et non pas avoir des chemins définis comme c:\monfichier.blabla

[mercatog]

Bien sûr à adapter, exemple

Code :

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

1
2
3
4
5
6
7
8
Dim NomFichier As String
Dim Fichier
 
Fichier = Application.GetOpenFilename()
If Fichier <> False Then
   NomFichier = Mid(Fichier, InStrRev(Fichier, "\") + 1)
   FileCopy Fichier, ThisWorkbook.Path & "\" & NomFichier
End If

[Floorfiler]

Impeccable c'est exactement ça.

Merci beaucoup.