Discussion :

[pastis.vi]

Bonjour à tous,

Je rencontre un soucis qui parait très très simple mais je n'ai pas la solution.

Lorsque je double clique sur la cellule indiquée par la flèche rouge j'ai une boite de dialogue qui apparaît pour aller chercher le chemin réseau de ma base de données.
Lorsque je ferme ma boite de dialogue avec la croix rouge ou avec le bouton "annuler" j'ai l'inscription "FAUX" qui s'inscrit à la place du chemin :


Voici le code associé :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
        '--- Affichage d'une fenêtre  pour recherche du fichier
    If Not Intersect(Target, Sheets("Menu").Range("$B$4")) Is Nothing Then
        Sheets("Menu").Range("B4").Value = Application.GetOpenFilename
        Sheets("Menu").Range("B13").Select
    End If
 
End Sub

Comment puis-je détecter l'annulation de la boite de dialogue ?
Je pensais faire comme ça : lorsque je détecte l'annulation je replace l'ancienne valeur préalablement enregistrée.

Merci pour le coup de main,
Pastis

[joe.levrai]

Bonjour,

utilise un Variant pour tester ce que vaut application.GetOpenFilename

si c'est un Booléen, c'est qu'on a pas choisi de fichier

Code :

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

1
2
3
4
5
Sub ioi()
       Dim C As Variant
           C = Application.GetOpenFilename
If VarType(C) <> vbBoolean Then MsgBox "on a choisi un fichier" Else MsgBox "on a rien choisi"
End Sub

[pastis.vi]

Bonjour Joe,

C'est clair net et concis ! Merci beaucoup pour ta réponse

[RyuAutodidacte]

Bonjour,
Je me permets d'intervenir car sur la capture d'écran, l'adresse serveur à l'air du type PC, hors la discussion est indiqué XL MAC 2016.
Pour les adresses avec Excel Mac 2016, le séparateur est un slash "/" et sur PC c'est un anti-slash "\".
Peut-être faudrait-il revoir la procédure pour une compatibilité avec Excel Mac 2016 ? …

Voilà