Discussion :

[kykyn]

Bonjour,

Je dois travailler à la migration de XL2003 Vers XL2007, et pour se faire je teste des macros.
Et le fait est que dans notre service nous avons quelques "Macros" qui ne sont pas développées sous VBA, mais directement sur la feuille avec des fonctions.

voici un 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
 
=ACTIVER.SUIV()
=OPTIONS.CALCUL(1;;;0,001;;FAUX)
=SELECTIONNER("C3")
=EDITION.SUPPRIMER(1)
=SELECTIONNER("L1:L5")
=INSERER(2)
=SELECTIONNER("L7")
=INSERER(2)
=SELECTIONNER("L9")
=INSERER(2)
=SELECTIONNER("L11")
=INSERER(2)
=SELECTIONNER("L13")

Je ne trouve absolument rien sur cette façon de programmer sur le Net, et je vous demande de l'aide car, je ne sais pas pourquoi, mais sous 2007 les fonctions "EDITION.SUPPRIMER()" et "INSERER()" me renvoient un message d'erreur : "Erreur de macro à la cellule :"
Voila, alors si quelqu'un connaît cette façon de programmer, et à une solution, je suis preneur.

Bonne journée

[Didier Gonard]

Bonjour,

il s'agit à coup sur de "macros XL4", qui était le langage macro ayant précédé le vba, fait des recherches à ce sujet

exemple : http://www.developpez.net/forums/d48...lire-document/

voir aide vba à : ExecuteExcel4Macro, méthode / 2003

Cette méthode exécute une fonction macro Microsoft Excel 4.0, puis renvoie le résultat de la fonction. Le type renvoyé dépend de la fonction.

expression.ExecuteExcel4Macro(String)
expression Facultative. Expression qui renvoie un objet Application.

String Argument de type String obligatoire. Fonction du langage macro Microsoft Excel 4.0 sans le signe égal (=). Toutes les références doivent être données sous forme de chaînes de caractères R1C1. Si l'argument String contient des guillemets doubles incorporés, vous devez encore les doubler. Par exemple, pour exécuter la fonction macro =MID("dutexte",1,4), String doit être "MID(""dutexte"",1,4)".

Notes
La macro Microsoft Excel 4.0 n'est pas évaluée dans le contexte du classeur actif ou de la feuille active. Cela signifie que toute référence doit être externe et doit spécifier un nom de classeur explicite. Par exemple, pour exécuter une macro Microsoft Excel 4.0 appelée "Ma_Macro" dans le classeur Class1, vous devez utiliser "Class1!Ma_Macro()". Si vous ne spécifiez pas de nom de classeur, cette méthode échoue.

Exemple
Cet exemple montre comment exécuter la fonction de macro GET.CELL(42) sur la cellule C3 de la feuille Sheet1, puis afficher le résultat dans une boîte de message. La fonction de macro GET.CELL(42) renvoie la distance horizontale entre le bord gauche de la fenêtre active et le bord gauche de la cellule active. Cette fonction de macro n'a aucun équivalent Visual Basic direct.

Worksheets("Sheet1").Activate
Range("C3").Select
MsgBox ExecuteExcel4Macro("GET.CELL(42)")

sous 2007

Application.ExecuteExcel4Macro, méthode
Cette méthode exécute une fonction macro Microsoft Excel 4.0, puis renvoie le résultat de la fonction. Le type renvoyé dépend de la fonction.
Syntaxe

expression.ExecuteExcel4Macro(Chaîne)

expression Variable qui représente un objet Application.

Paramètres

Nom Obligatoire/Facultatif Type de données Description
Chaîne Obligatoire Chaîne Fonction du langage de macro Microsoft Excel 4.0 sans le signe égal (=). Toutes les références doivent être données sous forme de chaînes de caractères R1C1. Si l'argument Chaîne contient des guillemets doubles incorporés, vous devez les doubler. Par exemple, pour exécuter la fonction de macro =MID("dutexte",1,4), Chaîne doit être "MID(""dutexte"",1,4)".

Valeur renvoyée
Variante

Remarques


La macro Microsoft Excel 4.0 n'est pas évaluée dans le contexte du classeur actif ou de la feuille active. Cela signifie que toute référence doit être externe et doit spécifier un nom de classeur explicite. Par exemple, pour exécuter une macro Microsoft Excel 4.0 appelée "Ma_Macro" dans le classeur Class1, vous devez utiliser "Class1!Ma_Macro()". Si vous ne spécifiez pas de nom de classeur, cette méthode échoue.
etc...

cordialement,

Didier

[kykyn]

Merci Didier.

Au moins maintenant je connais le nom de cette programmation préhistorique.
Mes deux fonctions ne veulent toujours pas fonctionner cependant, je vais continuer à creuser pour en trouver la cause