Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Candidat au Club
    Homme Profil pro
    Project Manager
    Inscrit en
    avril 2019
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 36
    Localisation : France, Vaucluse (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Project Manager
    Secteur : Bâtiment

    Informations forums :
    Inscription : avril 2019
    Messages : 2
    Points : 2
    Points
    2

    Par défaut 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 : 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.

  2. #2
    Expert éminent

    Homme Profil pro
    Développeur .NET
    Inscrit en
    janvier 2012
    Messages
    4 623
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Finance

    Informations forums :
    Inscription : janvier 2012
    Messages : 4 623
    Points : 9 638
    Points
    9 638
    Billets dans le blog
    30

    Par défaut

    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.
    À ma connaissance, le seul personnage qui a été diagnostiqué comme étant allergique au mot effort. c'est Gaston Lagaffe.

    Ô Saint Excel, Grand Dieu de l'Inutile.

    Excel n'a jamais été, n'est pas et ne sera jamais un SGBD, c'est pour cela que Excel s'appelle Excel et ne s'appelle pas Access junior.

  3. #3
    Candidat au Club
    Homme Profil pro
    Project Manager
    Inscrit en
    avril 2019
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 36
    Localisation : France, Vaucluse (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Project Manager
    Secteur : Bâtiment

    Informations forums :
    Inscription : avril 2019
    Messages : 2
    Points : 2
    Points
    2

    Par défaut

    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.

Discussions similaires

  1. Réponses: 1
    Dernier message: 03/04/2017, 21h41
  2. VBA - Lire & Récupérer données XML > Excel
    Par House MD dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 31/12/2007, 10h37
  3. Réponses: 5
    Dernier message: 12/08/2007, 15h33
  4. Modifier fichier excel partagé sur le réseau
    Par machistador31 dans le forum Général VBA
    Réponses: 1
    Dernier message: 01/08/2007, 21h50
  5. importer données fichier excel dans bd mysql
    Par Hydre dans le forum Administration
    Réponses: 1
    Dernier message: 05/10/2005, 19h39

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo