Gestion d'erreur
Bonjour
Voilà il y a un petit truc que je ne comprends pas
Dans un code je copie une feuille dans un classeur.
Si le classeur n'est pas ouvert je gère l'erreur en envoyant le code vers une ligne qui me crée ce classeur et me l'enregistre
Tout marche bien pour le premier passage de la boucle :
Il veut copier la feuille dans le classeur qu'il ne trouve pas il va à la ligne pour créer le classeur me l'enregistre. La boucle continue il ne trouve pas le 2ème classeur mais là il ne va pas à la ligne création de fichier il Bug
Alors petite question: Pourquoi ?
Je pourrais bien sûr faire un test avant mais ce qui m'embète c'est que je ne comprends pas le pourquoi ça marche pas.
J'ai essayé un désactivant l'erreur pour le réactiver mais cela fait la même chose
Merci d'avance pour ceux qui m'aideront
Je mets la partie du code pour voir
Message édité par: Pascal76, à: 19/09/2005 13:27
Bonjour
Voilà il y a un petit truc que je ne comprends pas
Dans un code je copie une feuille dans un classeur.
Si le classeur n'est pas ouvert je gère l'erreur en envoyant le code vers une ligne qui me crée ce classeur et me l'enregistre
Tout marche bien pour le premier passage de la boucle :
Il veut copier la feuille dans le classeur qu'il ne trouve pas il va à la ligne pour créer le classeur me l'enregistre. La boucle continue il ne trouve pas le 2ème classeur mais là il ne va pas à la ligne création de fichier il Bug
Alors petite question: Pourquoi ?
Je pourrais bien sûr faire un test avant mais ce qui m'embète c'est que je ne comprends pas le pourquoi ça marche pas.
J'ai essayé un désactivant l'erreur pour le réactiver mais cela fait la même chose
Merci d'avance pour ceux qui m'aideront
Je mets la partie du code pour voir
If Sheets('Problemes').Cells(MonNumeroPbe, ColDebriefCopies) <> '' Then
VarNomDebrief = Split(Sheets('Problemes').Cells(MonNumeroPbe, ColDebriefCopies), '/')
For ye = 1 To UBound(VarNomDebrief)
On Error GoTo CreationClasseur
ThisWorkbook.Sheets('Rapport').Copy After:=Workbooks('InfoAst' & VarNomDebrief(ye) & '.xls').Sheets(Workbooks('InfoAst' & VarNomDebrief(ye) & '.xls').Sheets.Count)
GoTo fin
CreationClasseur:
Sheets('Rapport').Copy
ActiveWorkbook.SaveAs Filename:='C:\\\\\\\\tmp\\\\\\\\InfoAst' & VarNomDebrief(ye) & '.xls'
fin:
Next
End If
Message édité par: Pascal76, à: 19/09/2005 13:27