ouverture applications

[seb33]

Bonjour à tous,

encore moi 😛

peut-on facilement ouvrir des applications, fichiers autres que excel (pdf, word, exe, etc) via un bouton?
si oui, y a t il une ligne de code tout terrain?

Merci d'avance
seb

 

[Spitnolan08]

Re : ouverture applications

Bonsoir,

Oui, en utilisant les liens hypertexte.

Cordialement

 

[JCGL]

Re : ouverture applications

Bonjour à tous,
Salut Spit 🙂,

D'humeur "joueuse" ce soir : Spit, tu aurais pu faire encore plus court... arf arf

A++ ami Spit
A+ à tous

 

[Spitnolan08]

Re : ouverture applications

Bonsoir JCGL🙂,

J'ai pris mon 4x4 et j' ai foncé tout droit...en appuyant sur le champignon (bouton)!😛 pour rester dans le ton de la question...

A++

 

[Cousinhub]

Re : ouverture applications

Salut les joyeux drilles...

un peu plus long:

Sub ouvir()
With Index(gauche)
    Select Case NbClic
        Case Is = 1
            Bureau.Open
        Case Is = 2
            Poste_de_travail.Open
            MesDocuments.Select
            Fichier.Open(Shell:=Find(extension))
    End Select
End With
End Sub

Bon, je sors....

Edit, juste pour une précision :

Drille :
[nom masculin] Joyeux drille: homme d'humeur joviale.
[nom féminin] Petit instrument pour forer.

Choisissez votre camp.....

 

[JCGL]

Re : ouverture applications

Re,

Arf libidineux mais il est plus de 00:00 : Moi qui suis UN drille m'en vais utiliser MA drille....

Zut mon amoureuse dort....

Ici Macha Méril à vous les Studios...

A++ mes amis
A+ à tous

PS : Bien évidement Pasacal, David, il est 00:00, maintenant, mais demain il sera =aujourdhui() aussi vous avez toutes latitudes pour un Del de ma réponse
Que je mets en "Alerte Hors Charte"

 

[seb33]

Re : ouverture applications

😛 c'est la grande forme à cette heure là.

ok, j'ai compris que le plus simple serait l'hyperlien.
mais comment le mettre en place.

sur le fichier joint, il y a 2 listes, et 2 cellules de listes à dérouler correspondantes (B3 et B5).

Chaque liste (Aquitaine et Programmes) ont reçu le lien.
mais quand choisie un éléments de la liste, comment ouvrir cet élément?

Merci d'avance.
seb

 

[JCGL]

Re : ouverture applications

Bonjour à tous,

Seb : Effectivement en forme hier soir 😛

Un essai avec un Worksheet_Change qui transforme les cellules B3 et B5 de la feuille 1 en lien.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(ActiveCell, Range("B3,B5")) Is Nothing Then
        Hyperlinks.Add Anchor:=ActiveCell, Address:=ActiveCell.Value
    End If
End Sub

A+

 

[seb33]

Re : ouverture applications

merci,

je regardes ca.
Bonne journée
seb