Salut,
Pour l’instant, lorsque je lance ta macro ‘CommandButton1_Click’ du UserForm1, ça bloque chez moi avec l’indication qu’il y a trop de données à traiter et une capacité insuffisante à disposition.
Je n’ai pas trop cherché à comprendre ce problème, puisqu’apparemment ce n’est pas ton souci.
[quote=":D Ikram :D"]J'ai un programme qui me permet d'aller chercher un fichier l'ouvrir et copier des données d'une feuille dans un autre classeur, mais ce que je veux c'est que mon programme prend en compte la condition suivante, par exemple :
si le nom du fichier selectionné contient 14 alors l'ouvrir et copier la feuille "SORTIE PANAM", la coller dans un autre classeur puis sur la deuxième feuille copier et coller les lignes des semaines S+4 (15, 16, 17, 18)
Si le nom du fichier selectionné contient 15 alors faire la méme chose mais avec les lignes S+4 (16,17,18,19)[/quote]
Dans la même macro que celle indiquée ci-dessus, tu as le passage
If Not Estlà("SORTIE PANAM") Then
MsgBox "La feuille ASS n'existe pas dans ce classeur", , "Feuille SORTIE PANAM absente": wbks.Close 0: Exit Sub
Else
wbks.Sheets("SORTIE PANAM").Cells.Copy wbkc.Sheets("Feuil2").Cells
End If
J’en conclu que tu désires placer une condition complémentaire si la feuille recherchée existe, c’est-à-dire si ton code passe par la deuxième possibilité de la condition IF ci-dessus, ou en d’autres mots si ça passe par ELSE. Voici alors une démonstration de ce qui est possible, pour le même passage de la macro :
If Not Estlà("SORTIE PANAM") Then
MsgBox "La feuille ASS n'existe pas dans ce classeur", , "Feuille SORTIE PANAM absente": wbks.Close 0: Exit Sub
Else
'wbks.Sheets("SORTIE PANAM").Cells.Copy wbkc.Sheets("Feuil2").Cells
If Mid(wbks.Name, 20, 2) = "14" Then
MsgBox "Le nom du fichier sélectionné contient 14"
Else
If Mid(wbks.Name, 20, 2) = "15" Then
MsgBox "Le nom du fichier sélectionné contient 15"
Else
MsgBox "Le nom du fichier sélectionné contient 16"
End If
End If
End If
A toi de remplacer mes 3 nouveaux MsgBox par tes propres codes.
Cordialement.