Je rencontre 2 difficultés sous Excel en ce moment , je suis débutan
en VBA:
1-Peux ton "programmer" l'enregistrement d'un fichier Excel tt le
lundi par exemple car en ce moment j'utilise ceci à chaque ouverture d
fichier excel:
Code
-------------------
Public Sub Saveascopy()
Dim strDate As String
Count = Len(ActiveWorkbook.Name)
Name = Left(ActiveWorkbook.Name, Count - 4)
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ThisWorkbook.SaveCopyAs Filename:="C:\Documents\travail\Archive" & strDate & ".xls"
End Sub
-------------------
mais cela représente une fréquence trop élevée de sauvegarde pour me
besoins.Y a til un moyen de comparer la date du jour a un lundi pa
exemple?
2- Peux t on créer un fichier log (txt donc) qui recense tte le
modifications effectuées par l'utilisateur entre l'ouverture et l
fermeture du fichier?
Je crois qu'on peut avoir cela lorsque l'on met le fichier Excel e
shared mais il serait preferable de ne pas le mettre ici!
D'avance merci
Cordialement,
Jang
--
Jang
-----------------------------------------------------------------------
Jango's Profile: http://www.msusenet.com/member.php?userid=210
View this thread: http://www.msusenet.com/t-187052399
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jango
1/ J'ai trouvé la solution avec ce code bon ca dure tout le lundi c'es à dire que si on le ferme et on le re-ouvre le classeur le lundi o obtient différents enregistrements.
Code ------------------- Public Sub Saveascopy() Dim strDate As String IF WEEKDAY(NOW, VBMONDAY) = "1" THE Count = Len(ActiveWorkbook.Name) Name = Left(ActiveWorkbook.Name, Count - 4) strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss") ThisWorkbook.SaveCopyAs Filename:="C:DocumentstravailarchiveDoc" & strDate & ".xls" End If End Su -------------------
2/ je vais changer la methode en fait je ne vais pas enregistrer tt l suivi mais passer par une saisie par formulaire moins risqué et e mettant la date de saisie dans un champ
Merc
-- Jang ----------------------------------------------------------------------- Jango's Profile: http://www.msusenet.com/member.php?userid!0 View this thread: http://www.msusenet.com/t-187052399
1/ J'ai trouvé la solution avec ce code bon ca dure tout le lundi c'es
à dire que si on le ferme et on le re-ouvre le classeur le lundi o
obtient différents enregistrements.
Code
-------------------
Public Sub Saveascopy()
Dim strDate As String
IF WEEKDAY(NOW, VBMONDAY) = "1" THE
Count = Len(ActiveWorkbook.Name)
Name = Left(ActiveWorkbook.Name, Count - 4)
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ThisWorkbook.SaveCopyAs Filename:="C:DocumentstravailarchiveDoc" & strDate & ".xls"
End If
End Su
-------------------
2/ je vais changer la methode en fait je ne vais pas enregistrer tt l
suivi mais passer par une saisie par formulaire moins risqué et e
mettant la date de saisie dans un champ
Merc
--
Jang
-----------------------------------------------------------------------
Jango's Profile: http://www.msusenet.com/member.php?userid!0
View this thread: http://www.msusenet.com/t-187052399
1/ J'ai trouvé la solution avec ce code bon ca dure tout le lundi c'es à dire que si on le ferme et on le re-ouvre le classeur le lundi o obtient différents enregistrements.
Code ------------------- Public Sub Saveascopy() Dim strDate As String IF WEEKDAY(NOW, VBMONDAY) = "1" THE Count = Len(ActiveWorkbook.Name) Name = Left(ActiveWorkbook.Name, Count - 4) strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss") ThisWorkbook.SaveCopyAs Filename:="C:DocumentstravailarchiveDoc" & strDate & ".xls" End If End Su -------------------
2/ je vais changer la methode en fait je ne vais pas enregistrer tt l suivi mais passer par une saisie par formulaire moins risqué et e mettant la date de saisie dans un champ
Merc
-- Jang ----------------------------------------------------------------------- Jango's Profile: http://www.msusenet.com/member.php?userid!0 View this thread: http://www.msusenet.com/t-187052399
