Discussion :

[PLH81]

Bonjour,
Il y a sur le réseau d'entreprise un fichier XLAM utilisé par plusieurs personnes. Lorsque je souhaite modifier et mettre à jour ce fichier, s'il est ouvert par au moins un utilisateur, je ne peux plus enregistrer le fichier et je dois donc attendre le soir que tous les utilisateurs aient fermé excel.
Je souhaiterais donc mettre en place une sorte de mise à jour automatique (comme tout logiciel en fait...) qui fait que lorsque le fichier xlam s'ouvre, il aille vérifier si c'est la dernière version, sinon, il se met à jour, mais je n'ai pas la moindre idée de comment faire (et si c'est possible en xlam)
Merci à celles et ceux qui pourront m'éclairer sur ce point.

[Philippe Tulliez]

Bonjour,
Une réponse dans la FAQ : Comment mettre à jour automatiquement un complément distribué en réseau local ?

[PLH81]

Bonjour monsieur Tulliez,
Merci de votre réponse, je vais regarder cela avec attention.

[PLH81]

Bonjour,
Toutes mes excuses de revenir si tard sur ce sujet.

Je n'ai hélas strictement rien compris au tutoriel indiqué.

1) Qu'est ce qu'on écrit dans le fichier ini ?

2) Sur mon VBE, les lignes suivantes sont écrites intégralement en bleu.

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias _
        "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, _
        ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, _
        ByVal lpFileName As String) As Long
 
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias _
        "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, _
        ByVal lpString As Any, ByVal lpFileName As String) As Long

3) si je suis seul à avoir le fichier ini contenant

Code :

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

1
2
3
 
[ADMIN]
EnablePublishing=True

Il ne peut donc pas être sur le réseau, car si j'ai bien compris (...) , un fichier ini est juste un fichier texte, donc ouvert à tous. Il ne peut bien sûr pas être sur mon ordinateur perso.... donc qu'est ce que j'ai loupé ?

4) Ensuite, dans le dernier code

Code :

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

1
2
3
4
5
6
7
8
 
Public Const FullPathAddin As String = _
    "\\serveur\MyAddin.xla"
Public Const FullPathGetVer As String = _
    "\\serveur\AddinVersion.txt"
 
Sub PublishAddin()
etc

5) Que contient AddinVersion.txt ? et quelle différence avec le fichier ini ?

Bref, si quelqu'un(e) veut bien m'éclairer avec un soleil, je lui en serais reconnaissant.

[Qwazerty]

Salut

Si j'ai bien compris le contenu du code du tuto, la logique est la suivante.

1. Le xla est installé sur le serveur.
2. le fichier excel xlsm que tu distribues aux gens est sur leur poste de travail. Lorsqu'ils l'exécute, le fichier recherche le fichier Ini dans c:\temp\ (donc sur le poste en local, "poste client").
   
   1. Si le fichier Ini n'existe pas, il copie le fichier xla du server sur le poste client, puis il crée le fichier Ini en indiquant la date de la dernière vérif comme étant la date du jour.
   2. Si le fichier Ini existe, il regarde quand a eu lieu la dernière vérification de version. Si cette dernière date de plus de 7 jours, le code va rechercher le fichier addin présent sur le serveur et compare sa dernière date de modification avec celle du fichier xla présent sur le poste client... Si le xla du serveur est plus récent, il met à jour celui du poste client.
   
   

Pour l'histoire du PublishAddin, c'est le code qui permet de mettre à jour la version qui se trouve sur le serveur.
Pour ce qui est de la partie Ini [ADMIN], c'est une piste qui est donné je pense. Si le Ini qui se trouve sur ton poste contient une section [admin] avec la valeur EnablePublishing à True, tu seras autorisé à utiliser cette fonction. Mais ça ne semble pas implémenté dans le code présenté dans l'article

