conditions avec plusieurs workbooks

[ktran]

hello a tous j ai besoin de vos lumieres :

workbook 1 = une liste de ref (ex. A,B,C,D)
workbook 2 = une liste de ref (ex. x,y,z)

dans mon workbook 4, j ecris cette condition :

1) si dans colonne F, il y a une ref, alors verifier si cette ref se trouve soit dans le workbook 1 ou workbook 2

2) si dans workbook 1 alors une methode de calcul,
si dans workbook 2 alors une autre methode de calcul

boucle jusqua ce que la macro rencontre une cellule vide dans la colonne F.

est-ce possible de faire cela ? un debut de code me serait bien utile, coder les calculs c est deja OK

merci d avance

 

[youky(BJ)]

Re : conditions avec plusieurs workbooks

Bonjour,
voici une macro qui est faites pour ta demande....
j'ai pas bien tester donc .....tous les fichiers doivent être enregistré dans le mm répertoire

 Sub CommandButton1_Click()
Dim Wb As Workbook
Dim Wb2 As Workbook
chemin = ThisWorkbook.Path & "\" 'renvoie le chemin de ce répertoire
fichier = "workbook 1.xls" 'ici nom du 1er fichier
fichier2 = "workbook 2.xls"
Set Wb = GetObject(chemin & fichier)
Set Wb2 = GetObject(chemin & fichier2)
bas = [A65000].End(3).Row ' bas de col a de ce fichier
For k = 1 To sheets("Feuil1").[A65000].End(3).Row 'a voir nom onbglet
lig = Application.Match(Cells(1, k), Wb2.Sheets("AD").[A:A], 0)'nomOnglet à revoir
If lig > 0 Then
MsgBox "fichier1"
Else
lig = Application.Match(Cells(1, k), Wb2.Sheets("AD").[A:A], 0)
If lig > 0 Then MsgBox "fichier2"
End If
Next
Wb.Close
Wb2.Close
End Sub

 

[youky(BJ)]

Re : conditions avec plusieurs workbooks

et oui petite boulette donc je rectifie

 Sub CommandButton1_Click()
Dim Wb As Workbook
Dim Wb2 As Workbook
chemin = ThisWorkbook.Path & "\" 'renvoie le chemin de ce répertoire
fichier = "workbook 1.xls" 'ici nom du 1er fichier
fichier2 = "workbook 2.xls"
Set Wb = GetObject(chemin & fichier)
Set Wb2 = GetObject(chemin & fichier2)
For k = 1 To sheets("Feuil1").[A65000].End(3).Row 'a voir nom onbglet
lig = Application.Match(Cells(1, k), Wb.Sheets("nomonglet").[A:A], 0)'nomOnglet à revoir
If lig > 0 Then
MsgBox "fichier1"
Else
lig = Application.Match(Cells(1, k), Wb2.Sheets("nomonglet").[A:A], 0)
If lig > 0 Then MsgBox "fichier2"
End If
Next
Wb.Close
Wb2.Close
End Sub