Discussion :

[mlww]

Bonjour

j'ai essaye de faire un glissé / déposé

Objectif: récupérer le chemin complet d'un ficher pour un traitement ultérieur

aujourd'hui je me sers d'une listview,
cela fonction bien depuis l'exploreur Windows
mais pour Outlook, rien de va plus
j' ai un message d'erreur



je désirais réaliser un glisser / déposer
A partir d'une pièce joint dans mon email et glisser / déposer un email entier

Voici ce que j'ai fait aujourd'hui comme 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
 
Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim Long_Chaine As Long
    Dim PosCar_1 As Long     'Defini la position du dernier "\"
    Dim NomFile As String
    StrPath = Data.Files(1)
    Long_Chaine = Len(StrPath)
    For PosCar_1 = (Long_Chaine) To 1 Step -1
        If Mid(StrPath, PosCar_1, 1) = "\" Then GoTo Suite
    Next
Suite:
    NomFile = Right(StrPath, (Long_Chaine - PosCar_1))
    With ListView1  
        .ListItems.Add , , NomFile
        .ListItems(.ListItems.Count).ListSubItems.Add , , StrPath
        .Refresh
    End With
End Sub

[unparia]

Bonjour
As-tu au moins regardé en mode debug la valeur de NomFile lorsque erreur ?
Fais-le et indique-la nous, s'il te plait

Par ailleurs :
Regarde s'il te plait dans ton aide VBA ce que retourne la fonction InstrRev.
Son utilisation devrait te permettre d'éviter, à la fois :
et ta boucle for to next et cette vilaine méthode Goto.

[mlww]

Bonsoir unparia
Je t'avoue je n'ai pas regardé la valeur en mode debug de NomFile
je le fais demain matin en arrivant au bureau
Par contre j'ai regardé la fonction InstrRev, j'ai modifier le code tu me diras ce que tu en penses

En attendant merci de tes conseils

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim PosCar_1 As Long     'Defini la position du premier "\" dans le mode InstrRev
    Dim NomFile As String
    StrPath = Data.Files(1)
    PosCar_1 = InStrRev(StrPath, "\", , vbTextCompare) + 1
    NomFile = Mid(Chaine, PosCar_1, Len(StrPath))
    With ListView1
        .ListItems.Add , , NomFile
        .ListItems(.ListItems.Count).ListSubItems.Add , , StrPath
        .Refresh
    End With
End Sub

[unparia]

L'extraction de Nomfile dans la chaine traitée ira sans doute beaucoup mieux si, dans cette ligne de code :

Code :

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

NomFile = Mid(Chaine, PosCar_1, Len(StrPath))

tu remplaces Chaine, par la chaine traitée, à savoir StrPath, non ?

Je saisis cette occasion pour te rappeler que l'utilisation de la fonction Mid, sans le second argument (de longueur) signifie : tout à partir de la position poscar_1 et donc --->>

Code :

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

NomFile = Mid(StrPath, PosCar_1)

suffit parfaitement

Pour le reste : je vais attendre que tu vérifies Nomfile en mode debug si erreur.

EDIT : Et on traitera la listview de toutes manières, mais, après l'avoir traitée (juste pour que tout soit clair) : j'emploierai toute mon énergie pour te dissuader d'utiliser ce contrôle activex qui n'est pas un composant natif de VBA/Excel et t'inviter à utiliser de préférence le contrôle Listbox qui, lui, est natif de VBA/Excel.

[mlww]

Bonjour,

J'ai effectué les modifications du code
j'ai fait le test en debug

a partir d'un fichier dans l'exploreur ca fonctionne bien
le data.files contient le nom du fichier le chemin absolus

l'erreur surviens a partir de la ligne ( Quand je drop depuis un fichier en PJ dans un email

Code :

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

StrPath = Data.Files(1)

[unparia]

Mais c'est là totalement autre chose : le contenu même de ta variable Data !
Et ce contenu, ce n'est pas du tout dans le code montré, qu'il a été défini, mais dans l'évènement OLEStartDrag de ta listview !

[Marc-L]

Bonjour !

mais pour Outlook, rien de va plus

Et sur le forum Outlook, ils en disent quoi ?! …

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[mlww]

Bonjour,

j' ai regardé dans le forum Outlook,
je n'ai rien trouvé..

Bonjour !

Et sur le forum Outlook, ils en disent quoi ?! …

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …