J
JCC0127
Guest
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
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