Discussion :

[dlight]

Bonjour à tous !

J'ai besoin à nouveau de votre aide...

Le code demande à l'utilisateur de lui indiquer le fichier équivalent de l'an dernier et lui proposera d'importer certaines feuilles de l'an dernier.

Avant d'importer la feuille de l'an dernier, je test si ce même nom existe dans mon fichier actuel et si c'est le cas, je la supprime.

Mon problème est le suivant :

Fichier de l'an dernier : Feuille avec le nom DIVIDENDES
Fichier en cours : Feuille avec le nom Dividendes

VBA n'a pas reconnu le mot. Je cherche donc une façon de faire en sorte que si le mot est identique, que celui-ci soit considéré peut importe s'il y a majuscule, minuscule...

Il y a donc erreur car lors de la création de la feuille DIVIDENDES, car une feuille identique existe déjà.

Merci à nouveau pour l'aide

Dlight

[Minick]

Salut,

UCase pour mettre une chaine en majuscule
LCase pour mettre une chaine en minuscule

Code :

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

Ucase("TaChaine")

[dlight]

Merci à vous Minick d'avoir pris le temps de me répondre.

J'avais fait la recherche et obtenu le Ucase et le Lcase mais cela ne règle pas mon problème.
Voici un bour de code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 '#### test si la feuille exsite ###
 
 
For i = 1 To Worksheets.Count
    If Worksheets(i).Name = UCase(LeNomActuel) Then
 
   ...
   ...    
       Sheets Ucase (LeNomActuel).Name = "Détruire " & j
    j = j + 1
 
        End If
Next i

La variable LeNomActuel donne DIVIDENDES alors que le nom de la feuille de mon fichier est dividendes.

Merci à l'avance

Dlight

[Minick]

Comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 '#### test si la feuille exsite ###
 
 
For i = 1 To Worksheets.Count
    If UCase(Worksheets(i).Name) = UCase(LeNomActuel) Then
 
   ...
   ...    
       Worksheets(i).Name = "Détruire " & j
    j = j + 1
 
        End If
Next i

[kiki29]

Salut, voir ici

[dlight]

J'ai fait le travail qu'à moité !!!

Une fois de plus, merci de me rappeler à l'ordre !!!

Merci à vous également Kiki.

Dlight