Compatibilité macro 2016 dans Excel 2010
Bonjour,
J'ai crée un macro avec Excel 2016 dans un bouton de type Activix Controls. Tout fonctionne correctement, le bouton copie le nom du bouton dans un cellule dans une autre feuille est active la feuille. Quand j'essais de l'executer dans Excel 2010, sur un autre ordinateur rien ne fonctionne. Cependant les macros sont activés, les controls ActiveX aussi avec 2010. Lors de la compilation du projet VBA sous 2010 j'obtiens une erreur " variable non defini" est le debuger est arreté sur CommandButton8 en temps que en 2016 tout marche.
Avez vous rencontrer ce genre de situation ? Merci de votre aide. Ci-dessous le macro en question.
Private Sub CommandButton8_Click()
Dim wsOrigin As Worksheet
Dim wsDestination1 As Worksheet
Dim strCaption As String
Set wsOrigin = Sheets(getSheetName("Sheet3"))
Set wsDestination1 = Sheets(getSheetName("Sheet4"))
strCaption = CommandButton8.Caption
wsDestination1.Cells(4, 3) = strCaption
wsDestination1.Activate
End Sub
Cordialement
Radu
Bonjour,
A quoi correspond GetSheetName ?
Cdlt.
Bonjour,
Elle est défini au niveau du Module dans une fonction publique, ci-dessous
Public Function getSheetName(sheetCodeName As String) As String
Dim ws As Worksheet
For Each ws In Worksheets
If sheetCodeName = ws.CodeName Then
getSheetName = ws.Name
End If
Next ws
End Function
Elle existe aussi au niveau de la version 2010.
Merci beaucoup
Cordialement
Bonjour,
Ci cela peut aider, je joins le fichier crée avec Excel 2016.
En faisant les tests j'ai remarqué qu'on essayant de crée le même scénario dans Excel 2010, lors de l'insertion du bouton sur le Feuille1 j'obtiens un message d'erreur "Cannot insert object".
Je ne sais pas s'il y a un lien avec le fait que lors de l'ouverture du Excel 2016 en 2010, le bouton ne fonctionne pas.
Également j'ai créée une copie du fichier Excel 2010 sur le deuxième ordinateur et je l'ai rouvert en 2016. Cela fonctionne bien.
Je ne sais pas quel autre test dois-je faire, j'ai épuisé mes solutions
Merci encore
Cordialement
Radu
Re,
Regarde le fichier modifié...
Sinon il est possible qu'Excel n'ait pas toléré 2 commandButton8 !?
Cdlt.
Bonjour,
Même problème. Cependant ca marche sur un autre ordinateur avec Excel 2010...?
Je continue les recherches
Merci beaucoup
Cordialment