Discussion :

[atk_49]

Bonjour à tous !

Je vous expose ma problématique.

La cellule A1 de mon tableur contient un lien hypertexte qui change dynamiquement en fonction d'autres cellules :

Code :

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

=LIEN_HYPERTEXTE(B1;C1)

B1 renvois vers une formule contenant le lien vers le fichier :

Code :

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

="C:\"&C40&" "&C41&" ("&C42&") "&C43&".pdf"

(Les cellules C40-41-42-43 proviennent d'une combobox.)

C1 rappel juste le nom d'une autre cellule.

Jusque la tout fonctionne parfaitement.

Je souhaiterais que lorsque que l'utilisateur clique sur le lien de A1, et que le fichier est introuvable dans le répertoire, une message box s'ouvre avec un choix oui / non.
Bien sur si le fichier existe il faudra qu'il s'ouvre.

J'ai effectué pas mal de recherches mais j'ai beaucoup de mal à adapter correctement les fonctions que je trouve, quelqu'un pourrait il m'aider ?

Merci d'avance et bonne journée.

[defluc]

Bonjour,

Code :

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

1
2
3
4
5
6
7
Function FileExists(ByVal Name As String) As Boolean
  FileExists = False
  If StrComp(Name, vbNullString, vbTextCompare) = 1 Then
     If StrComp(Dir$(Name), vbNullString, vbTextCompare) = 1 Then FileExists = True
  End If
  Exit Function
End Function

Code :

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

1
2
3
4
5
  If not FileExists("C:\"&C40&" "&C41&" ("&C42&") "&C43&".pdf") then
     If MsgBox("Fichier introuvable" & Chr(10) & "Voulez-vous abandonner l'exécution" , vbYesNo, "ATTENTION") = vbNo Then
          '  Traitement
     Enf If
  End If

[atk_49]

Bonjour defluc et merci pour ton aide,

J'ai intégré tes codes dans VB mais je pense mal m'y prendre, dans quels types d’événements dois-je les placer ?

Peux-tu m'expliquer les étapes du code ? Je ne comprends pas très bien ce qu'il fait

[defluc]

La fonction vérifie si le fichier existe.

Le code qui suit est à placer dans l'évènement Worksheet_Change de la feuille.
Il faut adapter le code suivant ton objectif en prévoyant que le code ne s'exécute que si un changement se fait dans une cellule d'adresse donnée.

[Marc-L]

Bonjour defluc,

tes lignes n°2 & 6 sont inutiles (FileExists est déjà à False par défaut) :

Code :

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

1
2
3
4
Function FileExists(ByVal Name As String) As Boolean
  If StrComp(Name, vbNullString, vbTextCompare) = 1 Then _
     If StrComp(Dir$(Name), vbNullString, vbTextCompare) = 1 Then FileExists = True
End Function

[defluc]

Je l'utilise les yeux fermés depuis tant d'années que je ne m'en étais pas rendu compte.

Merci à toi pour ton attention. Deux lignes de gagnées c'est toujours ça

[Marc-L]

S'il n'y as pas de joker dans le nom recherché, Dir(Name) > "" me suffit pour vérifier si un fichier existe …

[atk_49]

Voici ce que j'ai collé dans VB :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function FileExists(ByVal Name As String) As Boolean
  If StrComp(Name, vbNullString, vbTextCompare) = 1 Then _
     If StrComp(Dir$(Name), vbNullString, vbTextCompare) = 1 Then FileExists = True
End Function
 
Private Sub Worksheet_Change(ByVal Target As Range)
 If not FileExists("C:\"&B3&".pdf") then
     If MsgBox("Fichier introuvable" & Chr(10) & "Voulez-vous abandonner l'exécution" , vbYesNo, "ATTENTION") = vbNo Then
          '  Traitement
     Enf If
  End If
End Sub

Il ne se passe rien lors d'un changement sur la page, et la fonction IF est en rouge dans le code, je pense faire erreur quelque part.

Je ne vois pas comment le code peut comprendre que le lien est sur A1 ? :/

J'ai pris en compte les précisions de Marc.

[defluc]

Remplaces la ligne

Code :

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

If not FileExists("C:\"&B3&".pdf") then

par

Code :

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

 If Not FileExists("C:\" & B3 & ".pdf") Then

[Marc-L]

Code :

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

If Not FileExists("C:\" & [B3].Text & ".pdf") Then

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[atk_49]

Ok ça fonctionne, mais j'ai du utiliser un bouton de commande. De plus j'ai aussi indiqué la cellule B1 directement avec ActiveSheet.Range car elle contient le chemin complet vers le fichier, voila ce que ça donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function FileExists(ByVal Name As String) As Boolean
  If StrComp(Name, vbNullString, vbTextCompare) = 1 Then _
     If StrComp(Dir$(Name), vbNullString, vbTextCompare) = 1 Then FileExists = True
End Function
Private Sub CommandButton1_Click()
If Not FileExists("" & ActiveSheet.Range("B1") & "") Then
     If MsgBox("Fichier introuvable" & Chr(10) & "Voulez-vous abandonner l'exécution" , vbYesNo, "ATTENTION") = vbNo Then
'Traitement'
     End If
  End If
End Sub

Maintenant je ne vois pas comment activer cette msg box en cliquant sur le lien de A1 ? :/

Je viens de voir la correction de Marc, encore plus simple. Merci à vous deux, ça avance bien !

[defluc]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function FileExists(ByVal Name As String) As Boolean
  If StrComp(Name, vbNullString, vbTextCompare) = 1 Then _
     If StrComp(Dir$(Name), vbNullString, vbTextCompare) = 1 Then FileExists = True
End Function
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Not FileExists("C:\" & [B3].Text & ".pdf") Then
     If MsgBox("Fichier introuvable" & Chr(10) & "Voulez-vous abandonner l'exécution", vbYesNo, "ATTENTION") = vbNo Then
'Traitement'
     End If
  End If
End Sub

[atk_49]

Navré mais ça ne fonctionne pas.
J'ai essayé de simplifier un tout petit peu, mais ça ne donne rien de plus:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Function FileExists(ByVal Name As String) As Boolean
  If StrComp(Name, vbNullString, vbTextCompare) = 1 Then _
     If StrComp(Dir$(Name), vbNullString, vbTextCompare) = 1 Then FileExists = True
End Function
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Not FileExists("" & [B1] & "") Then
     If MsgBox("Fichier introuvable" & Chr(10) & "Voulez-vous abandonner l'exécution", vbYesNo, "ATTENTION") = vbNo Then
'Traitement'
     End If
End If

[defluc]

Qu'est-ce qui ne fonctionne pas ?
Si tu as placé le code dans la feuille, en cliquant sur A1, il se déclenche, sinon il y a sortie de la procédure.

On peut le voir en exécution pas à pas avec un point d'arrêt sur la première ligne de la procédure.

Ou alors, j'ai mal compris le problème.

[atk_49]

En cliquant sur le lien de la cellule A1, soit le fichier s'ouvre s'il existe, soit excel m'indique que le fichier est introuvable, mais la msgbox ne s'ouvre jamais.

J'ai vu que tu avais ajouté cette ligne :

Code :

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

If Target.Address <> "$A$1" Then Exit Sub

Si je la "traduis", je dirais que tu souhaites comparer deux adresses entre elles, l'adresse "cible", et l'adresse de A1, deux interrogations à ce sujet :

Comment excel peut il comprendre qu'on souhaite lui faire prendre en compte l'adresse de A1 et non son contenu ? Ne faudrait il pas le préciser ? (un peu dans cette logique $A$1.Address)

De plus, à quel moment du code défini t on l'adresse cible ?

Merci encore pour ton aide précieuse

[defluc]

Soit je m'exprime mal, soit il y a un problème de compréhension.

Copie le code ci-après dans Microsoft Excel Objets - Feuil2

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = "$A$1" Then
    MsgBox "Vous avez cliqué dans la cellule " & Target.Address
                             Else
    MsgBox "Vous n'avez pas cliqué dans la cellule $A$1 mais dans la cellule " & Target.Address
  End If
End Sub

Puis, rends-toi dans la Feuille 2 et clique dans la cellule A1 puis sur n'importe quelle autre.
Cela devrait t'aider à comprendre.
C'est pour cela que j'avais suggéré

On peut le voir en exécution pas à pas avec un point d'arrêt sur la première ligne de la procédure.

Courage, tu vas y arriver.

[atk_49]

Rassure-toi, tu t'exprimes bien

J'ai fais exactement ce que tu m'as dit sans avoir de doute, et je t'assure qu'il ne se passe rien de rien. :/

[defluc]

Bon, là il y a un problème.

Assures-toi que le code est bien dans la feuille dans laquelle tu as cliqué.
Mets un point d'arrêt sur la première instruction après

Code :

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Retourne dans la feuille et clique dans une cellule.

Si vba ne s'ouvre pas en s'arrêtant sur le point d'arrêt, fermes ton classeur, réouvres le et réessaie.

[atk_49]

fermes ton classeur, réouvres le et réessaie.

J'ai commencé par ça et ça fonctionne ! Ne me demande pas pourquoi ça à planté mais il y a de quoi tomber fou ! ^^

Je retest ton code et je te donne le résultat !

Merci !

[atk_49]

Ça fonctionne ! Merci beaucoup defluc pour ta patience !

Je continue et je mettrais résolu lorsque tout sera fini, j'en profiterais aussi pour te montrer le reste du code au cas ou il y aurait mieux à faire !

Merci encore et bonne journée !