Discussion :

[nacereddine.mourad]

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 :

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
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.

[kiki29]

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

[nacereddine.mourad]

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

[kiki29]

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

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

[nacereddine.mourad]

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 :

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
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

[nacereddine.mourad]

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

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
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

[unparia]

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 :

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

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

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