la fonction FileCopy avec ThisWorkbook.Path

Bonjour, et merci d’avance pour l’efforce que vous faite pour nous les nuls

Je voudrai attribuer a ma CommandButton19_Click , un code qui me permettrait d’ouvrir une fenêtre parcourir et choisir une photo dans mon ordi, et l’enregistrer dans mon répertoire ( ThisWorkbook.Path & "\Information\Photos\Userform"), la photos doit être nommé comme la TextBox14.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub CommandButton19_Click()   Dim fd As FileDialog   Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd If .Show = -1 Then     'FileCopy .SelectedItems(1), Application.CurrentProject.Path & "\Information\Photos\Userform\"   MsgBox "tu as choisi " & .SelectedItems(1) & vbCrLf & _ "que tu peux copier où tu veux (utilisation simple de l'instruction FileCopy)"   'Renommer l'item sélectionné comme textbox14     Else MsgBox " tu n'as choisi aucun fichier" End If End With

---

Merci pour votre soutien.

Salut, pour cela tu as l'aide en ligne : [F1] et la FAQ

Bonjour
1) En quoi cette nouvelle discussion diffère-t-elle de la précédente, à savoir :
http://www.developpez.net/forums/d15...re-specifique/
2) dans cette ligne (mise en plus en commentaires et non exécutable) :

Code:

---

'FileCopy .SelectedItems(1), Application.CurrentProject.Path & "\Information\Photos\Userform\"

---

je ne vois aucun nom donné au fichier de destination.

merci kiki29, mais je voudrez utiliser ThisWorkbook.Path & "\Information\Photos\Userform", en cas ou le fichier est déplacer,
la syntaxe ne marche pas

Bis repetita placent ..... via [F1]

Citation:

---

FileCopy, instruction, exemple
Cet exemple utilise l'instruction FileCopy pour copier le contenu d'un fichier dans un autre fichier. Nous supposons que le fichier FICHSRC contient des données.

Dim SourceFile, DestinationFile
SourceFile = "FICHSRC" ' Définit le nom du fichier source.
DestinationFile = "FICHDEST" ' Définit le nom du fichier cible.
' Copie le fichier source dans le fichier cible.
FileCopy SourceFile, DestinationFile

---

merci encor kiki29, il y'a une erreur d'exécution '53' (Fichier introuvable), mais le répertoire existe (\Menu\Information\Photos)

information; sur userform1, textbox14 taper moteur, une image est apparu dans Image1 sur userform1.
dans la BDD, il ya clarck, qui n'a pas de photos, je voudrez avec CommandButton19 lui attribuer une photo qui est sur mon ordi, et la copier dans un répertoire en utilisent ThisWorkbook.Path & "\Information\Photos\Userform\" et qui renomera l'image comme Textbox14.

Code:

---

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

Private Sub CommandButton19_Click()   Dim fd As FileDialog Dim SourceFile, DestinationFile   SourceFile = Application.FileDialog(msoFileDialogFilePicker) ' Définit le nom du fichier source. DestinationFile = ThisWorkbook.Path & "\Information\Photos\Userform\" ' Définit le nom du fichier cible.   Set fd = Application.FileDialog(msoFileDialogFilePicker)   With fd If .Show = -1 Then   FileCopy SourceFile, DestinationFile ' Copie le fichier source dans le fichier cible.   '-------------------------------------------- 'Renommer l'item sélectionné comme textbox14 '--------------------------------------------   Else MsgBox " tu n'as choisi aucun fichier" End If End With   End Sub

---

ooooooof en fin Il manque qu’une ligne pour renommer le fichier copier comme textox14

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub CommandButton19_Click()   Dim NomFichier As String Dim Fichier   Fichier = Application.GetOpenFilename()   If Fichier <> False Then   NomFichier = Mid(Fichier, InStrRev(Fichier, "\") + 1)   FileCopy Fichier, ThisWorkbook.Path & "\Information\Photos\Userform\" & NomFichier   MsgBox "Photo attribuer"   Else   MsgBox "Photo non attribuer"   End If     End Sub

---