Excel Macro ouverture de fichier non désiré Résolu/Fermé

Question

Hello, 

J'ai créé un fichier avec une macro, tout fonctionne pour le mieux, j'ai créé un fichier de sauvegarde puis j'ai continué de travaillé avec mon fichier que j'ai enregistré à un autre endroit. Maintenant à chaque fois que je lance ma macro mon fichier de sauvegarde (celui d'origine s'ouvre également9 j'ai cherché une liaison partout, mais je n'ai rien trouvé, ni dans la macro ni dans le fichier
Que faire???

Merci pour votre aide

Configuration: Windows XP / Internet Explorer 7.0

pilas31 · Answer

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

Biluxo · Answer

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

pilas31 · Answer

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+

Excel Macro ouverture de fichier non désiré

3 réponses

Discussions similaires