Discussion :

[olra72]

Bonjour,

Dans la cellule active, j'ai un chemin complet (C:\...) et dans celle de droite, un nom de fichier. Je lance la macro suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Public Sub Fn_Fichier()
    Dim fullFnm As String
    fullFnm = ActiveCell.Value & "\" & ActiveCell.Offset(0, 1).Value
    If (Dir(fullFnm) <> "") Then MsgBox fullFnm & " introuvable !": Exit Sub
    On Error GoTo OpenErr
    Dim app As Object: Set app = CreateObject("Shell.Application")
    app.Open (fullFnm)  ' Attention : Paranthèses obligatoires cf. persistance de la variable ?!
    Set app = Nothing
    Exit Sub
OpenErr:
     MsgBox "Impossible d'ouvrir " & fullFnm
    Set app = Nothing
End Sub

... et rien ne se passe ! Pas d'erreur, mais pas non plus d'ouverture de Word, VLC, Adobe (en fonction du type du fichier et de l'application associée), rien !

Le pire, c'est que j'ai exactement le même code sous Access, qui marche très bien - et sur les mêmes fichiers.

Une idée ?

Confinitivement votre,
Olivier

[olra72]

Pas de panique ! J'avions raté le fait que mes chemins comportent une duplication inattendue ... genre C:\Temp\Temp !

Si ça se peut, ça n'est que ça !

[olra72]

C'était bien ça ! Je suis une grosse buse !

Accessoirement, j'ai remplacé le If (Dir(fullFnm) <> "") par If (Dir(fullFnm) = "") ... une buse, je vous dis !