Une macro complémentaire est installée sur plusieurs postes dans le
repertoire suivants de chaque utilisateurs :
C:\Documents and Settings\Utilisateur\Application Data\Microsoft\Excel\XLSTART
Sur un serveur la dernière version du fichier de la macro xla est disponible
dans un repertoire defini.
Est-il possible de faire un test pour que tous les x jours à chaque
ouverture de Excel la macro complémentaire qui est sur le poste utilisateur
vérifie si la macro sur le serveur est plus récente et affiche un message
d'information pour remplacer la macro par exemple.
Je ne sais pense pas que la macro puisse être remplacé automatiquement quand
Excel est ouvert et que la macro complémentaire est actif dés l'ouverture.
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
Esox38
Bonsoir,
J'ai écris ce code mais je rencontre des problèmes avec les dates :
Dim datefichiersurposte As Date Dim datefichiersurserveur As Date
Sub testversion() datefichiersurposte = CDate(Format(FileDateTime(Path & "" & ThisWorkbook.Name), "dd/mm/yyyy")) Debug.Print datefichiersurposte datefichiersurserveur = CDate(Format(FileDateTime("C:Documents and SettingsxxxxMes documents" & ThisWorkbook.Name), "dd/mm/yyyy")) Debug.Print datefichiersurserveur If CDate(Format(datefichiersurserveur, "dd/mm/yyy")) > CDate(Format(datefichiersurposte, "dd/mm/yyy")) Then MsgBox ("Il existe une nouvelle version de la macro complémentaire :" & ThisWorkbook.Name) End If End Sub
Le debug print m'affiche : 06/02/2007 Útefichiersurposte 11/09/2006Útefichiersurserveur Je ne comprend pas le 11/09/2006 est une date inférieur au 06/02/2007 et bien le message s'affiche.
Avez vous une solution? Merci
-- Esox38
Bonsoir,
Une macro complémentaire est installée sur plusieurs postes dans le repertoire suivants de chaque utilisateurs : C:Documents and SettingsUtilisateurApplication DataMicrosoftExcelXLSTART
Sur un serveur la dernière version du fichier de la macro xla est disponible dans un repertoire defini.
Est-il possible de faire un test pour que tous les x jours à chaque ouverture de Excel la macro complémentaire qui est sur le poste utilisateur vérifie si la macro sur le serveur est plus récente et affiche un message d'information pour remplacer la macro par exemple.
Je ne sais pense pas que la macro puisse être remplacé automatiquement quand Excel est ouvert et que la macro complémentaire est actif dés l'ouverture.
Par avance merci pour vos idées.
Cordialement -- Esox38
Bonsoir,
J'ai écris ce code mais je rencontre des problèmes avec les dates :
Dim datefichiersurposte As Date
Dim datefichiersurserveur As Date
Sub testversion()
datefichiersurposte = CDate(Format(FileDateTime(Path & "" &
ThisWorkbook.Name), "dd/mm/yyyy"))
Debug.Print datefichiersurposte
datefichiersurserveur = CDate(Format(FileDateTime("C:Documents and
SettingsxxxxMes documents" & ThisWorkbook.Name), "dd/mm/yyyy"))
Debug.Print datefichiersurserveur
If CDate(Format(datefichiersurserveur, "dd/mm/yyy")) >
CDate(Format(datefichiersurposte, "dd/mm/yyy")) Then
MsgBox ("Il existe une nouvelle version de la macro complémentaire :" &
ThisWorkbook.Name)
End If
End Sub
Le debug print m'affiche :
06/02/2007 Útefichiersurposte
11/09/2006Útefichiersurserveur
Je ne comprend pas le 11/09/2006 est une date inférieur au 06/02/2007 et
bien le message s'affiche.
Avez vous une solution?
Merci
--
Esox38
Bonsoir,
Une macro complémentaire est installée sur plusieurs postes dans le
repertoire suivants de chaque utilisateurs :
C:Documents and SettingsUtilisateurApplication DataMicrosoftExcelXLSTART
Sur un serveur la dernière version du fichier de la macro xla est disponible
dans un repertoire defini.
Est-il possible de faire un test pour que tous les x jours à chaque
ouverture de Excel la macro complémentaire qui est sur le poste utilisateur
vérifie si la macro sur le serveur est plus récente et affiche un message
d'information pour remplacer la macro par exemple.
Je ne sais pense pas que la macro puisse être remplacé automatiquement quand
Excel est ouvert et que la macro complémentaire est actif dés l'ouverture.
J'ai écris ce code mais je rencontre des problèmes avec les dates :
Dim datefichiersurposte As Date Dim datefichiersurserveur As Date
Sub testversion() datefichiersurposte = CDate(Format(FileDateTime(Path & "" & ThisWorkbook.Name), "dd/mm/yyyy")) Debug.Print datefichiersurposte datefichiersurserveur = CDate(Format(FileDateTime("C:Documents and SettingsxxxxMes documents" & ThisWorkbook.Name), "dd/mm/yyyy")) Debug.Print datefichiersurserveur If CDate(Format(datefichiersurserveur, "dd/mm/yyy")) > CDate(Format(datefichiersurposte, "dd/mm/yyy")) Then MsgBox ("Il existe une nouvelle version de la macro complémentaire :" & ThisWorkbook.Name) End If End Sub
Le debug print m'affiche : 06/02/2007 Útefichiersurposte 11/09/2006Útefichiersurserveur Je ne comprend pas le 11/09/2006 est une date inférieur au 06/02/2007 et bien le message s'affiche.
Avez vous une solution? Merci
-- Esox38
Bonsoir,
Une macro complémentaire est installée sur plusieurs postes dans le repertoire suivants de chaque utilisateurs : C:Documents and SettingsUtilisateurApplication DataMicrosoftExcelXLSTART
Sur un serveur la dernière version du fichier de la macro xla est disponible dans un repertoire defini.
Est-il possible de faire un test pour que tous les x jours à chaque ouverture de Excel la macro complémentaire qui est sur le poste utilisateur vérifie si la macro sur le serveur est plus récente et affiche un message d'information pour remplacer la macro par exemple.
Je ne sais pense pas que la macro puisse être remplacé automatiquement quand Excel est ouvert et que la macro complémentaire est actif dés l'ouverture.
Par avance merci pour vos idées.
Cordialement -- Esox38
MichDenis
Ceci devrait être suffisant :
FileDateTime retourne la date au moment du dernier enregistrement du fichier.
'------------------------ Dim DateFichierSurPoste As Date Dim DateFichierSurServeur As Date
If DateFichierSurPoste < DateFichierSurServeur Then MsgBox "Le fichier sur le poste est plus ancien." End If '-------------------------------
"Esox38" a écrit dans le message de news:
Bonsoir,
J'ai écris ce code mais je rencontre des problèmes avec les dates :
Dim datefichiersurposte As Date Dim datefichiersurserveur As Date
Sub testversion() datefichiersurposte = CDate(Format(FileDateTime(Path & "" & ThisWorkbook.Name), "dd/mm/yyyy")) Debug.Print datefichiersurposte datefichiersurserveur = CDate(Format(FileDateTime("C:Documents and SettingsxxxxMes documents" & ThisWorkbook.Name), "dd/mm/yyyy")) Debug.Print datefichiersurserveur If CDate(Format(datefichiersurserveur, "dd/mm/yyy")) > CDate(Format(datefichiersurposte, "dd/mm/yyy")) Then MsgBox ("Il existe une nouvelle version de la macro complémentaire :" & ThisWorkbook.Name) End If End Sub
Le debug print m'affiche : 06/02/2007 Útefichiersurposte 11/09/2006Útefichiersurserveur Je ne comprend pas le 11/09/2006 est une date inférieur au 06/02/2007 et bien le message s'affiche.
Avez vous une solution? Merci
-- Esox38
Bonsoir,
Une macro complémentaire est installée sur plusieurs postes dans le repertoire suivants de chaque utilisateurs : C:Documents and SettingsUtilisateurApplication DataMicrosoftExcelXLSTART
Sur un serveur la dernière version du fichier de la macro xla est disponible dans un repertoire defini.
Est-il possible de faire un test pour que tous les x jours à chaque ouverture de Excel la macro complémentaire qui est sur le poste utilisateur vérifie si la macro sur le serveur est plus récente et affiche un message d'information pour remplacer la macro par exemple.
Je ne sais pense pas que la macro puisse être remplacé automatiquement quand Excel est ouvert et que la macro complémentaire est actif dés l'ouverture.
Par avance merci pour vos idées.
Cordialement -- Esox38
Ceci devrait être suffisant :
FileDateTime retourne la date au moment du dernier enregistrement du fichier.
'------------------------
Dim DateFichierSurPoste As Date
Dim DateFichierSurServeur As Date
If DateFichierSurPoste < DateFichierSurServeur Then
MsgBox "Le fichier sur le poste est plus ancien."
End If
'-------------------------------
"Esox38" <Esox38@discussions.microsoft.com> a écrit dans le message de news:
F1FBF71D-0B73-478C-92F6-EDF75342D4AD@microsoft.com...
Bonsoir,
J'ai écris ce code mais je rencontre des problèmes avec les dates :
Dim datefichiersurposte As Date
Dim datefichiersurserveur As Date
Sub testversion()
datefichiersurposte = CDate(Format(FileDateTime(Path & "" &
ThisWorkbook.Name), "dd/mm/yyyy"))
Debug.Print datefichiersurposte
datefichiersurserveur = CDate(Format(FileDateTime("C:Documents and
SettingsxxxxMes documents" & ThisWorkbook.Name), "dd/mm/yyyy"))
Debug.Print datefichiersurserveur
If CDate(Format(datefichiersurserveur, "dd/mm/yyy")) >
CDate(Format(datefichiersurposte, "dd/mm/yyy")) Then
MsgBox ("Il existe une nouvelle version de la macro complémentaire :" &
ThisWorkbook.Name)
End If
End Sub
Le debug print m'affiche :
06/02/2007 Útefichiersurposte
11/09/2006Útefichiersurserveur
Je ne comprend pas le 11/09/2006 est une date inférieur au 06/02/2007 et
bien le message s'affiche.
Avez vous une solution?
Merci
--
Esox38
Bonsoir,
Une macro complémentaire est installée sur plusieurs postes dans le
repertoire suivants de chaque utilisateurs :
C:Documents and SettingsUtilisateurApplication DataMicrosoftExcelXLSTART
Sur un serveur la dernière version du fichier de la macro xla est disponible
dans un repertoire defini.
Est-il possible de faire un test pour que tous les x jours à chaque
ouverture de Excel la macro complémentaire qui est sur le poste utilisateur
vérifie si la macro sur le serveur est plus récente et affiche un message
d'information pour remplacer la macro par exemple.
Je ne sais pense pas que la macro puisse être remplacé automatiquement quand
Excel est ouvert et que la macro complémentaire est actif dés l'ouverture.
If DateFichierSurPoste < DateFichierSurServeur Then MsgBox "Le fichier sur le poste est plus ancien." End If '-------------------------------
"Esox38" a écrit dans le message de news:
Bonsoir,
J'ai écris ce code mais je rencontre des problèmes avec les dates :
Dim datefichiersurposte As Date Dim datefichiersurserveur As Date
Sub testversion() datefichiersurposte = CDate(Format(FileDateTime(Path & "" & ThisWorkbook.Name), "dd/mm/yyyy")) Debug.Print datefichiersurposte datefichiersurserveur = CDate(Format(FileDateTime("C:Documents and SettingsxxxxMes documents" & ThisWorkbook.Name), "dd/mm/yyyy")) Debug.Print datefichiersurserveur If CDate(Format(datefichiersurserveur, "dd/mm/yyy")) > CDate(Format(datefichiersurposte, "dd/mm/yyy")) Then MsgBox ("Il existe une nouvelle version de la macro complémentaire :" & ThisWorkbook.Name) End If End Sub
Le debug print m'affiche : 06/02/2007 Útefichiersurposte 11/09/2006Útefichiersurserveur Je ne comprend pas le 11/09/2006 est une date inférieur au 06/02/2007 et bien le message s'affiche.
Avez vous une solution? Merci
-- Esox38
Bonsoir,
Une macro complémentaire est installée sur plusieurs postes dans le repertoire suivants de chaque utilisateurs : C:Documents and SettingsUtilisateurApplication DataMicrosoftExcelXLSTART
Sur un serveur la dernière version du fichier de la macro xla est disponible dans un repertoire defini.
Est-il possible de faire un test pour que tous les x jours à chaque ouverture de Excel la macro complémentaire qui est sur le poste utilisateur vérifie si la macro sur le serveur est plus récente et affiche un message d'information pour remplacer la macro par exemple.
Je ne sais pense pas que la macro puisse être remplacé automatiquement quand Excel est ouvert et que la macro complémentaire est actif dés l'ouverture.
Par avance merci pour vos idées.
Cordialement -- Esox38
Esox38
Bonsoir MichDenis
Merci pour ta réponse, il faut maintenant que je l'adapte dans mon Workbook_Open.
Cordialement -- Esox38
Ceci devrait être suffisant :
FileDateTime retourne la date au moment du dernier enregistrement du fichier.
'------------------------ Dim DateFichierSurPoste As Date Dim DateFichierSurServeur As Date
If DateFichierSurPoste < DateFichierSurServeur Then MsgBox "Le fichier sur le poste est plus ancien." End If '-------------------------------
"Esox38" a écrit dans le message de news:
Bonsoir,
J'ai écris ce code mais je rencontre des problèmes avec les dates :
Dim datefichiersurposte As Date Dim datefichiersurserveur As Date
Sub testversion() datefichiersurposte = CDate(Format(FileDateTime(Path & "" & ThisWorkbook.Name), "dd/mm/yyyy")) Debug.Print datefichiersurposte datefichiersurserveur = CDate(Format(FileDateTime("C:Documents and SettingsxxxxMes documents" & ThisWorkbook.Name), "dd/mm/yyyy")) Debug.Print datefichiersurserveur If CDate(Format(datefichiersurserveur, "dd/mm/yyy")) > CDate(Format(datefichiersurposte, "dd/mm/yyy")) Then MsgBox ("Il existe une nouvelle version de la macro complémentaire :" & ThisWorkbook.Name) End If End Sub
Le debug print m'affiche : 06/02/2007 Útefichiersurposte 11/09/2006Útefichiersurserveur Je ne comprend pas le 11/09/2006 est une date inférieur au 06/02/2007 et bien le message s'affiche.
Avez vous une solution? Merci
-- Esox38
Bonsoir,
Une macro complémentaire est installée sur plusieurs postes dans le repertoire suivants de chaque utilisateurs : C:Documents and SettingsUtilisateurApplication DataMicrosoftExcelXLSTART
Sur un serveur la dernière version du fichier de la macro xla est disponible dans un repertoire defini.
Est-il possible de faire un test pour que tous les x jours à chaque ouverture de Excel la macro complémentaire qui est sur le poste utilisateur vérifie si la macro sur le serveur est plus récente et affiche un message d'information pour remplacer la macro par exemple.
Je ne sais pense pas que la macro puisse être remplacé automatiquement quand Excel est ouvert et que la macro complémentaire est actif dés l'ouverture.
Par avance merci pour vos idées.
Cordialement -- Esox38
Bonsoir MichDenis
Merci pour ta réponse, il faut maintenant que je l'adapte dans mon
Workbook_Open.
Cordialement
--
Esox38
Ceci devrait être suffisant :
FileDateTime retourne la date au moment du dernier enregistrement du fichier.
'------------------------
Dim DateFichierSurPoste As Date
Dim DateFichierSurServeur As Date
If DateFichierSurPoste < DateFichierSurServeur Then
MsgBox "Le fichier sur le poste est plus ancien."
End If
'-------------------------------
"Esox38" <Esox38@discussions.microsoft.com> a écrit dans le message de news:
F1FBF71D-0B73-478C-92F6-EDF75342D4AD@microsoft.com...
Bonsoir,
J'ai écris ce code mais je rencontre des problèmes avec les dates :
Dim datefichiersurposte As Date
Dim datefichiersurserveur As Date
Sub testversion()
datefichiersurposte = CDate(Format(FileDateTime(Path & "" &
ThisWorkbook.Name), "dd/mm/yyyy"))
Debug.Print datefichiersurposte
datefichiersurserveur = CDate(Format(FileDateTime("C:Documents and
SettingsxxxxMes documents" & ThisWorkbook.Name), "dd/mm/yyyy"))
Debug.Print datefichiersurserveur
If CDate(Format(datefichiersurserveur, "dd/mm/yyy")) >
CDate(Format(datefichiersurposte, "dd/mm/yyy")) Then
MsgBox ("Il existe une nouvelle version de la macro complémentaire :" &
ThisWorkbook.Name)
End If
End Sub
Le debug print m'affiche :
06/02/2007 Útefichiersurposte
11/09/2006Útefichiersurserveur
Je ne comprend pas le 11/09/2006 est une date inférieur au 06/02/2007 et
bien le message s'affiche.
Avez vous une solution?
Merci
--
Esox38
Bonsoir,
Une macro complémentaire est installée sur plusieurs postes dans le
repertoire suivants de chaque utilisateurs :
C:Documents and SettingsUtilisateurApplication DataMicrosoftExcelXLSTART
Sur un serveur la dernière version du fichier de la macro xla est disponible
dans un repertoire defini.
Est-il possible de faire un test pour que tous les x jours à chaque
ouverture de Excel la macro complémentaire qui est sur le poste utilisateur
vérifie si la macro sur le serveur est plus récente et affiche un message
d'information pour remplacer la macro par exemple.
Je ne sais pense pas que la macro puisse être remplacé automatiquement quand
Excel est ouvert et que la macro complémentaire est actif dés l'ouverture.
If DateFichierSurPoste < DateFichierSurServeur Then MsgBox "Le fichier sur le poste est plus ancien." End If '-------------------------------
"Esox38" a écrit dans le message de news:
Bonsoir,
J'ai écris ce code mais je rencontre des problèmes avec les dates :
Dim datefichiersurposte As Date Dim datefichiersurserveur As Date
Sub testversion() datefichiersurposte = CDate(Format(FileDateTime(Path & "" & ThisWorkbook.Name), "dd/mm/yyyy")) Debug.Print datefichiersurposte datefichiersurserveur = CDate(Format(FileDateTime("C:Documents and SettingsxxxxMes documents" & ThisWorkbook.Name), "dd/mm/yyyy")) Debug.Print datefichiersurserveur If CDate(Format(datefichiersurserveur, "dd/mm/yyy")) > CDate(Format(datefichiersurposte, "dd/mm/yyy")) Then MsgBox ("Il existe une nouvelle version de la macro complémentaire :" & ThisWorkbook.Name) End If End Sub
Le debug print m'affiche : 06/02/2007 Útefichiersurposte 11/09/2006Útefichiersurserveur Je ne comprend pas le 11/09/2006 est une date inférieur au 06/02/2007 et bien le message s'affiche.
Avez vous une solution? Merci
-- Esox38
Bonsoir,
Une macro complémentaire est installée sur plusieurs postes dans le repertoire suivants de chaque utilisateurs : C:Documents and SettingsUtilisateurApplication DataMicrosoftExcelXLSTART
Sur un serveur la dernière version du fichier de la macro xla est disponible dans un repertoire defini.
Est-il possible de faire un test pour que tous les x jours à chaque ouverture de Excel la macro complémentaire qui est sur le poste utilisateur vérifie si la macro sur le serveur est plus récente et affiche un message d'information pour remplacer la macro par exemple.
Je ne sais pense pas que la macro puisse être remplacé automatiquement quand Excel est ouvert et que la macro complémentaire est actif dés l'ouverture.
