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?
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.
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"
Un essai avec un Worksheet_Change qui transforme les cellules B3 et B5 de la feuille 1 en lien.
Code:
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