Discussion :

[Orakle]

Bonjour à tous,

j'essai d'utiliser ce bout de code qui est dans la faq à cette adresse :
http://access.developpez.com/faq/?pa...ep#fichiercorb

seulement je me heurte à une erreur de compilation ???

Quelqu'un pourrait il me retirer l'épine du pied svp ?
Si c'est parce que c'est du code d'origine VB, qu'est-ce que je dois modifier pour que ça fonctionne ?

Merci !

[Petogaz]

salut,

montre voir comment utilises-tu le code. l'as-tu bien mis dans un module standard ? renseignes-tu bien le chemin du fichier ? montre ton code.

[Dolphy35]

Salut,

sur quelle ligne cela plante ?

[Orakle]

alors je l'ai bien mis dans un module standard !

Il plante là :



Le chemin de fichier je le renseigne comme sur le 2eme bout de code avec le "If"

Code :

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

1
2
3
4
5
If DansCorbeille("C:\monchemin\monfichier.xls", Me.hwnd) Then
    MsgBox "Le fichier a été déplacé dans la corbeille"
Else
    MsgBox "Le fichier n'a pas pu être déplacé dans la corbeille"
End If

Mais après réflexion c'est vrai que j'ai dû louper l'étape pour le renseigner, car les msgbox n'a rien à voir !
Par contre je ne vois pas où je dois placer le chemin de fichier, ni de quelle façon !

[Petogaz]

comment envois-tu le fichier à la corbeille ? par un click d'un bouton venant d'un formulaire ? si c'est le cas où mets-tu ce code :

Code :

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

1
2
3
4
5
If DansCorbeille("C:\monchemin\monfichier.xls", Me.hwnd) Then
    MsgBox "Le fichier a été déplacé dans la corbeille"
Else
    MsgBox "Le fichier n'a pas pu être déplacé dans la corbeille"
End If

....dans un évenement j'espère.

bon je viens de tester le code et il marche très bien.

[Dolphy35]

re,

je ne comprend pas pourquoi le déboggeur plante sur la déclaration.

As-tu esseyé de compacter ta base de la fermer et de lé réouvrir ?

[Petogaz]

vbmenu_register("postmenu_976532", true); "]Par contre je ne vois pas où je dois placer le chemin de fichier, ni de quelle façon !

...dans le code correspondant à l'evenment du bouton qui permet d'envoyer le fichier à la corbeille.je pense que ton pb se situe à ce niveau.

[Orakle]

J'ai avancé dans mon problème mais j'en ai toujours un.

le truc c'est que je ne sais pas passer ma fonction sur le clic !

normalement je devrais pouvoir faire sur clic d'un bouton :

Code :

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

  DansCorbeille("C:\monchemin\monfichier.xls", Me.hwnd) = True

or il me renvois : Erreur de compilation : un appel dans la partie gauche de la fonction doit renvoyer Variant ou Object.

[Petogaz]

tu devrais avoir ceci :

Code :

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

1
2
3
4
5
6
7
Private Sub tonbouton_Click()
If DansCorbeille("C:\monchemin\monfichier.xls", Me.hwnd) Then
    MsgBox "Le fichier a été déplacé dans la corbeille"
Else
    MsgBox "Le fichier n'a pas pu être déplacé dans la corbeille"
End If
End Sub

pour un premier temps est ce que ce code fonctionne dans un module de formulaire ? pour un premier tps je te conseille de laisser le test pour être sur qu'il évalue bien la valeur True.