Données non sauvegardées
Bonjour,
J'ouvre un fichier Excel où des données sont présentes (fichier monté par un informaticien).
Je complète par de nouvelles données
Je sauvegarde.
Je ferme.
En ouvrant à nouveau le fichier : mes données ont disparues (les originales restent).
Comment puis-je faire pour que les miennes soient également sauvegardées ?
Vous remerciant
Excel 2013
bonjour,
le fichier que tu ouvres n'est peut-être pas celui que tu as sauvé (vérifie si tu ne l'as pas sauvé à un endroit différent)
Bonjour,
Merci pour ta réponse
J'ai vérifié et je suis sûr de moi
bonjour,
ce fichier contient-il des macros ?
Oui, mais je ne suis capable de les comprendre.
Voici le copier/coller :
Sub ValidationALL()
'Verification du remplissage du tableau
If Sheets("Blank").Range("C15") = "Vrai" Then
GoTo c19
Else
MsgBox "Tous les renseignements doivent être saisis"
GoTo fin
End If
c19:
'Verification du remplissage du tableau
If Sheets("Blank").Range("C19") = "Vrai" Then
GoTo c7
Else
MsgBox "Tous les renseignements doivent être saisis"
GoTo fin
End If
c7:
'Verification plus du tier
If Sheets("Blank").Range("C7") > 0.33 Then
MsgBox "Les activités non-lucratives ne sont pas prépondérantes, la sectorisation est donc impossible et l'ensemble des activités sera imposée"
GoTo fin
Else
GoTo suite
End If
suite:
'Verification Condition moins de 60540
If Sheets("Blank").Range("C4") < 60540 Then
MsgBox "La franchise des activités lucratives accessoires s'applique obligatoirement : la mutuelle échappe aux impôts commerciaux"
GoTo fin
Else
GoTo liste1
End If
liste1:
'Verification Liste deroulante
If Sheets("Renseignements").Range("D29") = "" Then
MsgBox "Vous n'avez pas renseigné le choix concernant la Mutuelle d'Alsace-Moselle"
GoTo fin
Else
GoTo liste4
End If
liste2:
'Verification Liste deroulante
'If Sheets("Renseignements").Range("D26") = "" Then
' MsgBox "Vous n'avez pas renseigné le choix concernant la présence d'un contrat d'apprentissage dans un activité lucrative"
' GoTo fin
'Else
'GoTo liste3
'End If
'liste3:
'Verification Liste deroulante
'If Sheets("Renseignements").Range("D27") = "" Then
' MsgBox "Vous n'avez pas renseigné le choix concernant la présence d'un contrat d'apprentissage dans un activité lucrative ou non"
' GoTo fin
'Else
'GoTo liste4
'End If
liste4:
'Verification Liste deroulante
If Sheets("Renseignements").Range("D30") = "" Then
MsgBox "Vous n'avez pas renseigné le choix concernant la contribution supplémentaire à l'apprentissage due"
GoTo fin
Else
Sheets("Resultats").Select
End If
fin:
End Sub
'Sub ValidationTBX()
'Sheets("Blank").Select
'If Range("C15") = "Faux" Then
'MsgBox "Tous les renseignements doivent être saisis"
'Else
'GoTo fin
'End If
'fin:
'End Sub
'Sub ValidationTBXBIS()
'Sheets("Blank").Select
'If Range("C19") = "Faux" Then
'MsgBox "Tous les renseignements doivent être saisis"
'Else
'GoTo fin
'End If
'fin:
'End Sub
Sub Conclusion()
Sheets("Resultats").Select
If Range("B20") = Range("C20") Then
Sheets("Conclusion").Select
Worksheets("Conclusion").Range("A3").Value = "Les deux solutions sont équivalentes"
GoTo fin
Else
Sheets("Resultats").Select
If Range("B20") < Range("C20") Then
Sheets("Conclusion").Select
Worksheets("Conclusion").Range("A3").Value = "Sectoriser les activités lucratives"
GoTo fin
Else
Sheets("Conclusion").Select
Worksheets("Conclusion").Range("A3").Value = "Ne pas effectuer de sectorisation"
End If
End If
fin:
End Sub
'Affichage d un message quand il y a moins de 250 salaries au total
Sub nb_salarie()
If Sheets("Blank").Range("A26") < 250 Then
Worksheets("Renseignements").Range("D30").Value = "Non"
Worksheets("Renseignements").Range("E30").Value = "La CSA est due uniquement par les entités d'au moins 250 salariés"
Else
Worksheets("Renseignements").Range("E30").Value = ""
End If
End Sub
'Sub test()
'If Sheets("Blank").Range("A26") > 0 And Sheets("Blank").Range("A26") < 250 And Worksheets("Renseignements").Range("D26").Select = "Non" Then
'MsgBox "e"
'End If
'End Sub
'Affichage d un message quand il n y a pas de contrat d alternance
'Sub rsa()
'If Range("D30") = "Non" Then
' Worksheets("Renseignements").Range("D31:D32").ClearContents
' Worksheets("Renseignements").Range("E31").Value = "Aucun contrat d'apprentissage dans une activité, qu'elle soit lucrative ou non"
' Worksheets("Renseignements").Range("E32").Value = "Aucun contrat d'apprentissage dans une activité, qu'elle soit lucrative ou non"
'Else
' Worksheets("Renseignements").Range("E31").Value = ""
' Worksheets("Renseignements").Range("E32").Value = ""
'End If
'End Sub
'Vider le TBX
Sub vider()
If MsgBox("Etes-vous sûr de vouloir réinitialiser la page ?", vbYesNo, "Demande de confirmation") = vbYes Then
Worksheets("Renseignements").Range("B6:B24").ClearContents
Worksheets("Renseignements").Range("C6:C24").ClearContents
Worksheets("Renseignements").Range("D6:D24").ClearContents
Worksheets("Renseignements").Range("E6:E24").ClearContents
Worksheets("Renseignements").Range("F6:F24").ClearContents
Worksheets("Renseignements").Range("G6:G24").ClearContents
Worksheets("Renseignements").Range("H6:H24").ClearContents
Worksheets("Renseignements").Range("I6:I24").ClearContents
Worksheets("Renseignements").Range("D29:D32").ClearContents
Worksheets("Initial").Range("A2").MergeArea.ClearContents
Worksheets("Initial").Range("A5").MergeArea.ClearContents
'Worksheets("Renseignements").Range("D29:D30").ClearContents
Worksheets("Renseignements").Range("B16:E16").Value = 0
Worksheets("Renseignements").Range("F14:I14").Value = 0
MsgBox "Tout a été correctement réinitialisé !"
Sheets("Initial").Select
End If
End Sub
Sub ValidationINI()
'Verification du remplissage des cellules
If Sheets("Initial").Range("A2") > 0 Then
GoTo a5
Else
MsgBox "Tous les renseignements doivent être saisis"
GoTo fin
End If
a5:
'Verification du remplissage des cellules
If Sheets("Initial").Range("A5") > 0 Then
Sheets("Renseignements").Select
Else
MsgBox "Tous les renseignements doivent être saisis"
GoTo fin
End If
fin:
End Sub
Sub NewSimul()
If MsgBox("Cette action va réinitialiser les données saisies. Etes-vous sûr de vouloir faire cela ?", vbYesNo, "Demande de confirmation") = vbYes Then
Worksheets("Renseignements").Range("B6:B24").ClearContents
Worksheets("Renseignements").Range("C6:C24").ClearContents
Worksheets("Renseignements").Range("D6:D24").ClearContents
Worksheets("Renseignements").Range("E6:E24").ClearContents
Worksheets("Renseignements").Range("F6:F24").ClearContents
Worksheets("Renseignements").Range("G6:G24").ClearContents
Worksheets("Renseignements").Range("H6:H24").ClearContents
Worksheets("Renseignements").Range("I6:I24").ClearContents
Worksheets("Renseignements").Range("D29:D32").ClearContents
Worksheets("Initial").Range("A2").MergeArea.ClearContents
Worksheets("Initial").Range("A5").MergeArea.ClearContents
Worksheets("Renseignements").Range("B16:E16").Value = 0
Worksheets("Renseignements").Range("F14:I14").Value = 0
Sheets("Simulation").Select
End If
End Sub
re-bonjour,
peux-tu mettre ton fichier ?
Quand j'ai mis le fichier en PJ et que je l'ai réouvert par ce biais, une fenêtre de débogage est apparue et mes données sont réapparues.
C'est bon, donc.
Merci bien !