QUAND "Sheets(str).Copy after:=Sheets(Sheets.Count) " refuse de s'effectuer...
jpsonza
Messages postés20Date d'inscriptionlundi 20 février 2006StatutMembreDernière intervention17 juin 2008
-
30 juin 2006 à 11:24
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 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...
drikce06
Messages postés2236Date d'inscriptionlundi 29 mai 2006StatutMembreDernière intervention29 mai 200810 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"