Discussion :

[sliman84]

Bonjour,
Mon problème est le suivant : j'ai 2 classeurs " appel d'offres" et "articles"
Je souhaite pouvoir extraire du classeur articles (notre base de données articles) le poids des articles. Cette variable est à multiplier par la quantité contenu dans appels d'offres) pour obtenir le poids des engagements contenu dans le classeur appel d'offres). D'une part je souhaite utiliser une variable externe variable et d'une part je voudrais pouvoir utiliser une boucle ( do loop) sur celle-ci pour pouvoir comparer la désignation de l'article dans les deux classeurs arreter la boucle quand il trouve des valeurs égales, utiliser la variable poids qui est juste à coté de la désignation de l'article (dans la base article) et la multiplier par la quantité dans le classeur appels d'offres.

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
d=2
Do
d = d + 1
 
plage = Cells(d, 2).Address
plage1= cells(d,7).Address
 
article2 = indirect.ext("D:\[codification-article-brouillon.xls]Feuil4'!&plage&")
poids2=indirect.ext("D:\[codification-article-brouillon.xls]Feuil4'!&plage1&")
 
If article2.Value=article.Value then exit do
 
Loop until article2.value=""
 
poidstotal.value= poids2*quantite

Le but est de variabiliser plage1 et plage2 afin de les utiliser comme s'ils étaient dans le même classeur, j'ai reussi à faire la manip en ayant les 2 bases de données dans le même classeur, mais dans un souci d'intégration de données on souhaite travailler sur une seule base article afin de pas en avoir 2 à mettre à jour.

En attendant vos réponses merci

[PPz78]

Bonjour,

Peux tu nous écrire ce qui ne fonctionne pas, quels sont les message d'erreur ?

J'ai essayé de faire fonctionner chez moi, cela bloque dès

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

plage = Cells(d, 2).Address

Pour que cela passe il me faut écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set mc = Worksheets("Feuil1").Cells(d, 1)
plage = mc.Address

Est-ce la même chose pour toi?
Quelle version d'Excel utilises tu ?

Autre remarque:
Pourquoi ne pas ouvrir le classeur article pour récupérer le poids de l'article qui t'intéresse et dont le nom est dans article.Value

[sliman84]

Bonjour,
j'ai l'erreur 424 objet requis, de plus PPZ78 je n'ai pas réussi avec ta méthode
car la cellule en question ne se trouve pas sur le classeur dans lequel la macro est exécutée, il faudra peut etre l'ecrire avec une autre syntaxe.

[PPz78]

Eh oui, on a toujours l'énoncé du problème par petits bouts.
J'attends avec impatience ton code.
Pourquoi n'arrives tu pas à le mettre en PJ?
1- tu cliques sur gérer les pièces jointes, une fenêtre s'ouvre
2- dans cette fenêtre tu cliques sur choisir un fichier, un "explorateur" s'ouvre
3- tu choisis ton fichier, puis clique sur "choisir", l' "explorateur se ferme" (le fichier xls doit être de taille inférieur à 128 Ko)
4- tu cliques sur envoyer, le nom de ton fichier est alors visible au dessus de Gérer les pièces jointes

PPz

[sliman84]

Je n'arrive pas à mettre le classeur en pièce jointe, comment faire, il me mets fichier non valide

dites moi comment faire pour uploader le fichier car il me mets fichier non valide, je rappelle que c'est un classeur gérant les macros

[sabzzz]

bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
article2 = indirect.ext("D:\[codification-article-brouillon.xls]Feuil4'!" & plage)
poids2 = indirect.ext("D:\[codification-article-brouillon.xls]Feuil4'!" & plage1)

[Invité]

Bonjour

dites moi comment faire pour uploader le fichier car il me mets fichier non valide, je rappelle que c'est un classeur gérant les macros

Il faut zipper le fichier.


Philippe

[Pierre Fauconnier]

Bonjour

Il faut noter que INDIRECT.EXT est une fonction qui n'existe pas sous Excel. Elle est disponible via un add-in non développé par Microsoft.

Il serait intéressant de détailler exactement et complètement ce que tu souhaites réaliser pour que nous puissions t'aider.

[sliman84]

Les gars j'ai réussi à résoudre le problème avec la fonction Getvalue, cependant j'ai un autre problème, c'est archi lent car l'ordinateur doit comparer la désignation de l'article à 300 valeurs, voivi le code miracle :
il faut définir la fonction getvalue avec le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Function GetValue(path, file, sheet, ref)
    Dim arg As String
    If Right(path, 1) <> "\" Then path = path & "\"
    If Dir(path & file) = "" Then
        GetValue = "File Not Found"
        Exit Function
    End If
    arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
      Range(ref).Range("A1").Address(, , xlR1C1)
    GetValue = ExecuteExcel4Macro(arg)
End Function

Ensuite voici mon 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
d = 2
Do
d= d + 1
 
p = "D:\"
f = "codification-article-brouillon.xlsm"
s = "Feuil4"
article2 = GetValue(p, f, s, Cells(d, 2).Address)
If article.Value = article2 Then Exit Do
Loop Until article2 = 0
 
