Probleme syntaxe macro avec Substitue

[grandgoret]

bonjour,

je rencontre un petit souci avec ma macro suivante : je dispose en colone A d une liste de noms de fichiers, certains écrits avec leur extension .xml et d autres non . J aimerais en fait retirer cette extension sur tous les noms de la colone qui la comportent . voici le code de ma macro qui ne fonctionne pas (erreur Sub ou Fontion non definie, sur le fonction Substitue) :

Sub VerificationExtension()
With Sheets("Feuil1")
Dim i As Integer
For i = 2 To 9999
If Right(Cells(i, 1), 3) = "xls" Then
Cells(i, 1) = Substitue(Cells(i, 1), ".xls", "")
Next
End If
End Sub

merci d avance pour votre aide !!

 

[Pierrot93]

Re : Probleme syntaxe macro avec Substitue

Bonsoir Grandgoret

essaye peut être comme ci dessous :

Cells(i, 1) = Replace(Cells(i, 1).Value, ".xls", "")

bonne soirée
@+

 

[grandgoret]

Re : Probleme syntaxe macro avec Substitue

cela semble marcher, merci beaucoup !!!
Cependantm je comprend pas vraiment mon erreur...

 

[Pierrot93]

Re : Probleme syntaxe macro avec Substitue

Re

euh, "substitue" n'est pas une fonction VBA, mais une fonction Excel... son équivalent est "Replace".

@+

 

[myDearFriend!]

Re : Probleme syntaxe macro avec Substitue

Bonsoir grandgoret, pierrot93, le Forum,

D'accord avec l'ami pierrot93 🙂, mais j'ajoute qu'on peut aussi utiliser Application.Substitute() au lieu de Replace() si on souhaite que l'application reste compatible avec Excel 97.

Nb : Application.Substitute() est l'équivalent de Application.WorksheetFunction.Substitute()

Cordialement,