Bonjour,
Je souhaiterais savoir comment gerer une Erreur
En rouge l'endroit ou ca plante Efectivement de temps en temps je peux avoir un nom de classeur erroné, je souhaiterais sortir de la Sub lorsque la macro plante
Voici mon code
Sub RecuperationKM()
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = ClasseurName
ActiveCell.Replace What:="CO04", Replacement:="DO01"
ActiveCell.Replace What:=".xls", Replacement:=".csv"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Offset(0, -1).Range("A1").Select
ClasseurKmName = ActiveCell.Value
ICI ca plante si le nom de classeur n'est pas bon
Application.Workbooks.Open Filename:="\\b660917\_IPEDATA\80001077\CSV\" & ClasseurKmName, ReadOnly:=True
Set wbkKm = ActiveWorkbook
Range("au38").Select
Selection.End(xlDown).Select
ActiveCell.Copy
Windows("Extraction Donnée STT.xls").Activate
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = _
"=RIGHT(RC[-1],LEN(RC[-1])-FIND(""*"",SUBSTITUTE(RC[-1],"" "",""*"",LEN(RC[-1])-LEN(SUBSTITUTE(RC[-1],"" "","""")))))"
Selection.Copy
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
Application.CutCopyMode = False
Selection.ClearContents
wbkKm.Close (False)
End Sub
Je souhaiterais savoir comment gerer une Erreur
En rouge l'endroit ou ca plante Efectivement de temps en temps je peux avoir un nom de classeur erroné, je souhaiterais sortir de la Sub lorsque la macro plante
Voici mon code
Sub RecuperationKM()
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = ClasseurName
ActiveCell.Replace What:="CO04", Replacement:="DO01"
ActiveCell.Replace What:=".xls", Replacement:=".csv"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Offset(0, -1).Range("A1").Select
ClasseurKmName = ActiveCell.Value
ICI ca plante si le nom de classeur n'est pas bon
Application.Workbooks.Open Filename:="\\b660917\_IPEDATA\80001077\CSV\" & ClasseurKmName, ReadOnly:=True
Set wbkKm = ActiveWorkbook
Range("au38").Select
Selection.End(xlDown).Select
ActiveCell.Copy
Windows("Extraction Donnée STT.xls").Activate
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = _
"=RIGHT(RC[-1],LEN(RC[-1])-FIND(""*"",SUBSTITUTE(RC[-1],"" "",""*"",LEN(RC[-1])-LEN(SUBSTITUTE(RC[-1],"" "","""")))))"
Selection.Copy
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
Application.CutCopyMode = False
Selection.ClearContents
wbkKm.Close (False)
End Sub