Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 code vba ne marche pas

Makhfi

XLDnaute Nouveau
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

XLDnaute Barbatruc
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

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Supporter XLD
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 :
VB:
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

XLDnaute Nouveau
merci infiniment
 

Makhfi

XLDnaute Nouveau
merci infiniment
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…