Discussion :

[retraite83]

Bonjour,

j'ai testé 2 façons d'ouvrir un fichier Excel sur le cloud depuis un PC

1) Open VBA depuis l'Excel appelant sur le PC en utilisant le chemin du Cloud. Idem pour le Close. C'est aisé de laisser le système gérer, il fait les copies sur le PC à l'ouverture puis sur le cloud à la fermeture mais l’inconvénient est que le système affiche des messages d'informations dans tous les sens assez inutiles voir gênant pour l'utilisateur

2) Copie du fichier du Cloud sur le PC, puis open de la copie. Idem dans l'autre sens pour le Close. Pas de messages perturbateurs, tout est fait sur le PC, meilleurs temps de réponse mais la gestion est à faire en VBA

De votre expérience, quelle solution métriez vous en place ?

[retraite83]

Pas d'avis ?

point 1 choisi

[retraite83]

En fait après pas mal d'essais voici mes constations :

1) Open d'un Excel situé sur le Cloud depuis une macro Excel exécutée sur le PC : le fichier est copié automatiquement par le système sur le PC puis ouvert sur ce PC. Pendant cette copie des messages d'informations sont affichés. Idem à la fermeture

2) Copie par la macro Excel du fichier sur le PC, traitement puis recopie par macro sur le Cloud : le résultat est le même sans message perturbateur et plutôt plus rapide (pas bcp d'écart)

Il me semble que la solution 2 permet une autonomie et une indépendance vis à vis du Cloud (des serveurs en général) mais présente l'inconvénient de devoir gérer les copies

J'aurai tendance à préconiser cette solution 2 pour maîtriser de bout en bout. Je ne suis pas certain de voir tous les inconvénients.

[UNikorn404]

En fait après pas mal d'essais voici mes constations :

1) Open d'un Excel situé sur le Cloud depuis une macro Excel exécutée sur le PC : le fichier est copié automatiquement par le système sur le PC puis ouvert sur ce PC. Pendant cette copie des messages d'informations sont affichés. Idem à la fermeture

2) Copie par la macro Excel du fichier sur le PC, traitement puis recopie par macro sur le Cloud : le résultat est le même sans message perturbateur et plutôt plus rapide (pas bcp d'écart)

Il me semble que la solution 2 permet une autonomie et une indépendance vis à vis du Cloud (des serveurs en général) mais présente l'inconvénient de devoir gérer les copies

J'aurai tendance à préconiser cette solution 2 pour maîtriser de bout en bout. Je ne suis pas certain de voir tous les inconvénients.

Salutations
Cherchant à réaliser la même opération, je serai intéressé par tes codes
J'ai beau chercher la solution, je bute...

[retraite83]

Avec plaisir,

dis en moi un peu plus sur ce que tu veux faire et où est ton problème ?

[UNikorn404]

(...)ce que tu veux faire et où est ton problème ?

Je suis sur un programme de suivi de maintenance de différente séries d'engins.
Chaque semaine, certains programmes sont remis à jour

Chaque semaine, je dois appeler le tableau de suivi d'une série.
Puis, une fois le tableau chargé, comparer le contenu du tableau avec l'ensemble des tableaux d'appel de modification de la même série, placés dans un autre répertoire.
Avec une périodicité allant de 2 semaines à un an.


Jusqu'à présent, je le fais en local, avec les échanges classiques, appel et renvoi de fichiers.
C'est l'utilisateur qui choisi sa série, va chercher le fichier d'appel... Et cela marche bien.

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
    'Boucle Appel Série_Sxx suivant intervalle choisi
    For Sem = SemA To SemB
        Application.CutCopyMode = False
        NomClassDon = série & "_S" & Sem
        NomClassDonXLS = série & "_S" & Sem & ".xlsx"
        NomClassDonAccès = RépertTrav & "\" & NomClassDonXLS
        Vérif = Dir(NomClassDonAccès)
 
            If Vérif <> "" Then 'fichier Don existe
 
                Match = 1
 
                Workbooks.Open (NomClassDonAccès)
                DerLignDon = Range("I" & Rows.Count).End(xlUp).Row
                DerCaseFeuilDon = "I" & DerLignDon
                ActiveSheet.Range("A2:" & DerCaseFeuilDon).Copy
 
                Workbooks(ClassTrav).Activate
                Sheets(FeuilTrav).Activate
                DerLign = Range("D" & Rows.Count).End(xlUp).Row
                LignFeuilTravHaut = DerLign + 1
                CaseFeuilTrav = "D" & LignFeuilTravHaut
                Range(CaseFeuilTrav).Select
                Range(CaseFeuilTrav).PasteSpecial
                    'copie nom fichier
                LignFeuilTravBas = Range("D" & Rows.Count).End(xlUp).Row
                CaseFeuilTravF = "A" & LignFeuilTravHaut
                DerCaseFeuilTravF = "A" & LignFeuilTravBas
                Range(CaseFeuilTravF & ":" & DerCaseFeuilTravF) = NomClassDon
 
                Workbooks(NomClassDonXLS).Close SaveChanges:=False
 
            End If
    Next

Mais ce faisant je me coupe du Cloud et cela oblige à mettre à jour sur chaque poste de chaque utilisateur.
D'où une multiplication des risques d'erreur.



Mon but ?
Arriver à travailler avec le Cloud, pouvoir fournir à l'utilisateur des outils pour aller chercher le fichier d'appel dans le Cloud.
Puis naviguer pour retrouver mes fichiers et pouvoir les charger en cas de besoin.

A ce jour, je n'arrive pas à naviguer, ni même à retrouver mes petits.