Discussion :

[hebh]

Bonjour,

Je suis entrain de migrer de xp vers Windows7 et de office 2003 vers 2010. j'ai beaucoup de macro et donc beaucoup de modification de code vba.
j'ai un probleme qui se repete sur: Application.CommandBars

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
 
Option Explicit
 
Sub Copier_Image_avec_Erreur()
       Application.CommandBars("Ma première barre de commandes").Controls(3).CopyFace
End Sub
 
Sub Copier_Image_correct()
Application.CommandBars("Ma première barre de commandes").Controls(1).CopyFace
End Sub
 
Sub Coller_Image()
       Application.CommandBars("Ma première barre de commandes").Controls(2).PasteFace
End Sub

Chaque ligne qui contient Application.CommandBars est une erreur malgré que ça fonctionne bien sur office 2003.

SVP si quelqu'un a une idée pour ce probleme.

Merci

[SfJ5Rpw8]

bonsoir,
étant donné que tu nous dis pas ce qu'est ton problème, message d'erreur ....
vérifie la présence de ta barre par le code :

Code :

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

1
2
3
4
5
6
7
Sub listeCommandBar()
Dim C As CommandBar
For Each C In Application.CommandBars
    Debug.Print C.Name
 Next
Stop ' Voir résultat fenêtre exécution CTRL+G
End Sub