Annuler sauvegarde ficheir modifié

Résolu
Signaler
Messages postés
90
Date d'inscription
vendredi 13 décembre 2002
Statut
Membre
Dernière intervention
12 décembre 2007
-
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
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 :)

5 réponses

Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
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
Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
11
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)
Messages postés
90
Date d'inscription
vendredi 13 décembre 2002
Statut
Membre
Dernière intervention
12 décembre 2007

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 :)
Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
11
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)
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
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