Menu Shapes copier coller

Bonjour,

J'ai un petit projet qui pourrais intéresser plus d'une personne.

Je voudrais faire un menu dans Excel (chose que j'ai déjà fait mais sans macro)

Menu afin d'éviter d'avoir 10 000 raccourcis sur le bureau.

En fait ce menu serait entièrement configurable (voir onglet Options)

J'ai créé un rectangle Shapes (Bouton-0) à l’intérieur une petite image (Icone-0)

J'ai assemblé les deux (Groupe-0)

Dans le rectangle bleu (Bouton-0) je vais y mettre le Titre avec le lien du fichier

Pour le Titre :

Filename = Mid(nomfich, InStrRev(nomfich, "\") + 1)
Filename = Split(Filename, ".")(0)
Titre= Filename

Pour le lien :

ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:= emplacement d'une cellule

Dans la petite image (Icone-0) je vais lui mettre le lien du DOSSIER

Brefff ...

Ce que je n'arrive pas à faire est de multiplier mes Shapes (copier coller), les emplacement sont dans un array (poss)

Je vous laisse un extrait de mon fichier

Merci pour votre aide.

Edité : oupss j'avais oublié de mettre le fichier..

Bonsoir,

Trop de Left and Right !

un essai :

Sub AA()
    poss = Array("B6", "B9", "B12", "B15", "B18", "B21", "B24", "B27", "B30", "F3", "F6", "F9", "F12", "F15", "F18", "F21", "F24", "F27", "F30", "J3", "J6", "J9", "J12", "J15", "J18", "J21", "J24", "J27", "J30", "N3", "N6", "N9", "N12", "N15", "N18", "N21", "N24", "N27", "N30", "R3", "R6", "R9", "R12", "R15", "R18", "R21", "R24", "R27", "R30")
    For T = 1 To 15
        ActiveSheet.Shapes.Range(Array("Groupe-0")).Select
        Selection.Copy
        ActiveSheet.Paste
        Selection.ShapeRange.Name = "Groupe-" & T
        With ActiveSheet.Shapes("Groupe-" & T)
            .Top = Range(poss(T - 1)).Top
            .Left = Range(poss(T - 1)).Left
        End With
    Next
End Sub

J'ai supprimé la référence "B3" car déjà utilisée par le groupe 0.

@ bientôt

LouReeD

Merci Loured,

Ça ne marche pas chez moi il me fait une erreur

Je pense que c'est peut être le fait que je bosse sur VirtualBox , en gros je suis sur un MAC et j'ai installé un simulateur (VirtualBox)

Je vais essayer ce programme sur un Vrai PC dans la journée

Merci

Bonjour,

Effectivement sur PC ça marche

Bonsoir,

c'est pourquoi j'ai attendu le résultat de vos derniers tests pour répondre...
Vous me voyez ravi de constater que ceci fonctionne.

Merci pour vos remerciements !

@ bientôt

LouReeD

De rien

Je suis bloqué là.

Je voudrais récupérer le lien dossier

J'ai ça : C:\Users\Jefekoi\Desktop\NOUVEAU\fichier.xlsx

et je voudrais ça : C:\Users\Jefekoi\Desktop\NOUVEAU\

sachant que certains liens sont plus ou moins long

C:\Users\Jefekoi\Desktop\NOUVEAU\monDossier\nov\fichier.txt

récupérer ça : C:\Users\Jefekoi\Desktop\NOUVEAU\monDossier\nov\

Si une âme charitable pourrait m'aider :)

Merci

C'est bon j'ai trouvé :)

Filename = Left(Url, InStrRev(Url, "\"))

Mon menu est terminé

J'aimerais avoir votre avis sur son fonctionnement

Bonjour,

Personne pour tester mon menu ? :(

Il sert à éviter d'avoir trop de raccourcis sur le bureau

Bonne journée

Bonsoir,

je vous avoue que c'est un peu "déroutant" au début, savoir ce qu'il faut faire et à quoi ça sert.
Si je comprend bien cela permet de regrouper des liens, fichiers ou autres par "catégories" (ici les onglets boutons) et chaque lien est un bouton de ces catégories.

Après essais, j'ai fait des liens vers des images, cela fonctionne mais je suis obligé de répondre à deux questions de sécurités... peut-être est-ce du au fait que j'ai lancé l'application depuis la zone de téléchargement... Je fais un test en le copiant "complet" en local et je reviens...

Voilà, en local je n'ai plus qu'un seul message d'avertissement : une histoire de contamination...

Je me suis fait la même chose avec du HTML et Javascript, en somme une page internet que je charge à l'ouverture du pc et cela remplace mon bureau... Avant je le mettez carrément en fond d'écran quand Windows accepté ActiveDesktop, mais je crois que cela a été supprimé pour cause de faiblesse au niveau sécurité.

@ bientôt

LouReeD