Pb Commande If

[JCC0127]

Bonjour à tous !

Quand j'exécute cette commande :

Dim x As Integer

For x = Range('A65536').End(xlUp).Row To 2 Step -1
If Not UCase(Range('A' & x)) Like 'COMMUN' Then
Rows(x).Delete
End If
Next

Tout va bien !!
Mais si je mets dans le If un lecteur :

If Not UCase(Range('A' & x)) Like 'e:\\COMMUN' Then

Cela efface tout !!??
Pourquoi ?

Merci.
JCC 😱

 

[JCC0127]

Bonjour José,

Je viens d'elever Ucase, mais cela ne fonctionne pas quand même toute les lignes sont supprimées !!

If Not Range('A' & x) Like 'e:COMMUN' Then

Mais si j'enlève le 'e:', c'est bon !!

??????? :huh:

JCC

 

[JCC0127]

Rectfication :

If Not Range('A' & x) Like 'e:COMMUN' Then

Merci d'avance !

JCC

 

[JCC0127]

REbonjour !

Oui Commun est en majusules !

Voici un extrait du fichier !

 

[JCC0127]

Voici l'extrait : :unsure:

BEGIN DIR: E:\\
BEGIN DIR: E:\\COMMUN
BEGIN DIR: E:\\COMMUN\\donnees
BEGIN DIR: E:\\COMMUN\\donnees\\Internet
BEGIN DIR: E:\\COMMUN\\donnees\\Internet\\Recent
BEGIN DIR: E:\\COMMUN\\Echsite
BEGIN DIR: E:\\COMMUN\\Echsite\\Commun
BEGIN DIR: E:\\COMMUN\\Echsite\\Commun\\

Voilà !
Comment faire ?

Merci !
JCC

 

[JCC0127]

Effectivement !!! C'est mieux !!
J'ai enlevé le Ucase et l'étoile de la fin car je ne veux que le répertoire parent !!
Nikel !!

Merci beaucoup José !!

A+
JCC 🙂

 

[JCC0127]

Un dernier détail :

Y a t'il un moyen pour que la commande ne tienne pas compte de la casse ??

JCC

 

[Jcc0127]

Impeccable !! Ca marche !

Merci bien !

A+
JCC 🙂