Excel Macro ouverture de fichier non désiré

Résolu
Biluxo -  
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

3 réponses

  1.  pilas31 Contributeur
    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
    0
    1. Biluxo
      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
      0
      1. pilas31 Contributeur
        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+
        0
        1. Biluxo
          Merci Pilas c'était bien un problème avec les boutons affectés à la macro qui avaient une référence sur le fichier d'origine, bravo il fallait y pensé..
          Mille mercis

          PS: Comment ont fait pour marquer le problème comme étant résolu
          0
        2. pilas31 Contributeur
          De rien, c'est avec plaisir !

          Pour marquer en résolu il faut être membre au moment ou tu poste la question. Dans ce cas tu disposes d'une option pour marquer en résolu ta propre question.

          Toi tu n'étais pas connecté comme membre donc tu n'as pas l'option.

          Je marque la discution en résolu (je peux le faire car je suis Contrib.)

          Bonne continuation et A+ sur une autre discussion.
          0