XL 2016 VBA

Thierry K · 19 Juin 2018

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 · 20 Juin 2018

Bonjour Thierry et bienvenue sur XLD

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

Un essai avec ceci

VB:

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 · 20 Juin 2018

Lone-wolf à dit:
Bonjour Thierry et bienvenue sur XLD

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

Un essai avec ceci

VB:

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 · 20 Juin 2018

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 · 20 Juin 2018

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 · 23 Juin 2018

Merci beaucoup votre aide

Staple1600 · 23 Juin 2018

Bonjour le fil, le forum

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

Thierry K · 23 Juin 2018

Staple1600 à dit:
Bonjour le fil, le forum

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

Oui, je l'ai lu

Staple1600 · 23 Juin 2018

Re

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

Thierry K · 23 Juin 2018

Oui, effectivement.

XL 2016 VBA

Thierry K

XLDnaute Nouveau

Lone-wolf

XLDnaute Barbatruc

Thierry K

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Thierry K

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Thierry K

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Thierry K

XLDnaute Nouveau

Discussions similaires