Discussion :

[bruber]

Bonjour à tous,
Je désire choisir un nom de fichier dans une liste (chemins & noms) pour effectuer diverses opérations sur ce fichier
Peu doué en VBA, je cherche une macro qui, sur un clic droit dans la cellule choisie, m'affiche un menu à l'image d'une liste déroulante mais qui m'afficherait les opérations (Ouvrir, Copier, Déplacer, Supprimer ...)
Et lorsque j'ai choisi l’opération voulue, le menu me dirige vers la macro concernée.
Merci pour votre aide.

[juvaxe]

Bonjour

Voici un exemple de ce que j'ai fait dans un classeur; le code ci-dessous a été placé dans le module "ThisWorkbook" ; ensuite, dans la macro tu as la fonction "ActiveCell" qui te renvoies le nom du fichier dont tu parles.

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
19
20
21
22
23
24
25
Private Sub Workbook_Open()
 
' complément clic droit souris
 
Set Bouton = Barre.Controls.Add(msoControlButton)
    Bouton.Width = 80
    Bouton.Caption = "Nom du choix 1"
    Bouton.OnAction = "nom macro associée au choix 1"
 
Set Bouton = Barre.Controls.Add(msoControlButton)
    Bouton.Width = 80
    Bouton.Caption = "Nom du choix 2"
    Bouton.OnAction = "nom macro associée au choix 2"
 
‘ etc …
 
End Sub
 
 
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
Application.CommandBars("Cell").Reset ' annulation des fonctions clic droit souris
 
End Sub

Bonne réception et bon courage

Note : je te donnes également le moyen de ne plus faire apparaître les clicks droits disponibles à l'ouverture du classeur :

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
19
20
21
For z = 1 To Barre.Controls.Count
'
' **************
' avant de créer les boutons supplémentaires; il est possible de neutraliser les boutons existants
'
If Barre.Controls(z).Caption = "&Créer une liste..." _
 Or Barre.Controls(z).Caption = "&Liste déroulante de choix..." _
 Or Barre.Controls(z).Caption = "&Insérer..." _
 Or Barre.Controls(z).Caption = "&Cellules..." _
 Or Barre.Controls(z).Caption = "Insérer un co&mmentaire" _
 Or Barre.Controls(z).Caption = "&Ajouter un espion" _
 Or Barre.Controls(z).Caption = "Lien &hypertexte" _
 Or Barre.Controls(z).Caption = "Insérer les c&ellules copiées..." _
 Or Barre.Controls(z).Caption = "&Rechercher..." _
 Or Barre.Controls(z).Caption = "Insérer les c&ellules copiées..." _
 Or Barre.Controls(z).Caption = "&Supprimer..." Then
 
  Barre.Controls(z).Visible = False
End If
 
Next z

[bruber]

Bonjour Juvaxe,
Je te remercie pour ton aide mais ça ne marche pas.
Serais-ce trop de te demander de réaliser un classeur tout simple qui m'affiche deux commandes et annule toutes les autres ? macros qui affiche simplement un message par exemple
J'ai un message "Objet requis" et comme tu le vois, VBA n'est pas mon fort !
Merci et bonne soirée.
Bernard

[juvaxe]

Bonsoir

Désolé, j'ai sorti "un peu" hâtivement ce que j'avais fait de son contexte.
Voici quelque chose qui marche ...

Bonne réception

[bruber]

Merci Juvaxe,
Cela fonctionne maintenant,
Par contre j'ai toujours les commandes normales du clic droit qui s'affichent.
Mais je peux quand-même poursuivre mon projet.
Je vais tenter de comprendre ce qui cloche.
Pas si facile VBA !
Merci encore pour ton aide.

[juvaxe]

Merci Juvaxe,
Cela fonctionne maintenant,
Par contre j'ai toujours les commandes normales du clic droit qui s'affichent.
Mais je peux quand-même poursuivre mon projet.
Je vais tenter de comprendre ce qui cloche.
Pas si facile VBA !
Merci encore pour ton aide.

Bonjour

Bonne fin de projet donc ...

Je reviens sur le fait qu'il reste d'autres commandes dans le click droit en plus. En fait je n'ai pas cherché à tout enlever, c'est donc normal et il n'y a rien qui cloche.

Dans le workbook open j'ai laissé un MsgBox en commentaire, tu pourras l'activer pour faire l'inventaire de tous les boutons disponibles dans le click droit et compléter la liste des "OR" qui est en dessous pour rendre non visible le boutons qui ne t'intéressent pas.

Bonne réception.