XL 2016 VBA

[Thierry K]

Bonjour, je suis à la recherche d'aide. J'ai souvent des clients qui me demande d'automatiser certaines choses sur Excel, mais lorsque je finis ils ont dû mal à me rénumener. Donc, j'ai décidé de me créer une version d'évaluation pour 30 jours. Mais je ne sais pas comment m'y prendre.

 

[Lone-wolf]

Bonjour Thierry et bienvenue sur XLD

Bien que nous soyons pas énumerer ... ouuuupps rémunerer

Un essai avec ceci

Sub Evaluation()
Dim deb As Date
   'En AA1, tu inscrit une date et tu colorie le texte en blanc
    deb = [AA1] + 30
    If Date = deb Then
        MsgBox "Le temps d'essai est arrivé à expiration", , "Essai terminé"
        Application.DisplayAlerts = False
        ThisWorkbook.Save
        Application.Quit
    End If
End Sub

Après, savoir ou la personne enregistre le fichier pour pouvoir le supprimer, pour moi c'est une autre histoire.

 

[Thierry K]

Bonjour Thierry et bienvenue sur XLD

Bien que nous soyons pas énumerer ... ouuuupps rémunerer

Un essai avec ceci

Sub Evaluation()
Dim deb As Date
   'En AA1, tu inscrit une date et tu colorie le texte en blanc
    deb = [AA1] + 30
    If Date = deb Then
        MsgBox "Le temps d'essai est arrivé à expiration", , "Essai terminé"
        Application.DisplayAlerts = False
        ThisWorkbook.Save
        Application.Quit
    End If
End Sub

Après, savoir ou la personne enregistre le fichier pour pouvoir le supprimer, pour moi c'est une autre histoire.

Merci

 

[Staple1600]

Bonsoir le fil, le forum

@Thierry K
Pour infos
1) Il suffit d'ouvrir ton classeur sans activer les macros pour continuer à utiliser le classeur
2) Il suffit de modifier le code VBA (aprés le 1)
Sub Way()
Dim deb As String
deb="Achtung_Baby!"
If Len(deb) Then
'on commente les lignes qui suivent
End if
End Sub
3) Toujours après le 1), ALT+F11 -> CTRL+A-> Barre outils Edition -> Clic sur "Commenter Bloc"

Bref, pas sur que ce soit efficace

Si ce sont des clients, tu as du émettre une facture, non ?
Dans ce cas, en cas d'impayés, direction le contentieux, le tribunal etc...

EDITION: Bonsoir Lone-Wolf

 

[Lone-wolf]

Bonsoir Jean Marie

@Staple1600

Si ce sont des clients, tu as du émettre une facture, non ?
Dans ce cas en cas d'impayés, direction le contentieux, le tribunal etc...

Je Like

 

[Thierry K]

Merci beaucoup votre aide

 

[Staple1600]

Bonjour le fil, le forum

@Thierry K
Tu as bien lu le message#4?

 

[Thierry K]

Bonjour le fil, le forum

@Thierry K
Tu as bien lu le message#4?

Oui, je l'ai lu

 

[Staple1600]

Re

Donc tu as bien conscience que cette protection n'en est pas vraiment une, alors?

 

[Thierry K]

Oui, effectivement.