Pour répondre à tes questions:
1/ Tu n'y écris rien... (mis à part [Admin] EnablePublishing = true, si tu décidais d'utiliser la méthode expliqué au dessus pour mettre à jour la version serveur).
Pour le reste, c'est le code du fichier xlsm (le fichier que tu distribues) qui s'en occupe, le Ini étant sur le poste client.

2/ La couleur de la syntaxe est juste différente entre VBE et la coloration mise en place dans les messages du forum

3/ Tu avais juste manqué qu'il existe autant de fichiers Ini, que de postes client. Chaque client à son propre Ini, qui lui indique quand a eu lieu la dernière vérification de version. Dans l'exemple, ça permet de ne pas faire la vérif à chaque lancement du fichier mais uniquement 1 fois par semaine. C'est toi qui décide de ça dans le code du fichier xlsm que tu distribues.

4/ Lorsqu'en tant qu'Admin, tu lances le code PublishAddIn, pour mettre à jour la version qui se trouve sur le serveur, il crée un fichier sur le serveur indiquant quand à eu lieu cette mise à jour... C'est un peu bancal, parque ce txt n'est jamais utilisé dans le reste du code ^^, puisque le code va directement chercher la date de dernière modification du fichier addin serveur... Donc ne te tracasse pas trop avec cette partie du code

++
Qwaz

[PLH81]

Bonjour Qwazerty,

Merci pour votre réponse. Je confirme, j'étais totalement à côté de la plaque.
J'ai donc la macroV02 à jour sur le réseau et la macroV01 à mettre à jour sur mon poste, disons "C:\Users\PLH81\AppData\Roaming\Microsoft\AddIns"

Après correction des deux problèmes suivants :

Pour le code tout en bleu :


il faut en fait mettre

Code :

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

1
2
3
4
 
Private Declare PtrSafe Function GetPrivateProfileString ....
 
Private Declare PtrSafe Function WritePrivateProfileString ....

et pour le message suivant

il faut corriger en allant, sur VBE, dans l'onglet Outils -> Références" et cocher dans la liste Microsoft Scripting Runtime

J'ai fait tourner macroV01 (test_MAJ.xlam) et là je calle, car il ne copie rien sur mon disque
Je vous mets donc la partie qui coince

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
 
Sub CheckVersion()
 
    Dim fso As FileSystemObject
    Dim ad As AddIn
    Dim rep As Variant
 
    Set fso = New FileSystemObject
 
    For Each ad In Application.AddIns
        If ad.FullName Like "*Test_MAJ.xlam" Then
            If fso.GetFile(ad.FullName).DateLastModified < fso.GetFile("R:\Transport\ZZ - dossiers Macros\Macro Test\Test_MAJ.xlam").DateLastModified Then
 
                rep = MsgBox("Votre version de l'Add-in n'est plus à jour." & vbCrLf & "Voulez-vous mettre à jour votre Add-in ?", vbInformation + vbYesNo, "Test_MAJ")
                If rep = vbYes Then
                    ' il faut mettre à jour
                    On Error Resume Next
                    Kill Left(ad.FullName, Len(ad.FullName) - 4) & "(old).xlam"
                    ThisWorkbook.SaveAs Left(ad.FullName, Len(ad.FullName) - 4) & "(old).xlam"
                    ' c'est la ligne FileCopy  "R:\Transport\ZZ - qui plante
                    FileCopy "R:\Transport\ZZ - dossiers Macros\Macro Test\Test_MAJ.xlam", ad.FullName
                    MsgBox "La mise à jour de votre Add-in a été effectuée." & vbCrLf & "Redémarrez Excel pour qu'elle soit effective", vbInformation + vbOKOnly, "Test_MAJ"
                Else
                    MsgBox "La prochaine vérification aura lieu dans une semaine !", vbCritical + vbOKOnly, "Test_MAJ"
                End If
            End If
        End If
    Next ad
 
    Set fso = Nothing
    Set ad = Nothing
End Sub

Si vous avez une idée, je suis preneur.
Bonne journée