Récupérer données fichier Excel partagé en ligne

Bonjour à tous,

Je me permets de poster une question sur ce forum car j'ai un petit soucis concernant une macro que je suis entrain de bricoler.

Actuellement, je travaille dans une société qui utilise pas mal d'outils en ligne, comme office 365, Teams et One Drive.
J'aimerais profiter de ces outils pour créer un processus de gestion de stock "fait maison", où pour chaque produit en stock est associé un mini fichier excel contenant les propriétés du produit (fiche produit) et un fichier excel de consolidation vient lire toutes ces fiches produits pour créer une seule feuille avec toutes les lignes correspondants à tous les produits en stoks (database).

Mon processus marche plutôt bien en local, c'est à dire lorsque les fiches produits et le fichier consolidation sont sur le même disque dur.
Par contre, si je souhaite que ces fiches produits soient partagées sur Teams ou SharePoint (sur un cloud en fait), mon fichier de consolidation n'arrive plus à lire les fiches produits, car mon chemin d'accès au répertoire "fiches produits" n'est plus une adresse locale du type "C:\AA.xls" mais une adresse web type http.

Voici mon code actuel :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub recup() Worksheets("Sheet1").Range("A2:K10000").ClearContents Range("A2").Select 's?lectionner la cellule de d?but Chemin = "C:\Users\frsigm\OneDrive - Etex Group\Work\Stock ITC\Database\Nouveau dossier\" 'saisir le chemin complet du dossier o? se trouvent les fichiers Fichier = Dir(Chemin & "*.xls") ' Premier fichier Do While Fichier <> "" Workbooks.Open Filename:=Chemin & Fichier Range("A2:N2").Copy ThisWorkbook.Activate ActiveSheet.Paste Windows(Fichier).Activate Application.CutCopyMode = False ActiveWorkbook.Close savechanges:=False ThisWorkbook.Activate Range("A65536").End(xlUp).Offset(1, 0).Select Fichier = Dir ' Fichier suivant Loop End Sub
Je me doute bien que mon problème vient du chemin d'accès, car lorsque que je met l'adresse http du répertoire partagé à la place de l'adresse local actuelle, cela ne marche pas….

Merci de votre aide.

Bonjour,

Excel d'Office 365 partage par défaut sur OneDrive. Et comme cette technologie a été implantée après Office 2016 et avant Office 2019 et que je n'ai jamais partagé de classeur; je ne sais pas comment on peut faire avec des versions hétéroclites d'Office.

Règle générale, du moins avant la modification récente du partage, partager des classeurs Excel, c'est juste des problèmes. Pour le nouveau partage, je ne sais pas.

Mais ce que je sais, c'est qu'Excel n'a jamais été, et ne sera jamais un SGBD. Et, sauf horreur de ma part, avec Office 365, vous avez ACCESS qui est déjà une solution beaucoup plus appropriée.

Merci de votre retour!

Je pense avoir trouvé une solution intermédiaire : je vais laisser sur un ordinateur dédié au stock ma macro ouverte, avec un rafraichissement automatisé (tous les 10mn). L'ordinateur étant connecté au réseau, chaque utilisateur pourra lire le fichier via One drive, et aura une vision du stock, à 10mn près.