Discussion :

[popi33370]

Bonjour,

J'ai développé une appli de gestion intégrée pour un groupe d'associations et, afin de simplifier le déploiement des nouvelles versions sans toucher aux datas locales, j'aimerai pouvoir faire comme dans les autres langages où on fait des "#includes fichier_source.xxx" de fichiers externes contenant le code source (ici le VBA) ce qui permet des upgrades simplissimes pour des gens non informaticiens qui ne se rendent ainsi même pas compte du changement (l'upgrade consiste à déposer les fichiers code source de la nouvelle version à la place des anciens, et quand Excel redémarre, il recharge automatiquement le dernier code fourni).

Cela est-il possible avec Excel ?

Si oui, quelle est la façon la plus simple d'implémenter ce genre de fonctionnalité (M$ a l'habitude de faire très compliqué pour des choses simples, et j'ai pas envie de me prendre la tête, donc la stratégie la plus simple à mettre en oeuvre et à gérer sera la bienvenue).

Un exemple simple m'aiderait également à comprendre la manipe, par exemple un code VBA core qui charge 1 fichier externe contenant les macros au démarrage.

Merci d'avance pour votre aide
popi

[parmi]

Peut-être que des macros complémentaires (.xla ou .xlam) pourraient faire l'affaire dans ton cas ?

Par contre, les sessions Excel devraient être fermées avant les mises à jour, je pense...

Une idée comme ça...

[popi33370]

Merci pour la piste : j'ai regardé mais d'après ce que j'ai compris il faut que l'utilisateur intervienne pour valider le macro externe = impensable pour des utilisateurs lambda

Il me faut un truc simple et transparent pour le end-user

Merci d'avance

[Igloobel]

Salut

Tu as les macros personnelles qui sont dans un fichier Personnal.xlsb
Les macros sont disponible pour tous les classeurs puisse qu'il se charge dès l'ouverture d'Excel

