IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
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

Macros et VBA Excel Discussion :

Problème pour récupérer la valeur d'un autre fichier Excel [XL-2016]


Sujet :

Macros et VBA Excel

  1. #1
    Rédacteur

    Avatar de zoom61
    Homme Profil pro
    ...
    Inscrit en
    janvier 2005
    Messages
    9 394
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Vienne (Limousin)

    Informations professionnelles :
    Activité : ...
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2005
    Messages : 9 394
    Points : 58 284
    Points
    58 284
    Billets dans le blog
    11
    Par défaut Problème pour récupérer la valeur d'un autre fichier Excel
    Bonjour,

    J'ai fait ce code :
    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
    Function InfoRef(CheminFichier as string)
        NbLigne = Range("C100000").End(xlUp).Row
     
        Set wk1 = Workbooks.Open(CheminFichier)
        NbMax = wk1.Sheets(1).Range("A100000").End(xlUp).Row
     
        ThisWorkbook.Activate
        For i = 17 To NbLigne
            ValRef = Range("C" & i).Value
            ValPrix = Range("E" & i).Value
            ValLib = "Inconnu"
            For j = 22 To NbMax
                MsgBox ValRef & " - " & wk1.Sheets(1).Range("F" & j).Value & Chr(10) & ValPrix & " - " & wk1.Sheets(1).Range("J" & j).Value
                If wk1.Sheets(1).Range("F" & j).Value = ValRef And wk1.Sheets(1).Range("J" & j).Value = ValPrix Then
                    ValLib = wk1.Sheets(1).Range("B" & j).Value
                    GoTo Suite
                End If
            Next j
    Suite:
            ThisWorkbook.Activate
            Range("G" & i).Value = ValLib
        Next i
     
        wk1.Close
    End Function
    Et j'ai deux problèmes :
    1. Le NbMax = wk1.Sheets(1).Range("A100000").End(xlUp).Row ne me ramène pas la dernière ligne de mon tableau
    2. Le msgbox me donne aucune donnée pour wk1.Sheets(1).Range("F" & j).Value et wk1.Sheets(1).Range("J" & j).Value

    Avez-vous une idée où se trouve mes erreurs ?
    Le fichier distant s'ouvre bien, et il y a bien des données dans les colonnes F et J.

    Merci de votre aide.
    N'oubliez pas le Tag afin de faciliter la recherche, et en votant cela permet de mieux la cibler.

    Je ne réponds pas aux messages privés s'ils sont liés à une question technique

  2. #2
    Rédacteur

    Avatar de zoom61
    Homme Profil pro
    ...
    Inscrit en
    janvier 2005
    Messages
    9 394
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Vienne (Limousin)

    Informations professionnelles :
    Activité : ...
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2005
    Messages : 9 394
    Points : 58 284
    Points
    58 284
    Billets dans le blog
    11
    Par défaut
    Gloups, j'avais fait une erreur sur l'onglet...
    N'oubliez pas le Tag afin de faciliter la recherche, et en votant cela permet de mieux la cibler.

    Je ne réponds pas aux messages privés s'ils sont liés à une question technique

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Récupérer des valeurs dans un autre fichier excel fermé
    Par dominiqued dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 01/05/2014, 12h07
  2. [Toutes versions] Formule pour recuperer une valeur sur un autre fichier Excel
    Par bonilla dans le forum Excel
    Réponses: 2
    Dernier message: 26/06/2012, 11h19
  3. Réponses: 2
    Dernier message: 21/09/2007, 17h27
  4. Réponses: 1
    Dernier message: 03/12/2005, 12h24
  5. problème pour récupérer une valeur dans ma bd (débutante)
    Par auryn111 dans le forum Langage SQL
    Réponses: 1
    Dernier message: 26/08/2005, 17h49

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