Bonjour a tous,
je sollicite votre aide pour une erreur 91 générée par cette macro. N'ayant pas de With, cela ne peut venir que des variables, mais il n'y en a que 2, et malgré mes recherches sur le net et le forum, je ne trouve pas d'erreur d'application (a moins que je sois une grosse buse lol).
merci pour votre aide m(_ _)m
je sollicite votre aide pour une erreur 91 générée par cette macro. N'ayant pas de With, cela ne peut venir que des variables, mais il n'y en a que 2, et malgré mes recherches sur le net et le forum, je ne trouve pas d'erreur d'application (a moins que je sois une grosse buse lol).
Code:
Sub TagCheck()
Dim fairu As String
Dim retsu As Integer
'Activ Cache
Application.ScreenUpdating = False
'Nettoyage
ActiveSheet.Shapes.SelectAll
Selection.Delete
ActiveSheet.Hyperlinks.Delete
Columns("A:X").Select
Selection.UnMerge
'Sup Col&Ligne
Range("A:B,F:F,H:H,M:N,P:Q,T:U").Select
Selection.Delete Shift:=xlToLeft
Rows("1:2,4:5").Select
Selection.Delete Shift:=xlUp
Columns("A:N").ColumnWidth = 100
'Titre col
Range("A1").Value = "送年"
Range("B1").Value = "送月"
Range("C1").Value = "送日"
Range("D1").Value = "番号"
Range("E1").Value = "売年"
Range("F1").Value = "売月"
Range("G1").Value = "売日"
Range("H1").Value = "円状況"
Range("I1").Value = "状態"
Range("J1").Value = "ブランド"
Range("K1").Value = "商品"
Range("L1").Value = "予定価格"
Range("M1").Value = "販売価格"
Range("N1").Value = "メモ"
Columns("D:D").Select
Selection.Font.Bold = True
Rows("1:1").Select
Selection.Font.Bold = True
Range("A:N").EntireColumn.AutoFit
'Volets
Range("A2").Select
ActiveWindow.FreezePanes = True
'Tab Filtre Av
retsu = WorksheetFunction.CountA(Columns("D:D"))
Range("H" & retsu + 1).Value = "円状況"
Range("H" & retsu + 2).Value = "円"
Range("N" & retsu + 1).Value = "メモ"
Range("N" & retsu + 3).Value = "*定額出品中*"
Range("A1:N" & retsu).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("H" & retsu + 1 & ":N" & retsu + 3), Unique:=False
'Save
ChDir "C:\Documents and Settings\DATABASE"
fairu = CStr(DateSerial(Year(Now), Month(Now), Day(Now))) & ".xls"
ActiveWorkbook.SaveAs fairu, FileFormat:=xlNormal, Password:="", _
WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False, AddToMru:=True
'Couleur
ActiveWorkbook.Colors(6) = RGB(255, 255, 153)
ActiveWorkbook.Colors(36) = RGB(255, 255, 0)
'Desactiv Cache
Application.ScreenUpdating = True
End Sub
merci pour votre aide m(_ _)m
Dernière édition: