Discussion :

[Oliv-]

Bonjour,
J'ai une barre d'outil XL2003 qui pointe sur un fichier .xla

Dans excel 2003 tout va bien. Dans 2007 lorsque je clique sur mon bouton de macro je bloque l'accès au ruban JUSQU'à la fin de la macro !!

Si je lance ma macro par le menu MACRO (ou alt+f8) cela ne se produit pas.

Quelqu'un a t'il une solution aisée qui reste compatible XL2003 ?

j'ai besoin au cours d'une macro de changer de fenêtre pour aller choisir sur quelle classeur je travaille.
exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub Comparaison_1()
 
    Dim ColonneImmat_GSR As Range
    Dim ColonneImmat_client As Range
 
colgsr:
    Set ColonneImmat_GSR = Application.InputBox(prompt:="Sélectionner avec la souris le FICHIER et la COLONNE ou se trouvent NOS " & TexteBoite _
                                                        & vbCr & Texterreur, Title:="1ère colonne " & TexteBoite, Type:=8)
    If ColonneImmat_GSR Is Nothing Then MsgBox "Boîte de dialoque annuler": Exit Sub
    If ColonneImmat_GSR.Columns.Count <> 1 Then
        Texterreur = "##Veuillez selectionner 1 seule colonne ! ##'"
        GoTo colgsr
    Else
        Texterreur = ""
    End If
 
 
'...
End Sub

[Oliv-]

J'ai trouvé une solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub Comparaison()
 
If CDbl(Left(Application.Version, 2)) >= 12 Then
Application.OnTime Now + TimeValue("00:00:01"), "Module_comparaison.Comparaison_go"
Exit Sub
Else
Call Comparaison_go
End If
End Sub
Sub Comparaison_go()
' ma macro
end sub

Si vous avez autre chose ?