Double clic sur cellule: Erreur 53

Viking58 Messages postés 186 Date d'inscription   Statut Membre Dernière intervention   -  
Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour.

Trouvé ce code qui permettrait, en double cliquant sur la cellule, de lancer l'ouverture d'un pdf.

J'ai une erreur 53 sur ce code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Siret As String
Dim CheminDOc As String
CheminDOc = "D:\Documents\Armes\Tables Rechargement Sous Excel\Petits Calibres\.17 Remington.pdf"
Siret = Target
If Siret <> "" Then
Shell "D:\Documents\Armes\Tables Rechargement Sous Excel\Sumatra.exe" & CheminDOc & "\" & Siret
Else
MsgBox " La cellule est vide, veuillez double cliquer sur une autre cellule"
End If
End Sub


Mon CheminDOc est bon.
La partie surlignée est en cause.
Mon reader de pdf est bien à sa place.

Merci






A voir également:

3 réponses

Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention   149
 
Bonjour,

Avant le Shell, affiche ce que tu essaies d'ouvrir :
MsgBox("D:\Documents\Armes\Tables Rechargement Sous Excel\Sumatra.exe" & CheminDOc & "\" & Siret)


Puis essaie directement en ligne de commande DOS.

Il ne semble pas y avoir d'espace après '.exe' et tu ajoutes un n° Siret après '.pdf'.

ça paraît curieux...

A+
0
Viking58 Messages postés 186 Date d'inscription   Statut Membre Dernière intervention   7
 
Merci Zoulou.

Si cela te parait curieux, imagine quelqu'un qui ne connait pas bien VBA.
Après le Shell ? Je veux ouvrir mon reader de Pdfs, Sumatra.
Ajouter un N° de Siret ? Quel numéro ?
(C'est quoi un SIRET ?)
Le plus terrible, c'est que je cherche simplement a ouvrir un pdf quand je double clic sur une cellule.
0
Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention   149
 
C'est pas moi qui ai indiqué un code mentionnant "Shell" et "Siret"... qui se trouvent dans la ligne que tu as mise en gras... et je n'ai aucune idée de ton niveau en Excel et en VBA.

Shell va agir comme l'invite de commande DOS (menu Windows > Exécuter > "cmd").
Dans ta ligne en gras tu essaies d'ouvrir un fichier pdf avec ton lecteur Sumatra et le paramètre Siret à la fin semble être en trop.
Si tu tiens à ton code VBA, tu peux essayer (à la place de ta ligne en gras) :
ActiveWorkbook.FollowHyperlink Address:=CheminDOc

mais peut-être un lien hypertexte est-il suffisant ?
https://support.microsoft.com/fr-fr/office/lien-hypertexte-lien-hypertexte-fonction-333c7ce6-c5ae-4164-9c47-7de9b76f577f?ui=fr-fr&rs=fr-fr&ad=fr

En plus comme ça tu sais ce que tu ouvres et tu n'ouvres pas le fichier à tout bout de champ (un double-clic est si vite arrivé).
0
Viking58 Messages postés 186 Date d'inscription   Statut Membre Dernière intervention   7 > Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention  
 
Merci Zoulou.

Non, le lien hypertexte est ici une galère à réaliser.
Comme j'en ai parlé sur un autre post aujourd'hui, à chaque création de lien, Excel ouvre la fenêtre de construction "au départ"
C'est à dire qu'il faut, dans mon cas, ouvrir la fenêtre création de lien, se promener dans l'arborescence du disque, trouver le pdf visé et valider.
Au second lien, Excel repart encore du début, il faut tout recommencer entièrement du début.
Même pas fichu de garder en mémoire le dernier répertoire ouvert (contrairement aux autres logiciels).
Alors, j'avoue baisser les bras pour faire plus de 200 fois ces manips fastidieuses...
Je le regrette d'autant plus que le lien hypertexte est l'idéal pour mon projet.
0
Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention   149
 
Je pige toujours pas.
Dans ce fil, tu demandes comment ouvrir un fichier bien précis (donc unique).
Dans le précédent (que je suis allé chercher ici : https://forums.commentcamarche.net/forum/affich-32540316-liens-hypertexte-a-la-suite ), tu crées des liens hypertexte.

Peut-être qu'en exprimant ton besoin plutôt qu'en cherchant à corriger un moyen, on y arrivera...
Si par exemple, tu veux créer un lien hypertexte par fichier pdf contenu dans un dossier, c'est assez simple par macro (qu'il y ait 5 fichiers pdf ou 5000).
0
Viking58 Messages postés 186 Date d'inscription   Statut Membre Dernière intervention   7 > Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention  
 
J'ai fais des post différents, selon la technique recherchée.

Je vais donner un exemple simple.

En colonne A, j'ai la liste des fruits.
A
Banane
Pomme
Poire
Pêche
Cerise

J'ai, dans un répertoire, la liste de tous mes fruits. en PDF
Chaque fruit possède un type. (ex: Poire Passe-crassane, Poire Williams, Poire Guyot, etc...
J'ai donc fusionné tous les fichiers poire pour n'avoir qu'un seul pdf.
Sur Excel, e voulais qu'en cliquant sur "Poire", Sumatra ouvre le pdf "poire", et que je puisse ainsi regarder toutes mes variétés de poire.
Le lien était l'idéal, mais beaucoup trop à mettre en place. (plus de 200 fruits)
J'espère avoir été clair.
C'est un peu comme une table des matières sur un DVD.
On clique sur un libellé, on arrive au début du sujet.
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

C'est bien beau d'ouvrir de nouveau post, mais il faudrait quand même répondre au précédent.

On te donne une solution, tu ne cherches même pas à creuser pour arriver à tes fins.

https://forums.commentcamarche.net/forum/affich-32540316-liens-hypertexte-a-la-suite#p32540381
0
Viking58 Messages postés 186 Date d'inscription   Statut Membre Dernière intervention   7
 
Si, justement J'ai ESSAYÉ... Ayant trouvé ce code hier.
Je n'ai pas réussi à adapter à mon classeur.
Les réponses arrivent parfois en live, parfois en retard. Je n'ai pas vu ce post.
J'ai l'habitude de répondre et de toujours remercier.
Quand à creuser, étant malheureusement sans travail, j'y passe des heures chaque jour.
Alors les réflexions de ce genre...
Tant mieux pour ceux qui maitrisent.
Je maitrise bien d'autre choses que vous ne maitrisez pas...
0
Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention   149 > Viking58 Messages postés 186 Date d'inscription   Statut Membre Dernière intervention  
 
On va donc essayer de clore tous tes fils en répondant à ton besoin initial : avoir la possibilité d'ouvrir le fichier de ton choix depuis une liste dans Excel.
Peux-tu répondre à https://forums.commentcamarche.net/forum/affich-32540742-double-clic-sur-cellule-erreur-53#8 ?
0
Viking58 Messages postés 186 Date d'inscription   Statut Membre Dernière intervention   7 > Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention  
 
Merci Zoul67.
Il est difficile de se faire comprendre quand on ne peut déposer son fichier quand il est privé.(celui là, en plus, à un ©) .
Je suis depuis 48 heures sur ce problème et ai testé des tonnes de trucs, sans succès.
Ta solution me convient. Mettre au propre le sujet. N'hésite pas.
Je désire donc, pour simplifier:
Colonne A: Ma liste de noms.
Je désire que quand je clique sur le nom, Excel trouve et ouvre le pdf correspondant, situé dans un répertoire de mon disque.
(je précise que le classeur et les pdfs sont dans le même répertoire)

Je me répète: Si Excel n'était pas aussi lourd pour créer un lien, je l'aurai fais sans hésiter.
Merci encore de ta patience.
0
Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention   149 > Viking58 Messages postés 186 Date d'inscription   Statut Membre Dernière intervention  
 
Excel n'est pas lourd pour créer un lien.
Si ton fichier Excel et tes pdf sont dans le même dossier, tu peux t'inspirer de ça :

https://www.cjoint.com/c/EIrsrcESqWV

J'ai utilisé des fichiers txt plutôt que pdf, c'était plus simple.
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Vu ta réponse, je m'abstiendrai à l'avenir de répondre à tes posts
0
Viking58 Messages postés 186 Date d'inscription   Statut Membre Dernière intervention   7
 
Pas de soucis...
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
Bonjour,

Il ne sera pas le seul...
eric
0