VERSION EXCEL
Tu me vend du rêve là xD
Oh mais je crois que c'est toi qui m'en vends ... in fine, même si j'aime bien les QRCode et AutoIt, il n'y a pas de raison qu'on ne puisse pas faire cela avec excel !!
Toujours ma pseudo-appli "personnel"
fichier personnel.zip
Et un simple fichier excel
Init Fichier Personnel via excel vba.xlsm
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
' sauf ligne de titre et ligne vide
If Target.Row = 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
For i = 2 To Cells(Target.Row, Columns.Count).End(xlToLeft).Column
copie = copie & Cells(Target.Row, i).Value & ";"
Next i
copie = Replace(copie, ";", "{TAB}")
On Error GoTo fin
AppActivate Target.Value
Application.SendKeys (copie)
Cells(Target.Row, 2).Select
End If
Exit Sub
fin:
MsgBox "L'application """ & Target.Value & """ n'est pas lancée !"
Cells(Target.Row, 2).Select
End Sub
Rebonjour
Encore merci pour ton code il fonctionne super bien, j'aimerai toutefois savoir s'il était possible de lier celui ci avec un userform. Mon objectif serait d'exporter via une listbox certaines informations sur une nouvelle feuille de calcul et d'appliquer à cette feuille le worksheet_change. Est ce possible ? car avec le code suivant l'exportation a bien lieu mais worksheet_change non.
'Procédure pour exporter via mon formulaire
Private Sub CommandButtonCarte00_Click()
Dim NumLigne As Integer
Dim NbLigne As Integer
NumLigne = Me.ListVACATAIRES.ListIndex
NbLigne = Me.ListVACATAIRES.ListCount
'La nouvelle feuille d'exportation
Sheets.Add
ActiveSheet.Name = "PEC " & Me.ListVACATAIRES.Column(2, NumLigne) & "" & Me.ListVACATAIRES.Column(4, NumLigne)
MsgBox "Exportation effectuée"
Range("A1") = "Application"
Range("B1") = "Nom"
Range("C1") = "Prénom"
Range("A2") = "Bloc-notes"
Range("B2") = Me.ListVACATAIRES.Column(2, NumLigne)
Range("C2") = Me.ListVACATAIRES.Column(4, NumLigne)
Unload Me
'J'aimerai appliquer l'event sur la nouvelle feuille
Call Worksheet_BeforeDoubleClick(Selection, True)