sharkantipav
XLDnaute Occasionnel
Bonjour,
Jai un fichier sur lequel j'utilise la macro suivante. Elle tourne bien des que je l'execute la1ere fois. Si je l'execute une 2eme fois avec des donnees differentes. Elle me fait crasher tout mes excel. une idee de ce qui pourrait declencher cela. Merci bcp
Jai un fichier sur lequel j'utilise la macro suivante. Elle tourne bien des que je l'execute la1ere fois. Si je l'execute une 2eme fois avec des donnees differentes. Elle me fait crasher tout mes excel. une idee de ce qui pourrait declencher cela. Merci bcp
VB:
Sub saveIOI()
Dim endI As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
Dim ioiname As String
ioiname = "F:\Delta XXXXXXXXXXXXXXXXXXXX " & Format(Date, "DDMMMYY") & ".xls"
If Range("A10") = "" Then
endI = Range("A10")
Else
endI = Range("A10").End(xlDown).Row
End If
Range("D9:K" & endI).Select
Selection.Copy
Sheets.Add After:=ActiveSheet
ActiveSheet.Name = "Swap Template"
ActiveSheet.Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Columns("A:H").EntireColumn.AutoFit
Application.CutCopyMode = False
Range("A2").Select
ActiveSheet.Move
ActiveWorkbook.SaveAs ioiname, FileFormat:=56
ActiveWorkbook.Close
Dim olapp As Outlook.Application
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = "XXXX@YYY.com"
msg.Subject = "IOI - " & Format(Date, "DDMmmYY") & " - " & Range("G3").Value
msg.Attachments.Add Source:=ioiname
msg.Display
Sheets("IOI").Range("G3").Select
Set olapp = Nothing
Set msg = Nothing
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub