Code VBA calcule uniquemment total les produits conformes

Bonjour

J'ai deux fichiers

Le premier fichier est nommé CT et dans sa première feuille, le

produit qu'est conforme est indiqué dans la colonne de l'entreprise

concernée avec: C

Un autre fichier avec le nom AO et dans sa première feuille dedans les

totaux sont calculés selon le produit et l'entreprise

Ces deux fichiers sont placés dans un dossier jaune, par

exemple,(nommé dossier) sur le bureau

Svp ,j 'ai besoin d'un autte fichier xlsm avec un button

En cliquant sur le button demande de choisir le dossier

L'utilisateur sélectionne ensuite le (le dossier qui contient Ct et AO)

Le macro programmé ouvre AO et calcule les totaux sur la première

feuille, uniquement pour lesquels ils sont confirmes(les conformes ont

"C"fichier CT la première feuille) et les autres non conformes laquelle non-C laisse sa

somme vides.

Merci d'avance

Bonjour, Hicham

Petite question pourquoi avoir fait 2 fichiers ?

Tu as les même produits dans les deux. ca me semble plus simple de travailler sur un seul Fichier non?

Concernant le fichier CT il y a plusieurs colonnes conformité, on se base sur quoi?? pour dire si un produit est conforme??

Et tu veux quoi comme totaux sur ton fichier AO?

Merci

Bonjour

Je ne sais pas si c'est moi, mais j'ai du mal à te comprendre, je trouve que les explication sont pas très précises

Pour lancer une piste sur comment choisir, ouvrir plusieurs classeur et s'y "connecter" voilà un début :

Option Explicit
Sub PlusieursExcel()

Dim Doc1 As String, Doc2 As String
Dim WB1 As Workbook, WB1SH As Worksheet
Dim WB2 As Workbook, WB2SH As Worksheet, WB2Nom
Dim WB3 As Workbook, WB3SH As Worksheet, WB3Nom

Set WB1 = ThisWorkbook
Set WB1SH = WB1.Worksheets("Feuil1")

MsgBox "Merci d'ouvrir le fichier C.T AO", vbInformation, "Ouvrir fichier"
Doc1 = Application.GetOpenFilename("Fichier source, *.xlsx")
If Doc1 = "" Then Exit Sub
Workbooks.Open (Doc1)
WB2Nom = Split(Doc1, "\")
Set WB2 = Workbooks(WB2Nom(UBound(WB2Nom)))
'Préciser un Set WB2SH = WB2.WorkSheets("Nom de la feuille") pour savoir sur quelle feuille travailler

MsgBox "Merci d'ouvrir le fichier AO", vbInformation, "Ouvrir fichier"
Doc2 = Application.GetOpenFilename("Fichier source, *.xlsx")
If Doc2 = "" Then Exit Sub
Workbooks.Open (Doc2)
WB3Nom = Split(Doc2, "\")
Set WB3 = Workbooks(WB3Nom(UBound(WB3Nom)))
'Préciser un Set WB3SH = WB3.WorkSheets("Nom de la feuille") pour savoir sur quelle feuille travailler

End Sub

Merci infiniment pour l'attention que vous avez porté a mon sujet

j' ai besoin d'un code vba sur un troisième fichier xlsm pour rendre les cellules totaux de la première feuille du fichier AO vides

en prenant en considération la première feuille du fichier CT qui ne sont pas comformes (qui n' ont pas un "C")

Merci