Ouvrir / fermer un fichier Excel en VBA sur le cloud

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 ?

Pas d'avis ?

point 1 choisi

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.

Citation:

---

Envoyé par 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.

---

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

Avec plaisir,

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

Citation:

---

Envoyé par retraite83

(...)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:

---

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.

Bonjour

Tout d'abord le Cloud est un espace de stockage. A ma connaissance on ne peut pas ouvrir un Excel directement sur le Cloud.

Pour ma part la solution que j'ai mise en œuvre après de multiples essais consiste à installer les fichiers devant être "partagés" sur le Cloud dans un répertoire spécifique, accessible comme un lecteur externe classique (Z: par exemple)

Ensuite depuis chaque poste de travail mes Excels ouvrent les fichiers par du code VBA en utilisant le chemin (par exemple : Z/nom_repertoire/nom_fichier. Le fichier est copié sur le PC de utilisateur par le système de gestion du Cloud (WD Discovery pour ma part) et ouvert. Idem dans l'autre sens à la fermeture

Le problème majeur est que tout le monde peut ouvrir un fichier sur le Cloud et avoir ainsi une copie du fichier sur son PC, en cas de mise à jour, le dernier qui fait la mise à jour a gagné…

Je gère donc par programme le blocage d’un fichier en mise à jour et lorsqu'un utilisateur ouvre un fichier les autres utilisateurs ont un message leur indiquant que le fichier est déjà en cours de mise à jour.
Ce n’est pas la panacée pour les puristes, mais cela fonctionne très bien avec 8 utilisateurs.

Cela ne répond pas à ton problème je pense

"Ensuite depuis chaque poste de travail mes Excels ouvrent les fichiers par du code VBA en utilisant le chemin (par exemple : Z/nom_repertoire/nom_fichier. Le fichier est copié sur le PC de utilisateur par le système de gestion du Cloud (WD Discovery pour ma part) et ouvert. Idem dans l'autre sens à la fermeture"

C'est ce code qui me manque

Je n'arrive pas à ouvrir un fichier dans le cloud, quelque soit la formulation que j'emploie...
En local c'est ok, mais en passant via le CLoud pour télécharger le fichier, c'est l'échec.

Bonjour,

comment vois-tu le cloud depuis ton PC ? Le vois-tu dans l'explorer Windows ? quel chemin d'accès ?

Citation:

---

Envoyé par retraite83

comment vois-tu le cloud depuis ton PC ? Le vois-tu dans l'explorer Windows ? quel chemin d'accès ?

---

Je travaille sous Windows X, vois le CLoud depuis Explorer en passant par Office 365

Je vais regarder en utilisant Power Automate pour Excel de Office 365 et voir ce que cela donne

Après avoir bien galéré, je me cantonne au choix n°1.
Mais s'il existe une manière plus simple, je suis preneur :D

Bonjour

j'ai mis en place mon choix N°2 et j'en suis satisfait, plus de messages perturbateurs du système de gestion du cloud.

Moi aussi je suis preneur d'une solution plus efficace, je n'en ai pas trouvé pour l'instant