Excel Macro ouverture de fichier non désiré

Bonjour,

Je pense qu'il serait utile de nous montrer cette macro en la copiant ici pour que l'on puisse donner un avis pertinent.

Merci

Hello,

Comme demandé par pilas31, j'ai coller mes macros (il y en a 4) dans le message ci-dessous
Peut-être que quelqu'un trouveras ce qu'il y a de faux.

Sub DeleteDKJ1()
'
' DeleteDKJ1 Macro
' Macro enregistrée le 10.11.2009 par Guanter Kim
'

'
Range(Selection, Selection.End(xlToRight)).Select
Selection.ClearContents
Range("A6:AC500").Select
Selection.Sort Key1:=Range("A5"), Order1:=xlAscending, Key2:=Range("AC5") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Range("A6").Select
End Sub
Sub TrierDKJ1()
'
' TrierDKJ1 Macro
' Macro enregistrée le 10.11.2009 par Guanter Kim
'

'
Range("A6:AC500").Select
Selection.Sort Key1:=Range("A5"), Order1:=xlAscending, Key2:=Range("AC5") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Range("A6").Select
End Sub

Sub ImportDKJ1()
'
' ImportDKJ1 Macro
' Macro enregistrée le 02.11.2009 par Guanter Kim
'

Application.Goto Reference:="R500C1"
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\guank\Desktop\ExportDKJ1.csv", Destination:=Range _
("A500"))
.Name = "ExportDKJ1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Range("A4:AC500").Select
Range("AC500").Activate
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A6").Select

End Sub

Sub Fermer()
'
' Fermer Macro
' Macro enregistrée le 05.02.2010 par Guanter Kim
'

'
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Fermés").Select
Range("A501").Select
ActiveSheet.Paste
Range("A6:AC501").Select
Selection.Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A6").Select
End Sub

Bonjour,

Merci de nous avoir montré les macros,

Rien dans ces macros ne concerne l'ouverture, la fermeture d'un classeur. Donc le problème n'est pas dans le contenu des macros.

Peut-être dans la façon de les appeler, par un bouton, un menu personnalisé qui appelle encore les macros de l'ancien fichier ?

Dans le menu Edition/liaison vérifier qu'il n'y a pas de liaison avec l'ancien fichier.

Sinon désolé mais la je sèche !

A+