Annuler sauvegarde ficheir modifiéRésolu

Question

Bonjour à tous, j'aurai encore besoin de vos lumières.

Suite à l'aide d'un de vos membre (Drikce06), j'ai un soucis concernant un code, et qui sera trés rapide à regler :)

Je souhaiterai trouver comment inserer dans uen macro que je refuse de sauvegarde les modifications qui ont été apportéesau fichier ouvert actuellement.

En effet, je ne fais que des copier/coller, et je sais aps pourquoi, losque je copie le contenu d'un fichier, il me dit de sauver des modifications ... et comme j'utilise des boucles, ca repete le message plusieures fois, et j'aimerai lui dire de ne pas m'afficher le message, et d'annuler l'enregistrement des modifications automatiquement.

J'ai essayé le ThisWorkBook.save = false
ThisWorkBook.close, mais il ferme pas le bon fichier xls :s

Merci d'avance :)

Renfield · Accepted Answer

tout est ecrit dans l'explorateur d'objets.....
F2 => 

Sub Close([SaveChanges], [Filename], [RouteWorkbook])
    Membre de Excel.Workbook

donc :
ThisWorkBook.close False

ou 

ThisWorkBook.close  SaveChanges:=False 

si tu veux que ca te parle

Renfield
Admin CodeS-SourceS- MVP Visual Basic

drikce06 · Answer

Le bout de code en question :

Private Sub cmd_executer_copies_Click()
annee = Range("B2")
mois = Range("C2")If mois "01" Or mois "03" Or mois = "05" Or mois = "07" Or mois = "08" Or mois = "10" Or mois = "12" Then
jours = 31
ElseIf mois = "02" Then    If annee Mod 100 0 And annee Mod 400 0 Then
        jours = 29
    ElseIf annee Mod 100 <> 0 And annee Mod 4 = 0 Then
        jours = 29
    Else: jours = 28
    End If
Else
    jours = 30
End If
For i = 1 To jours
    If i < 10 Then
        j = "0" & i
    Else
        j = i
    End If
    ChDir "Z:\Opl_cs" & annee & "\Reports\Comparison_Markets_New" & annee & "-" & mois & ""
    Workbooks.Open Filename:= _
    "Z:\Opl_cs" & annee & "\Reports\Comparison_Markets_New" & annee & "-" & mois & "\Comp_Mark_" & annee & mois & j & ".XLS"
    ActiveWorkbook.Sheets("Données").Select
    ActiveWorkbook.Sheets("Données").Range("A1:A26,H1:K26").Select
    Selection.Copy
    Windows("Copies.xls").Activate
    ActiveWorkbook.Sheets("Feuil2").Select
   ActiveWorkbook.Sheets("Feuil2").Range("A" & i * 26 + 2).Select
   ActiveWorkbook.Sheets("Feuil2").Paste Destination:=ActiveWorkbook.Sheets("Feuil2").Range("A" & i * 26 + 2).
    Windows("Comp_Mark_" & annee & mois & j & ".XLS").Close
Next i
End Sub

 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

BiGOuF · Answer

Je vous remercie.
L'aide ici plante assez souvent, donc, j'ai juste eu le courage de chercher 6-7 fois et j'me suis perdu dans le MSDN online.
Merci encore, et désolé du dérangement :)

drikce06 · Answer

Pourquoi tu mets ça:

ChDir "Z:\Opl_cs" & annee & "\Reports\Comparison_Markets_New" & annee & "-" & mois & ""

Cela suffit: (pas besoin de & "" à la fin ça sert à rien) et tu devrai mettre une condition

If ChDir "Z:\Opl_cs" & annee & "\Reports\Comparison_Markets_New" & annee & "-" & mois Then

Else

Msgbox("Le fichier n'existe pas")

End If

 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

Renfield · Answer

je te parle pas de l'aide, mais de l'explorateur d'objet....
(touche F2)

y'a plein de truc a y voir

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Annuler sauvegarde ficheir modifié

5 réponses

Votre réponse

Discussions similaires