QUAND "Sheets(str).Copy after:=Sheets(Sheets.Count) " refuse de s'effectuer...

jpsonza Messages postés 20 Date d'inscription lundi 20 février 2006 Statut Membre Dernière intervention 17 juin 2008 - 30 juin 2006 à 11:24
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 30 juin 2006 à 11:43
Au secours,

J'ai un programme VBA qui marchait jusqu'à hier.

Maintenant quand je le lance le sablier s'afficha mais à la fin pas de resultat.

J'ai essayé de déboguer quand j'entre dans un procédure voir plus bas:

           MsgBox "Je suis avant"
           Sheets(str).Copy after:=Sheets(Sheets.Count)
           MsgBox "Je suis après"

Il m'affiche bien "je suis avant"  <strike>MAIS PAS</strike>  "je suis après". Il me semble donc que l'instruction
Sheets(str).Copy after:=Sheets(Sheets.Count) n'est pas effectuée...

Que faire ? Aidez moi svp...

4 réponses

drikce06 Messages postés 2236 Date d'inscription lundi 29 mai 2006 Statut Membre Dernière intervention 29 mai 2008 10
30 juin 2006 à 11:30
salut je pense que cela doit marcher
 dim p as integer 
dim str as string 
str = "nomfeuille"      
MsgBox "Je suis avant"
p = Worksheets.Count
Sheets(str).Copy after:=Worksheets(p)
           MsgBox "Je suis après"




 Drikce 06
0
jpsonza Messages postés 20 Date d'inscription lundi 20 février 2006 Statut Membre Dernière intervention 17 juin 2008
30 juin 2006 à 11:40
Merci pour ta reponse. En fait j'y ai pensé pour ca ya pas de pb,

les variables sont définies comme il faut,

je voulais juste savoir s'il n'ya pas de compasant particuliers à télécharger genre.dll
0
drikce06 Messages postés 2236 Date d'inscription lundi 29 mai 2006 Statut Membre Dernière intervention 29 mai 2008 10
30 juin 2006 à 11:42
non normalement sa fonctionne telquel

 Drikce 06
0
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
30 juin 2006 à 11:43
rien a charger...
vérifie le nom de ta feuille, et désactive toute éventuelle gestion d'erreur (On error ...)

Renfield
Admin CodeS-SourceS- MVP Visual Basic
0
Rejoignez-nous