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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
|
Sub compare_files()
Dim bar As CommandBar
Dim Ctrl As CommandBarControl
file_1 = Application.GetOpenFilename(FileFilter:="Fichier (*.*),*.*", Title:=" First file")
file_2 = Application.GetOpenFilename(FileFilter:="Fichier (*.*),*.*", Title:=" Second file")
If file_1 = False Or file_2 = False Then
MsgBox "Error: No file selected!"
Exit Sub
End If
On Error Resume Next
CommandBars("MaBarre").Delete
'arrête la gestion d'erreurs
On Error GoTo 0
Set bar = Application.CommandBars.Add("MaBarre")
With bar
.Visible = True
.Top = 500
.Left = 700
End With
Set Ctrl = bar.Controls.Add(msoControlEdit)
With Ctrl
.Caption = "Value"
.Style = msoComboLabel
.OnAction = "'test""MaBarre""'"
End With
End Sub
Sub Test(Arg As String)
'retoure la valeur entrée dans la zone de texte ainsi que l'argument passé
MsgBox CommandBars.ActionControl.Text & vbCrLf & Arg
End Sub |
Partager