Sauver et quitter en VBS sans boite de dial

Le 12/09/2012 à 15:01

Bonjour, j'ai fait le code suivant :

Sub Macro1()
'
' Macro1 Macro
'

'
    Set Base = ActiveWorkbook
    Workingdir = "F:\Bibliothèque\Desktop\Nouveau dossier (3)"
    Workbooks.OpenText Filename:=Range("A1"), Origin:=xlMSDOS, _
        StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(5, _
        1), Array(15, 1), Array(22, 1), Array(31, 1), Array(57, 1), Array(66, 1), Array(72, 1)), _
        TrailingMinusNumbers:=True
        Set Seco = ActiveWorkbook
        Base.Activate
    Workbooks.OpenText Filename:=Range("B1"), Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
        , ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:= _
        False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1) _
        , Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), TrailingMinusNumbers:=True
        Set Tert = ActiveWorkbook
    Range("K13").Select
    ActiveWindow.SmallScroll Down:=-15
    Range("B4").Select
    ActiveWindow.WindowState = xlNormal
    With ActiveWindow
        .Top = 16.75
        .Left = 499
    End With
    Range("B5:E5").Select
    Selection.NumberFormat = "0.00"
    Range("A5").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("B5").Select
    Seco.Activate
    Range("D4").Select
    If Range("D4").Value Like "aN" Then
    Range("H2").Select
    End If
    Selection.Copy
    ActiveWindow.WindowState = xlMinimized
    Range("B5,B5").Select
    ActiveSheet.Paste
    Base.Activate
    ActiveWindow.WindowState = xlMinimized
    Seco.Activate
    ActiveWindow.WindowState = xlNormal
    Range("B6").Select
    If Not Range("A6").Value Like "kx=" Then
    Range("B7").Select
    ElseIf Not Range("A7").Value Like "kx=" Then
    Range("B8").Select
    ElseIf Not Range("A8").Value Like "kx=" Then
    Range("B9").Select
    ElseIf Not Range("A9").Value Like "kx=" Then
    Range("B10").Select
    ElseIf Not Range("A10").Value Like "kx=" Then
    Range("B11").Select
    ElseIf Not Range("A11").Value Like "kx=" Then
    Range("B12").Select
    ElseIf Not Range("A12").Value Like "kx=" Then
    Range("B13").Select
    ElseIf Not Range("A13").Value Like "kx=" Then
    Range("B14").Select
    ElseIf Not Range("A14").Value Like "kx=" Then
    Range("B15").Select
    ElseIf Not Range("A15").Value Like "kx=" Then
    Range("B16").Select
    ElseIf Not Range("A16").Value Like "kx=" Then
    Range("B17").Select
    ElseIf Not Range("A18").Value Like "kx=" Then
    Range("B19").Select
    ElseIf Not Range("A19").Value Like "kx=" Then
    Range("B20").Select
    ElseIf Not Range("A20").Value Like "kx=" Then
    Range("B21").Select
    ElseIf Not Range("A21").Value Like "kx=" Then
    Range("B22").Select
    ElseIf Not Range("A22").Value Like "kx=" Then
    Range("B23").Select
    ElseIf Not Range("A23").Value Like "kx=" Then
    Range("B24").Select
    ElseIf Not Range("A24").Value Like "kx=" Then
    Range("B25").Select
    ElseIf Not Range("A25").Value Like "kx=" Then
    Range("B26").Select
    ElseIf Not Range("A26").Value Like "kx=" Then
    Range("B27").Select
    ElseIf Not Range("A27").Value Like "kx=" Then
    Range("B28").Select
    ElseIf Not Range("A28").Value Like "kx=" Then
    Range("B29").Select
    ElseIf Not Range("A29").Value Like "kx=" Then
    Range("B30").Select
    ElseIf Not Range("A30").Value Like "kx=" Then
    Range("B31").Select
    ElseIf Not Range("A31").Value Like "kx=" Then
    Range("B32").Select
    ElseIf Not Range("A32").Value Like "kx=" Then
    Range("B33").Select
    ElseIf Not Range("A33").Value Like "kx=" Then
    Range("B34").Select
    ElseIf Not Range("A34").Value Like "kx=" Then
    Range("B35").Select
    ElseIf Not Range("A35").Value Like "kx=" Then
    Range("B36").Select
    ElseIf Not Range("A36").Value Like "kx=" Then
    Range("B37").Select
    End If
    Application.CutCopyMode = False
    Selection.Copy
    With ActiveWindow
        .Top = 76
        .Left = -629.75
    End With
    Base.Activate
    Tert.Activate
    Range("D5").Select
    ActiveSheet.Paste
    Base.Activate
    Tert.Activate
    With ActiveWindow
        .Top = -4.25
        .Left = 41.5
    End With
    Range("B6").Select
    If Not Range("A6").Value Like "ky=" Then
    Range("B7").Select
    ElseIf Not Range("A7").Value Like "ky=" Then
    Range("B8").Select
    ElseIf Not Range("A8").Value Like "ky=" Then
    Range("B9").Select
    ElseIf Not Range("A9").Value Like "ky=" Then
    Range("B10").Select
    ElseIf Not Range("A10").Value Like "ky=" Then
    Range("B11").Select
    ElseIf Not Range("A11").Value Like "ky=" Then
    Range("B12").Select
    ElseIf Not Range("A12").Value Like "ky=" Then
    Range("B13").Select
    ElseIf Not Range("A13").Value Like "ky=" Then
    Range("B14").Select
    ElseIf Not Range("A14").Value Like "ky=" Then
    Range("B15").Select
    ElseIf Not Range("A15").Value Like "ky=" Then
    Range("B16").Select
    ElseIf Not Range("A16").Value Like "ky=" Then
    Range("B17").Select
    ElseIf Not Range("A18").Value Like "ky=" Then
    Range("B19").Select
    ElseIf Not Range("A19").Value Like "ky=" Then
    Range("B20").Select
    ElseIf Not Range("A20").Value Like "ky=" Then
    Range("B21").Select
    ElseIf Not Range("A21").Value Like "ky=" Then
    Range("B22").Select
    ElseIf Not Range("A22").Value Like "ky=" Then
    Range("B23").Select
    ElseIf Not Range("A23").Value Like "ky=" Then
    Range("B24").Select
    ElseIf Not Range("A24").Value Like "ky=" Then
    Range("B25").Select
    ElseIf Not Range("A25").Value Like "ky=" Then
    Range("B26").Select
    ElseIf Not Range("A26").Value Like "ky=" Then
    Range("B27").Select
    ElseIf Not Range("A27").Value Like "ky=" Then
    Range("B28").Select
    ElseIf Not Range("A28").Value Like "ky=" Then
    Range("B29").Select

    ElseIf Not Range("A29").Value Like "ky=" Then
    Range("B30").Select

    ElseIf Not Range("A30").Value Like "ky=" Then
    Range("B31").Select

    ElseIf Not Range("A31").Value Like "ky=" Then
    Range("B32").Select

    ElseIf Not Range("A32").Value Like "ky=" Then
    Range("B33").Select

    ElseIf Not Range("A33").Value Like "ky=" Then
    Range("B34").Select

    ElseIf Not Range("A34").Value Like "ky=" Then
    Range("B35").Select

    ElseIf Not Range("A35").Value Like "ky=" Then
    Range("B36").Select

    ElseIf Not Range("A36").Value Like "ky=" Then
    Range("B37").Select
    End If
    Application.CutCopyMode = False
    Selection.Copy
    With ActiveWindow
        .Top = 311.5
        .Left = -349.25
    End With
    Base.Activate
    Tert.Activate
    Range("E5").Select
    ActiveSheet.Paste
    Range("F5").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "0"
    Range("B5:E5").Select
    Range("E5").Activate
    Selection.NumberFormat = "0.00"
    With ActiveWindow
        .Top = 9.25
        .Left = 233.5
    End With
    Range("G10").Select
    With ActiveWindow
        .Top = 16
        .Left = -222.5
    End With
    Seco.Activate
    ActiveWindow.Close ([SaveChanges=True])
    Application.Wait (Now + TimeValue("0:00:2"))
    Tert.Activate

    ActiveWindow.Close ([SaveChanges=True])
    ActiveWindow.WindowState = xlNormal
        Range("A1:B1").Select
    Selection.Delete Shift:=xlUp
    Range("G9").Select

End Sub

Et comme vous le voyez a la fin j'ai pris soin de mettre ActiveWindow.Close ([SaveChanges=True])

mais malgré cela il me demande toujours si je veux enregistrer les modifications ... que faire?

Le 12/09/2012 à 15:09

Bonjour AquHydro,

Pour éviter qu'il te pose des questions :

Application.DisplayAlerts=False
 ActiveWindow.Close ([SaveChanges=True])
Application.DisplayAlerts=True

Surtout pense bien à le réactiver!

Et ton titre n'est pas très explicite...

Le 12/09/2012 à 15:12

Désolé pour le titre j'avais d'autres question à posé auquelles j'ai répond tout seul !

Pour merci pour la réponse je vais l'essayer tout de suite

Rechercher des sujets similaires à "sauver quitter vbs boite dial"