Comparaison

Bonjour

j'aurais besoin d'une toute petite correction sur mon code qui marche tres bien ( que j'ai fait dans la soirée )

j'ai un classeur G et un classeur E , sur le classeur G je dispose d'une plage allant de A1 à A100 que je compare avec

la plus grande valeur des onglets du classeur E , ( ca marche tres bien ) sauf que j'ai un onglet de mon classeur E que j'ai

decidé d'appler "citron" et là le code me renvois une erreur certainement du au fait que cet onglet ne peux pas etre pris en compte

dans la lecture du code , comment faire pour dire au programme de ne pas prendre en compte cet onglet ?

je joins mes fichiers en vous remerciant par avance pour vos conseils ,

10g.zip (8.62 Ko)
8e.zip (4.75 Ko)

Bonjour Rocket 4 le forum

tes explications sont sont sont ??!!!! mais bon je pense avoir compris , enfin teste et redis moi

voilà ton fichier en retour

a+

papou

10rocket4-g-1-v1.zip (7.03 Ko)

merci pour cette réponse Paritec

mais je me pose une question sur mon code, meme s'il marche , comment est ce que le programme comprend les lignes suivantes

Sub FOUILLEETTROUVE()
    Dim feuille As Worksheet
    Dim Chemin As String
    Dim E As Workbook

    Chemin = ThisWorkbook.Path
    Workbooks.Open Filename:=Chemin & "\E.xls"
    For Each feuille In Worksheets

notamment ici

For Each feuille In Worksheets

comment sait il qu'il doit aller chercher l'info dans le classeur E ?

par ce que

For Each feuille In Worksheets

ne dit pas quel classeur le programme doit parcourir !

comment améliorer ce code en le specifiant ?

merci pour vos lumières

Salut le forum

Tu peux faire comme ceci

Sub LaMacro

Dim Wb1 As Workbook   'Mon classeur
Dim Wb2 As Workbook   'L'autre classeur 

Set Wb1 = ThisWorkbook

'Ton code d'ouverture
Set Wb2 = Workbooks("E.xls")

'Ton traitement
For Each feuille In Wb2.Worksheets

'Libération de la mémoire
Set Wb1 = Nothing
Set Wb2 = Nothing

End Sub

Mytå

merci pour cette réponse , je vais regarder cela de plus près !

Rechercher des sujets similaires à "comparaison"