Cela drevrais (si j'ai bien compris ta demande) faire l'affaire

@+

[popi33370]

Merci, effectivement ça répond au besoin : j'ai juste à transférer mes macros dans le classeur commun et à réaffecter les boutons et à revoir les paths pour les fichiers.

C'est une bonne solution.

Merci !

[Igloobel]

Content d'avoir répondre à tes besoins

Pense à et


@+

[parmi]

@Igloobel, es-tu certain que le fichier Personal.xlsb peut être situé dans le répertoire du programme et s'ouvrir automatiquement ?

Le mien est situé dans mon répertoire personnel, par défaut... Celui-ci est reconnu par Excel puisque créé par lui-même...

La même chose pourrait être faite avec un fichier xla s'il est placé dans le répertoire du programme... Du moins, c'est ce que je pense...

[Invité]

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
21
22
23
24
25
26
Sub test()
Dim FileNumber As Long
FileNumber = FreeFile
Dim txt As String
Dim F As String
Open "c:\TEST.bas" For Output As #FileNumber
    Print #FileNumber, "sub test()" & vbCrLf & "Msgbox " & Chr(34) & "toto" & Chr(34) & vbCrLf & "End Sub"       ' Écrit le texte.
    Close #FileNumber    ' Ferme le fichier.
F = ""
Open "c:\TEST.bas" For Input As #FileNumber
Do While Not EOF(1)    ' Effectue la boucle jusqu'à la fin du fichier.
    Line Input #FileNumber, txt        ' Lit la ligne dans la variable.
    F = F & txt & vbCrLf  ' Concatène.
Loop
Close #FileNumber
Set sc = CreateObject("ScriptControl")
   sc.Language = "VBScript"
   sc.AddObject "Me", Application, True
   ' Ajoute un module.
   Set M = sc.Modules.Add("ModuleRD")
   ' Ajoute du code au module.
   M.AddCode F
   ' Exécute le script.
   M.Run "test"
 
End Sub

[popi33370]

Je ne comprends pas ce que fait ce test : qui peut m'expliquer ça en détail ?
MERCI

[Invité]

Faire un test!!?

[popi33370]

Au risque de paraître idiot, j'aimerai juste comprendre ce que démontre ce test
Merci

[Invité]

Au risque de paraître idiot, j'aimerai juste comprendre ce que démontre ce test
Merci

équivalent #include pour charger les macros au démarrage

[Igloobel]

Bonsoir à tous

@parmi

@Igloobel, es-tu certain que le fichier Personal.xlsb peut être situé dans le répertoire du programme et s'ouvrir automatiquement ?

Je viens de faire un test, et, chez moi je positionne Mon fichier Personal.xlsb dans le répertoire suivant :
C:\Program Files (x86)\Microsoft Office 2007\Office12\XLSTART et ça marche nikel !
J'ouvre Excel puis Visual Basic Editor et là je vois Personal.xlsb avec ses macros

Donc je répond Oui

La même chose pourrait être faite avec un fichier xla s'il est placé dans le répertoire du programme... Du moins, c'est ce que je pense...

A priori je dirai que oui mais j'ai pas utilisé (jusqu'à aujourd'hui) les macros complémentaires 97-2003 ni les xlam.

j'ai toujours répondu à mes besoin par les macro personnelles.

@popi33370
Juste une précision j'ai supposé que tu travail avec la version 2007 au moins
pour les version antérieur le fichier s'appelle perso.xls!

Un exemple simple m'aiderait également à comprendre la manipe, par exemple un code VBA core qui charge 1 fichier externe contenant les macros au démarrage.

là rdurupt te propose un super code qui répond parfaitement à ta question

Moi j'avais lu

quelle est la façon la plus simple d'implémenter ce genre de fonctionnalité (M$ a l'habitude de faire très compliqué pour des choses simples, et j'ai pas envie de me prendre la tête, donc la stratégie la plus simple à mettre en oeuvre et à gérer sera la bienvenue).

c'est pourquoi je t'avais proposé Personal.xlsb

Mais peut-être tu pourrais combiner les deux !

[Invité]

Bonsoir,

@ Igloobel,

Pour ma part, je met mon Addin principal .xlam dans le UserLibraryPath. Ça fait une deuxième solution. Cependant, je sais qu'il peuvent être chargé à partir du LibraryPath également.

[parmi]

@Igloobel

Je viens de faire un test, et, chez moi je positionne Mon fichier Personal.xlsb dans le répertoire suivant :
C:\Program Files (x86)\Microsoft Office 2007\Office12\XLSTART et ça marche nikel !

Ce répertoire est un répertoire personnel. C'est même le répertoire par défaut, je pense... (Ici, le chemin est différent, mais je suis sur Win 7). C'est donc normal qu'il soit reconnu par Excel.

Par contre, si ce fichier est placé sur le réseau ou ailleurs dans le répertoire du programme, Excel ne le reconnaîtra probablement pas automatiquement. C'est pourquoi je suggérais l'emploi de XLA, mais il y a différentes méthodes d'y arriver, dont celle expliquée par rdurupt...

[popi33370]

Le code proposé par rdurupt fonctionne bien : j'ai bien compris ce qu'il fait et je l'ai adapté pour que la fonction test() me charge un fichier toto.txt qui contient une fonction toto() qui affiche "toto".

Dans mon appli, les fonctions sont appelées à partir de boutons selon ce que l'utilisateur veut faire. Or, avec cette manipe, je ne peux pas faire le lien entre un bouton et sa fonction chargée par ce moyen.

J'ai essayé un contournement en créant une fonction toto() affectée à un bouton et qui m'affiche "AAAA" et ça fonctionne. J'ai ensuite exécuté test() qui m'a chargé le code de la fonction toto() précédente qui affichait "toto", et quand je clique sur le bouton ça m'affiche "AAAA" et pas "toto".

En résumé : cette manipe permet de charger du code qui ensuite s'auto-exécute. Mais les fonctions chargées ne sont pas visibles.

Y aurait-il une astuce pour faire en sorte qu'après le chargement du code depuis le fichier toto.txt les liens entre les fonctions attribuées aux boutons et celles présentes dans ce code soient réactualisés de sorte que quand je clique sur le bouton qui appelle la fonction toto() il prenne celle qui vient d'être chargée depuis toto.txt et pas celle déjà présente dans le code (ou que le chargement écrase celles présentes) ?

Merci d'avance pour votre perspicacité

Pour répondre à mon besoin j'ai essayé ce qui suit :

- dans mon classeur j'ai pris le code d'une fonction affectée à un bouton, disons qu'elle s'appelle titi() et affiche "titi" (pour faire simple) et je l'ai enregistré dans le fichier titi.txt =

Code :

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

1
2
3
    sub titi()
    msgbox "titi"
    end sub

- ensuite, dans le code de la fonction titi() du classeur j'ai remplacé l'instruction msgbox "titi" par les instructions permettant de recharger le code depuis le fichier titi.txt puis d'exécuter la fonction chargée

Ca charge bien, mais ça plante à l'exécution sur l'instruction "M.AddCode F" avec "erreur d'exécution 1025 : fin d'instruction attendue".

La seule différence entre le toto.txt et le titi.txt c'est que le premier a été généré par le code et le deuxième a été créé à la main : en les comparant ils sont identiques et je ne vois pas ce qui pourrait "manquer" à celui créé à la main et qui pourrait justifier cette erreur sur fin d'instruction ?

Si on peut trouver l'origine de cette erreur, ce moyen m'irait bien =
- je stocke le code de chaque fonction dans un fichier .txt
- puis je remplace le code original par le code qui charge le fichier contenant la fonction et lui transfère l'exécution

Je viens d'analyser en détails le comportement et il se trouve que l'erreur n'apparait qu'avec les instructions que j'ai mises en caractères gras (si je les mets en commentaire il n'y a plus d'erreur mais mon code est amputé) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub next_ref()
START = 9
MAX = Worksheets("Journal").Range("F65536").End(xlUp).Row
REF = 0
Application.ScreenUpdating = False
For i = START + 1 To MAX
    v = Worksheets("Journal").Cells(i, 2)
    If (v > REF) Then
        REF = v
    End If
Next i
ActiveCell.Value = REF + 1
Application.ScreenUpdating = True
End Sub

Des idées sur la cause de cette erreur 1025 qui apparait dès que l'une des instructions en gras est chargée ?

[Invité]

Le VBSCRIPT n’accepte pas les variables typés.
Dim A
Ton programme doit être bien ficelé avec de la programmation Objet : set MyObjet= "This". Worksheets.Add

sc.AddObject "This", ThisWorkbook, True

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub test()
Dim FileNumber As Long
FileNumber = FreeFile
Dim txt As String
Dim F As String
'Je définie ma macro.
txt = "sub test()" & vbCrLf
txt = txt & "Dim xls,wb" & vbCrLf
txt = txt & " Set wb = This" & vbCrLf
txt = txt & " wb.ActiveSheet.cells(1,1)=2" & vbCrLf
txt = txt & "Msgbox " & Chr(34) & "toto" & Chr(34) & vbCrLf
txt = txt & "End Sub"
 
'je l'enregistre sur le disk C:\
Open "c:\TEST.bas" For Output As #FileNumber
    Print #FileNumber, txt
    Close #FileNumber    ' Ferme le fichier.
 
'Je récupère le fichier que je viens de créer.
F = ""
Open "c:\TEST.bas" For Input As #FileNumber
Do While Not EOF(1)    ' Effectue la boucle jusqu'à la fin du fichier.
    Line Input #FileNumber, txt        ' Lit la ligne dans la variable.
    F = F & txt & vbCrLf  ' Concatène.
Loop
Close #FileNumber
 
'Je charge la macro dans VBA et je l'exécute.
Set sc = CreateObject("ScriptControl")
   sc.Language = "VBScript"
   sc.AddObject "This", ThisWorkbook, True
   ' Ajoute un module.
   Set M = sc.Modules.Add("ModuleRD")
   ' Ajoute du code au module.
   M.AddCode F
   ' Exécute le script.
   M.Run "test"
 
 End Sub

[popi33370]

Effectivement, après lecture d'autres forums, j'ai appris qu'il n'est pas possible d'utiliser des variables typées mais que des variant = donc impossible d'utiliser mon code tel quel puisqu'il est bourré de DIM et fait référence aux feuilles existantes auxquelles il ne semble pas pouvoir accéder.

C'est dommage, donc pour l'instant il ne me reste que la solution du Personnal.xlsb

Merci quand même d'avoir essayé avec moi.

Pour info je suis un vieux de la vieille : assembleurs, Fortran, C donc j'ai du mal avec ces langages "objets", d'où mes incompréhensions et questions parfois "stupides"

[Invité]

si tu y accède par This {sc.AddObject "This", ThisWorkbook, True}

Code :

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

This.Worksheets("Feuil1")

tu peux écrires:

Code :

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

sc.AddObject "ThisWorkbook", ThisWorkbook, True

et là tu est comme dans VBA

Code :

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

ThisWorkbook.Worksheets("Feuil1")

tu reformâtes ta macro de cette façon dans Excel et quand elle fonctionne elle marchera en VbScript.

ce qui marche en VbScript fonctionne en VBA, ce qui Fonctionne en VBA ne marche pas forcément en VbScript

mon dernier exemple te montre que ça marche

Code :

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

1
2
txt = txt & " wb.ActiveSheet.cells(1,1)=2" & vbCrLf
txt = txt & " This.ActiveSheet.cells(1,2)=5" & vbCrLf

[popi33370]

Là j'explose en vol car je mélange tout ...

Peut-être que le plus simple et efficace est que je te donne le code original = je clique sur un bouton qui appelle la fonction next_ref() qui parcours les valeurs de la colonne B de la feuille "Journal" pour calculer la prochaine et l'afficher dans la cellule active de la feuille "Journal" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub next_ref()
START = 9
MAX = Worksheets("Journal").Range("F65536").End(xlUp).Row
REF = 0
Application.ScreenUpdating = False
For i = START + 1 To MAX
    v = Worksheets("Journal").Cells(i, 2)
    If (v > REF) Then
        REF = v
    End If
Next i
ActiveCell.Value = REF + 1
Application.ScreenUpdating = True
End Sub

Que j'ai transformé ainsi :

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
 
Sub next_ref()
Dim FileNumber As Long, txt As String, F As String
FileNumber = FreeFile
F = ""
Open ThisWorkbook.Path & "\next_ref.txt" For Input As #FileNumber
Do While Not EOF(1)
    Line Input #FileNumber, txt
    F = F & txt & vbCrLf
Loop
Close #FileNumber
Set sc = CreateObject("ScriptControl")
   sc.Language = "VBScript"
   sc.AddObject "This", ThisWorkbook, True
   Set M = sc.Modules.Add("ModuleRD")
   M.AddCode F
   M.Run "next_ref"
End Sub

pour charger et exécuter le contenu du fichier next_ref.txt créé avec Notepad :

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
 
Sub next_ref()
START = 9
FEUILLE = "Journal"
FIN = "F65536"
MAX = Worksheets(FEUILLE).Range(FIN).End(xlUp).Row
REF = 0
Application.ScreenUpdating = False
For i = START + 1 To MAX
    v = Worksheets("Journal").Cells(i, 2)
    If (v > REF) Then
        REF = v
    End If
Next i
ActiveCell.Value = REF + 1
Application.ScreenUpdating = True
End Sub

Si tu pouvais avoir l'amabilité de corriger les 2 bouts de code pour que ça fonctionne, éventuellement faire un test de ton côté avec une seule feuille "Journal" et me retourner les codes validés car très franchement j'ai du mal à suivre avec toutes ces notions "objet" ...

D'avance un grand merci pour ton aide, et une fois que ça fonctionne je pourrai adapter les autres fonctions tout seul comme un grand !