Discussion :

[djibysadji]

Bonsoir!
Nous essayons de résoudre l'erreur d'exécution 76: Chemin d'accès introuvable dans ce code. Elle se trouve à la 30 du 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
28
29
30
31
32
33
34
35
36
37
38
Private Sub CmdEnregistrer_Click()
'On Error GoTo GestionErreur
Dim db As DAO.Database
Dim rs As Recordset
Dim User_id As Integer
Dim urlPhotos As String

Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM T_Utilisateurs ", dbOpenDynaset)
rs.AddNew
urlPhotos = CurrentProject.Path & "\GESCOLLE_DOSSIER\Photo_Personnel\"
Dim FichierDestination As String
User_id = rs("User_id")
rs("username") = Me.TxtUser
rs("login") = Me.Txtlogin
rs("Passe") = Me.TxtPasse
rs("Tel") = Me.TxtTel
rs("Email") = Me.TxtMail
rs("Role_id") = Me.TxtRole
rs("Photo") = urlPhotos & User_id & "." & GetExtFile(Me.TxtAdrPhotoSource)
FichierDestination = urlPhotos & User_id & "." & GetExtFile(Me.TxtAdrPhotoSource)



rs.Update

Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject

fso.CopyFile Me.TxtAdrPhotoSource, FichierDestination


rs.Close
Set rs = Nothing
db.Close
Set db = Nothing

End Sub

djibysadji

[Zekraoui_Jakani]

Il faut s'assurer que vous respectez bien la structure comme dans : "fso.CopyFile "c:\Src\Hello.xlsx", "c:\Dest\"
Pour cela, faire un debug.Print, avant la ligne 30, de Me.TxtAdrPhotoSource et FichierDestination pour être sûr de leur contenu qui doit respecter la dite structure

[djibysadji]

Il faut s'assurer que vous respectez bien la structure comme dans : "fso.CopyFile "c:\Src\Hello.xlsx", "c:\Dest\"
Pour cela, faire un debug.Print, avant la ligne 30, de Me.TxtAdrPhotoSource et FichierDestination pour être sûr de leur contenu qui doit respecter la dite structure

Bonjour!

Nous avons fait le debug.print et c'est cette qui ligne s'affiche dans la fenêtre d'exécution:

C:\Users\djiby\Dropbox\Mon PC (DESKTOP-JKC328I)\Desktop\GESCOLLE_DOSSIER\Photo_Personnel\Diallo_Sur_adap.jpg

Qu'est ce que cela veut bien dire?

Merci

[Zekraoui_Jakani]

ça veut dire que la photo "Diallo_Sur_adap.jpg" doit se trouver sous le répertoire:
"C:\Users\djiby\Dropbox\Mon PC (DESKTOP-JKC328I)\Desktop\GESCOLLE_DOSSIER\Photo_Personnel\"
Ouvrez l'explorateur de fichiers et en suivant ce chemin de répertoire, vous devez y trouver la photo, sinon corriger le tir.
Est-ce que le chemin est bien correct ?
Est-ce que la photo y est ?

[djibysadji]

Bonjour!

Nous avons fait le debug.print et c'est cette qui ligne s'affiche dans la fenêtre d'exécution:

C:\Users\djiby\Dropbox\Mon PC (DESKTOP-JKC328I)\Desktop\GESCOLLE_DOSSIER\Photo_Personnel\Diallo_Sur_adap.jpg

Qu'est ce que cela veut bien dire?

Merci

Bonjour

J'ai résolu le problème. CurrentProject.Path étant un chemin valide, il fallait tout simplement ajouter & "\Photo_personnel\" plutôt que tout le chemin.

Code :

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

1
2
 
urlPotos = CurrentProject.Path & "\Photo_personnel\"

Merci pour avoir essayé de m'apporter ton soutien.