XL 2010 code vba ne marche pas

[Makhfi]

je suis débutant en vba et j'ai fichier xlsm avec un morceau decode qui ne marche pas
Set feuilleCible = fichierCible.Sheets(Chr(83) & Chr(104) & Chr(101) & Chr(101) & Chr(116) & i)
et je ne sais pas pourqoui
prière de m'aider

 

[fanch55]

Salut,
Chr(83) & Chr(104) & Chr(101) & Chr(101) & Chr(116) & i ==> sheet1 ou 2 ou 4 selon la valeur de i.
cela suppose que la version d'excel soit en anglais .

Version française:
Chr(70) & Chr(101) & Chr(117) & Chr(105) & Chr(108) & i ==> feuil1 ou 2 ou 4 selon la valeur de i.

Le plus simple, c'est de tout mettre en clair:
Set feuilleCible = fichierCible.Sheets("feuil" & i)
ou Set feuilleCible = fichierCible.Sheets("sheet" & i)

 

[patty58]

Bonjour

A quoi correspond cela ??

Set feuilleCible = fichierCible.Sheets(Chr(83) & Chr(104) & Chr(101) & Chr(101) & Chr(116) & i)

Sachant que tes CHR entre parenthèses correspondent au mot Sheet, et quelle est la valeur de fichierCible ??
As-tu un extrait de fichier ? Car là, je suis paumée ..

 

[sylvanu]

Tout d'abord Bonjour Makhfi,
Je ne vois pas l'intérêt des CHR.
Chr(83) & Chr(104) & Chr(101) & Chr(101) & Chr(116)=Sheet
Donc ça fait :

Set feuilleCible = fichierCible.Sheets("Sheet" & i)

Je suppose que "fichiercible" est défini avant. Que vaut "i" lors de l'erreur.
Si par ex i=9 la feuille nommée Shhet9 doit exister.
Mais ce serait plus simple avec un petit fichier test.

 

[Makhfi]

Salut,
Chr(83) & Chr(104) & Chr(101) & Chr(101) & Chr(116) & i ==> sheet1 ou 2 ou 4 selon la valeur de i.
cela suppose que la version d'excel soit en anglais .

Version française:
Chr(70) & Chr(101) & Chr(117) & Chr(105) & Chr(108) & i ==> feuil1 ou 2 ou 4 selon la valeur de i.

Le plus simple, c'est de tout mettre en clair:
Set feuilleCible = fichierCible.Sheets("feuil" & i)
ou Set feuilleCible = fichierCible.Sheets("sheet" & i)

merci infiniment

 

[Makhfi]

Bonjour

A quoi correspond cela ??

Sachant que tes CHR entre parenthèses correspondent au mot Sheet, et quelle est la valeur de fichierCible ??
As-tu un extrait de fichier ? Car là, je suis paumée ..

merci infiniment

 

[Makhfi]

Tout d'abord Bonjour Makhfi,
Je ne vois pas l'intérêt des CHR.
Chr(83) & Chr(104) & Chr(101) & Chr(101) & Chr(116)=Sheet
Donc ça fait :

Set feuilleCible = fichierCible.Sheets("Sheet" & i)

Je suppose que "fichiercible" est défini avant. Que vaut "i" lors de l'erreur.
Si par ex i=9 la feuille nommée Shhet9 doit exister.
Mais ce serait plus simple avec un petit fichier test.

merci infiniment