Annuler toutes les modifs d'un fichier

[Franck]

Bonjour le forum , bonjour a tous

Mon probleme est tres simple et contenu dans le titre

un CommandButton doit annuler toutes les modifications effectuées sur un fichier XLS depuis son dernier enregistrement

Merci de votre aide

Franck

 

[Franck]

BOF !

Ca interesse pas grand monde cette affaire la !!

Franck

 

[jeanpierre]

Bonsoir Franck, le Forum,

Pour satisfaire à ton petit souci il faudrait, me semble t'il, écrire une procédure qui récupèrait toutes les modifications effectuées. Alors là, je n'en suis pas capable. Mais comme Xld et Vba ne sont pas du genre impossible... Pourquoi pas...
Pour moi c'est impossible, mais va savoir avec les grands génies qui se promènent sur ce Forum............

Bonne soirée et bonne Pâques en tous cas

 

[Franck]

Salut jeanpierre et salut a tous

Moi j'ai pensé entrer mon fichier dans une variable public pour pouvoir la recuperer ensuite mais ca me parait un peu lourd

et pour tout dire je sais pas comment faire !!!

A+ Franck

 

[CBernardT]

Bonjour franck et Jean pierre,

Sans être un génie en VBA, une macro qui réouvre le fichier redonne un classeur vide des dernières modifications.

Sub ReouvertureFichier()
Dim Chemin As String, Fichier As String

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Chemin = ThisWorkbook.Path
Fichier = ThisWorkbook.Name
Workbooks.Open Chemin & '\\' & Fichier (Mettre un antislash entre les '')
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Cordialement

CBernardT

Message édité par: CBernardT, à: 27/03/2005 13:24

 

[chris]

Bonjour
Il suffit de fermer le fichier puis le réouvrir. Code VBA à placer dans le classeur perso ou un xla.

 

[Franck]

Merci chris

Merci de ta participation mais tu auras compris que si je pose cette question c'est pour que mon code s'execute rappidement ce qui n'est pas le cas d'un enregistrement ni d'une ouverture de fichier

a+Franck

 

[Franck]

Salut le forum

Merci a tous pour vos efforts mais je pense qu'il faut peut etre que je recadre ma question -

Voila ..
un fichier sur lequel je travail nomé NV3.xls est ouvert et actif de plus il contient le code

un autre fichier nommé BDtexte.xls est ouvert et masqué
ce dernier fichier est utilisé tout au long de mon appli pour divers USF
Il est amené a etre modifié car il sert de base de données

Une USF peut etre amenée a modifier la BD mais une fois cette modif réalisées je voudrai pouvoir faire marche arriere (via un boutton annuler par exemple) et c'est ce boutton qui pose probleme , il me faut pouvoir remettre la BD dans son etat d'origine au moment de son dernier enregistrement

Je ne peu pas vous transmetre mon fichier car il est carrement trop lourd

Merci a tous et bon courage (c'est pas simple)

a+ Franck

 

[chris]

Re
Le 'undo' d'Excel est limité, ne prend généralement pas en compte ce qu'effectuent les macros et est commun aux classeus ouverts.
Il me parait donc difficile de trouver un moyen simple et efficace de revenir en arrière.
Ma solution n'enregistre pas mais le temps d'ouverture peut effectivement être perceptible.

 

[Franck]

Bonjour a tous

Voila j'ai trouvé ça
If Not ActiveWorkbook.Saved Then
MsgBox 'This workbook contains unsaved changes.'
End If
mais!!
Saved prend la valeur False des que je masque ma fenetre
ca fait chh..aque fois la meme chose

Au secour
A + Franck