Durée d'utilisation limité mais sous condition

job75

XLDnaute Barbatruc

• 10 Septembre 2014

• #31

Re : Durée d'utilisation limité mais sous condition

Re,

Bien entendu, pour toutes les solutions, la feuille Feuil1 ne doit pas être protégée.

Ou alors déverrouiller la cellule Feuil1!A1.

A+

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 10 Septembre 2014

• #32

Re : Durée d'utilisation limité mais sous condition

Re
grazie MAITRE
A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Septembre 2014

• #33

Re : Durée d'utilisation limité mais sous condition

Re,

Et bien entendu, s'il y a une macro Worksheet_Change en Feuil1, tu te débrouilles Ilino.

T'es un grand garçon.

A+

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 10 Septembre 2014

• #34

Re : Durée d'utilisation limité mais sous condition

Re
grazie
maitre
mais si j'ai des formule dans la cellule A1 pour avoir une date ??
ça marche pas WHY?
GRAZIE

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Septembre 2014

• #35

Re : Durée d'utilisation limité mais sous condition

Ilino à dit:

mais si j'ai des formule dans la cellule A1 pour avoir une date ??
ça marche pas WHY?

Cliquez pour agrandir...

Je te laisse chercher, prends ton temps, on n'est pas pressé.

A+

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 10 Septembre 2014

• #36

Re : Durée d'utilisation limité mais sous condition

Re
oky maitre( qui vas doucement vas surement et qui vas surment vas loin)😉
GRAZIE MAITRE

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 10 Septembre 2014

• #37

Re : Durée d'utilisation limité mais sous condition

Re
Job , j'ai trouvé des difficultés : pour quoi le fichier original est suprimer du répertoire, je souhaite l'avoir mais sans code VBA mais le vrai est caché dans le repertoire "secret"
grazie

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Septembre 2014

• #38

Re : Durée d'utilisation limité mais sous condition

Re,

Ta question n'a aucun sens Ilino, je fatigue et moi aussi je t'abandonne.

Hier soir j'ai revu le film "Le train sifflera trois fois" :

Le train sifflera trois fois — Wikipédia

A+

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 10 Septembre 2014

• #39

Re : Durée d'utilisation limité mais sous condition

Re,
oky ne te fache pas MAITRE (arrete le train stp🙁)

Code:

Kill fn 'supprime le fichier du dossier courant

chaque fois la date today depasse la date ... je ne trouve pas le fichier dans le répertoire
please ???
a+
EDITE : c'etait en 1952 maintenant on parle de TGV😱

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 11 Septembre 2014

• #40

Re : Durée d'utilisation limité mais sous condition

Re Job
quand je rouvre le fichier (sans macros) il le renome par exemple l'original xxxxx V1 par xxxxx V11??
A+

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 11 Septembre 2014

• #41

Re : Durée d'utilisation limité mais sous condition

Re
et si je re open le fichier du dossier secret il me demande le MDP : pour .xlsm et .xlsx

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Septembre 2014

• #42

Re : Durée d'utilisation limité mais sous condition

Bonsoir Ilino,

Je t'ai envoyé balader un peu vite, navré cher Ilino.

C'est de ma faute, tes problèmes avec la cellule A1 viennent du fait que j'y entre la valeur 3000000.

Il faut qu'elle soit toujours une date.

Donc il faut remplacer 3000000, qui n'est pas une date, par 2900000, qui correspond à une date :

Code:

Private Sub Workbook_Open()
Dim c As Range, chemin$, fn$
Set c = Feuil1.[A1] 'CodeName à adapter
If Date >= c Then
  chemin = "C:\Dossier secret\" 'à adapter
  fn = Me.FullName
  Application.DisplayAlerts = False
  On Error Resume Next
  c = 2900000
  Me.SaveAs chemin & Me.Name, Password:="mdp" 'mot de passe à adapter
  Kill fn 'supprime le fichier du dossier courant
  Me.SaveAs Left(fn, Len(fn) - 5), 51, Password:="" 'fichier .xlsx
  Workbooks.Open Left(fn, Len(fn) - 5) & ".xlsx" 'rouvre le fichier
End If
End Sub

Ou bien si tu utilises la solution du post #20 :

Code:

Private Sub Workbook_Open()
If Date >= Feuil1.[A1] Then
  Dim fn$
  Feuil1.[A1] = 2900000
  fn = Me.FullName
  Application.DisplayAlerts = False
  Me.SaveAs fn, Password:="mdp" 'mot de passe à adapter
  Workbooks.Open fn 'rouvre le fichier
End If
End Sub

Encore désolé et bonne fin de soirée.

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 11 Septembre 2014

• #43

Re : Durée d'utilisation limité mais sous condition

RE
tu es désolé maitre😱, tu es mon MAITRE
A+

 

Dernière édition: 12 Septembre 2014

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 11 Septembre 2014

• #44

Re : Durée d'utilisation limité mais sous condition

Re
et les deux post 40 et 41,,??
A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Septembre 2014

• #45

Re : Durée d'utilisation limité mais sous condition

Bonjour Ilino,

Pour le post #40 ça ne peut pas venir de ma macro, le nom n'y est pas modifié, seule l'extension l'est.

Pour le post #41, c'est normal que le mdp soit demandé pour le fichier .xlsm.

Avec 2900000 en A1 il n'y aura pas de fichier .xlsx dans le "Dossier secret".

De plus le fichier .xlsx n'est jamais protégé puisqu'il est créé par :

Code:

Me.SaveAs Left(fn, Len(fn) - 5), 51, Password:="" 'fichier .xlsx

Si tu as encore des soucis dépose ton fichier.

Bonne journée.

 

Vote positif 0 Vote négatif