Renommer des formes sur VBA

[ZAJNI]

Bonjour à tous

J'ai des formes sur ma feuille Excel que je voudrais renommer grâce à VBA.
Je voudrais supprimer les deux derniers caractère de chaque nom.

Par exemple si une forme a pour nom : "FRANCE_5" je voudrais la renommer en "FRANCE" toujours en supprimant les deux derniers caractères.

Voici mon code :

Sub Renommerforme()
Dim longu As Integer
Dim ch As String
Dim chaine As String

For Each forme In ActiveSheet.Shapes
ch = forme.Name
chaine = Left(ch, longu - 2)
forme.Name = chaine
Next forme
End Sub

Sauf que j'ai une erreur d'exécution : argument ou appel de procédure incorrect.

Pourriez vous m'aider à trouver la solution à ce problème ?

Merci à tous.

 

[Johan]

Salut,

Ca te renvoie sur une ligne en particulier ton erreur ? Peut être déclarer "forme as Object" dans tes variables ?
Sans pièce jointe dur à dire !

Johan

 

[phlaurent55]

Bonjour Zajni,

remplace:
chaine = Left(ch, longu - 2)

par:
chaine = Left(ch, Len(ch) - 2)

à+
Philippe

 

[ZAJNI]

Merci beaucoup, j'avais oublié l'instruction qui calcule le len.
Ca marche très bien à présent.
Merci de votre aide.

A+

 

[phlaurent55]

Re,

la réponse apportée lors de ma précédente intervention fonctionne sur ton fichier

à+
Philippe