If article.Value = article2 Then poidsuni = GetValue(p, f, s, Cells(d,7).Address)
If poidsuni <> 0 Then poids.Value = poidsuni * quantite.Value
If poidsuni = 0 Then poids.Value = "Aucune indication de poids"
If article2 = 0 Then poids.Value = "Aucune indication de poids"

J'ai essayé de réutiliser indirect.ext (syntaxe se saabz) avec les modifications apportées mais ca n'a pas marché afin de voir si c'est plus rapide que ma méthode.

Cependant afin d'optimiser la vitesse, je voudrais savoir si les connections ADO sont plus adéquates, si oui comment faire car je ne maitrise pas du tout le sujet, ce qui m'importe c'est de pouvoir importer d'un autre classeur ou d'une autre base de données l'information dont j'ai besoin ( extraction séléctive) et non tout le tableau. (ici c'est le poids mais ca peut etre autre chose).

merci

[mercatog]

Une proposition:
Classeur 1: "appel d'offres", en feuille "Feuil1": Articles en colonne A, quantité en colonne B. On désire reporter en colonne C le poids correspondant à l'article et en colonne D on fera Quantité*Poids
Classeur 2: "articles", en feuille "Feuil4": Articles en colonne A et le poids correspondant en colonne B
Ci-joint code à adapter:

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
26
27
Sub PoidsArticles()
Dim awbk As Workbook, wbk As Workbook
Dim sht As Worksheet
Dim c As Range
Dim LastLig As Long, FinLig As Long, i As Long
 
Application.ScreenUpdating = False
Set awbk = ThisWorkbook
Set wbk = Workbooks.Open("D:\codification-article-brouillon.xls")
Set sht = wbk.Sheets("Feuil4")
FinLig = sht.Cells(Rows.Count, 1).End(xlUp).Row
With awbk.Sheets("Feuil1")
    LastLig = .Cells(Rows.Count, 1).End(xlUp).Row
    For i = 3 To LastLig
        Set c = sht.Range("A2:A" & FinLig).Find(.Range("A" & i).Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then
            .Range("C" & i).Value = c.Offset(0, 1).Value
            .Range("D" & i).Value = .Range("B" & i).Value * .Range("C" & i).Value
            Set c = Nothing
        End If
    Next i
End With
wbk.Close
Set sht = Nothing
Set wbk = Nothing
Set awbk = Nothing
End Sub

[PPz78]

Salut,

J'ai déjà fait quelque chose qui s'apparente à ton PB.
Effectivement c'est assez long à cause des aller et retour entre les deux feuilles.

Pour y remédier, j'ai mis le programme de recherche dans la feuille qui contient les données. De l'extérieur il ne faut faire qu'une requête du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.... Poids_article(Article, Poids, Erreur)

Le programme ainsi architecturé va environ 20 fois plus vite.

PPz

[sliman84]

Mercatog, je vais essayer ta méthode qui est certainement plus rapide, cepeandant en voyant le code, je me suis apercu que tu ouvres le fichier, c'est certainement plus rapide pour importer les données, l'avantage des connections ADO c'est que tu travailles avec des fichiers fermés.

[Pierre Fauconnier]

Tu amènes toi même une réponse qui me paraît satisfaisante.

Pourquoi n'importes-tu pas tes données via dao. Avec un CopyFromRecordset, c'est certainement très rapide. Après, tu disposes des données des articles dans le classeur final et tu récupères les poids via RechercheV ou Index(...;Equiv())

[sliman84]

L'avantage de travailler avec une seule base et d'y extraire les données dont on a besoin me permets d'apporter une seule mise à jour a cette base. On revanche si à chaque fois je dois copier une base pour l'utiliser, je me retrouve avec des bases totalement désintegrées sur mes diffèrentes applications. C'est dans un souci d'intégration des données que je voudrais travailler avec une seule base.
C'est comme les logiciels de facturation, vous avez une base article(désignation, unité, poids...), une base client (adresse, code client...) et le système va à chaque fois extraire les données de ces mêmes bases.
En utilisant une connection ADO, si j'arrive à extraire la donnée dont j'ai besoin (avec la méthode FIND ou autre), le process serait beaucoup plus rapide.

[PPz78]

Bonsoir,
Voici la solution à laquelle je suis arrivé.

Dans le classeur de la base de donnée, j'ai ajouté une fonction pour récupérer le poids d'un article:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Function Poids_Article(article)
'   Recherche du poids d'un article
    Workbooks("Articles_BDD.xls").Sheets("Feuil1").Cells(1, 1) = article
    poids = Workbooks("Articles_BDD.xls").Sheets("Feuil1").Cells(2, 1).Value
    If Not IsNumeric(poids) Then poids = 0
    Poids_Article = poids
End Function

Pour que cela fonctionne j'ai supposé que les deux premières cellules de la colonne A étaient libres.
A1 sert à entreposer le nom de l'article, et dans A2 j'ai mis cette formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=RECHERCHEV(A1;B:G;6;FAUX)

C'est un moyen extrêmement efficace pour récupérer la masse de l'article.

Dans la macro appelante j'ai juste mis le code suivant pour le test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub poids()
'
'   Poids d'un article
    Dim Masse As Variant
    Article = "Article_35"
 
    Masse = Application.Run("Articles_BDD.xls!Poids_Article", Article)
    MsgBox "Résultat : " & Masse
 
End Sub

Il te reste à adapter.

A+
PPz