Discussion :

[Bobgael]

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 :

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
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.

[clementmarcotte]

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.

[Bobgael]

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.