Timer dans une macro

Version imprimable

Bonjour,

j'ai dans mes macros une séquence qui permet de mettre des "Top" dans un fichier servant de paramètre sur le serveur consulté ensuite en lecture par les macros utilisateurs sur différents PC. voici cette séquence:
Code:

1 2 3 4 5 6 7 8 9 10 11 If Len(Dir(fichTopMaj)) > 0 Then ' on voit le fichier TopMaj sur le serveur Verification = OpenTopMaj(fichTopMaj) If Verification = False Then ' il existe, voir s'il est fermé ou en cours d'utilisation Workbooks.Open fichTopMaj Set Top = Sheets("Top") Top.Range("B2:B30") = 1 ' infos paramètre Workbooks(EStopMaj).Close True Else End If Else End If
Pour le cas (assez improbable mais qui peut se produire) où le fichier est en utilisation juste au moment du traitement, j'imagine mettre un timer qui relance l'opération au bout de 2 secondes par exemple (maxi 3 boucles par exemple)

J'ai trouvé sur le forum ce code pour 2 secondes

Code:

Application.Wait Time + TimeSerial(0, 0, 2)

J'aimerai votre avis d'expert sur cette méthode (imaginée par votre serviteur) ou me donner d'autres pistes

merci

14/08/2019, 19h14
mercatog

Bonjour
Je ne vais pas te répondre sur ta question mais je te suggère de voir comment lire et écrire dans un classeur fermé à l'aide d'adodb.
14/08/2019, 19h50
retraite83

Bonjour,

mon problème n'est pas d’écrire dans un fichier fermé, mais de reporter l'écriture si le classeur est ouvert par une autre personne

Attendre qq secondes qu'une macro dans un autre classeur qui a ouvert le classeur ait le temps de positionner juste un top et refermer ce classeur

c'est pour cela que je pensai à mon "timer" trouvé sur le forum avec 3 tentatives maxi (ca fait 6 secondes, largement le temps normalement de libérer le classeur)
14/08/2019, 20h10
mercatog

Si tu ouvre le classeur pour écrire des 1 dans B2:b20. Le sauvegarder et le fermer et gérer le cas où il est ouvert par une autre personne. Je pense que ce que j'ai proposé a le mérite d'être exploré comme alternative.
15/08/2019, 09h12
retraite83

J'ai bien lu, très intéressant mais un peu au dessus de mes compétences, je testerai à à moyen terme mais dans l'immédiat j'ai peur de tout casser... En plus les quelques personnes qui utilisent l'application n'ont pas la même version d'excel...

j'aimerai avant de me lancer trouver une solution du style

Code:

Application.Wait Time + TimeSerial(0, 0, 2)

dans la boucle en attendant le cas échéant que le fichier soit fermé

Mais je ne sais pas mesurer si ce genre de code à une efficacité et je ne sais pas mesurer les risques
15/08/2019, 16h26
mercatog

N'aies pas peur!
Tu vas te simplifier la vie!
15/08/2019, 19h24
retraite83

Je me lance,

je reviendrai donner le résultat...

merci

Un petit coup de pousse

Sur ton fichier FichierTop, tu nommes la plage B1:B30 TopRange avec en B1 le titre BlaBla

Tu enregistre

Sur ton fichier utilisateur Excel
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub INSERTTOP() Dim FichierTOP As String Dim Cn As Object FichierTOP = "C:\Users\USER\Desktop\FichierTOP.xlsx" 'A remplacer par le chemin complet réseau Set Cn = CreateObject("ADODB.Connection") With Cn .Open "Provider = Microsoft.ACE.OLEDB.12.0;data source=" & FichierTOP & ";extended properties=""Excel 12.0;HDR=YES""" .Execute "UPDATE [TopRange] SET [BlaBla]=1" .Close End With Set Cn = Nothing End Sub
Les mots en rouge tu les adapte dans le code si tu utilise d'autres mots

16/08/2019, 09h28
retraite83

Merci pour ce coup de pouce, cela ne s'invente pas... Je vais tester cela tranquillement

Dans le principe je ne saisis pas comment cela se passe si au moment de l'exécution de ce code le fichier est déjà en cours de mise à jour par une autre personne ?