Recherche

Affichage des articles dont le libellé est Astuce Excel. Afficher tous les articles
Affichage des articles dont le libellé est Astuce Excel. Afficher tous les articles

VBA Excel Compter le nombre de fichier dans un répertoire commençant par TAW

Pour developper un petit programme afin de trouver le nombre de fichier Excel prenant en charge les macros et commençants par "TAW" dans un répertoire donnée, vous n'avez qu'à écrire le programme suivant sous VBA. Vous pouvez l'appliquer pour les autres types de fichiers en remplaçant l’extension xlsm par n'importe quelle autre extension: docx, xlsx, txt, etc.
 
 Sub Hist_Fiche()
'Remplacez adresse par le chemin du dossier ou voulez cherchez.
 MsgBox  "Nombre de fichier trouvés " & NbFich(Adress, "xlsm")
End Sub
 
Function NbFich(Adress As String, ParamArray Termin() As Variant) As Long
'Auteur: Random
Dim Fichier As String
Dim Extension As Variant
Dim Compteur As Long

For Each Extension In Termin
'ici ne remplacer par "adress" par le chemin du dossier
   Fichier = Dir(Adress & "\TAW*." & Extension)
   Do Until Fichier = ""
   Compteur = Compteur + 1
   Fichier = Dir
   Loop
Next Extension

NbFich = Compteur
End Function

VBA Excel Nombre de fichiers dans un dossier

Sub Rep()
MsgBox NombreFichiers(Repertoire)

End Sub

Function NombreFichiers(ByVal Repertoire As String) As Long
    Dim FSO As Object

    Set FSO = CreateObject("Scripting.FileSystemObject")
    NombreFichiers = FSO.GetFolder(Repertoire).Files.Count

    Set FSO = Nothing
End Function

Auteur: N’hésitez pas à me signaler les erreurs qui peuvent glisser dans cet article afin de les corriger. 

METHODE ORIGINALE POUR SECURISER UN FICHIER EXCEL CREER UNE LICENCE A VOS FICHIERS



Nous vous proposons dans ce qui suit une merveilleuse méthode pour ne pas ouvrir un fichier Excel que seulement dans votre ordinateur ou bien un ordinateur de votre choix. Elle peut être assimilée à la création d’une Licence pour vos Fichiers.
L’Avantage de cette méthode c’est qu’une fois votre fichier Excel à été volé ou bien votre ordinateur à été piraté etc, l détenteur du fichier ne peut pas ouvrir son fichier que moyennant une License ou vous seul connait l’emplacement.
L’idée est de ne pas autoriser l’ouverture du fichier Excel avant que le programme :
-  cherche l’existence d’un fichier nommé « droit_Utilisation » dans un emplacement de votre choix
-   extraire les lettres de l’emplacement déterminé et les compare avec un mot clé prédéterminé

Si le programme ne trouve pas le fichier et/ou il ne trouve pas le « mot clé cherché », il va se fermer automatiquement
1. Créer un fichier texte d’une structure quelconque dans emplacement de votre Choix, nous avons choisit pour cet exemple de créer le fichier dans le (D:\)
Nous allons nommer ce fichier « essai » mais, vous prouver choisir un nom de votre choix seulement il faut remplacer le nom de ce fichier dans le programme qui vous sera présenter

2. Ouvrir le Fichier et y Insérer le « mot clés à chercher »
Vous pouvez écrire n’importe quoi l’essentiel est de se rappeler du numéro de la ligne ainsi le numéro du caractère début et le numéro de caractère fin du « Mot clés cherché » : Dans notre cas nous avons choisit le mot « ESSTEST »

3. Allez dans le fichier Excel que vous voulez sécuriser et appuyez sur Alt+F11 pour passer en VBA :
èDouble click sur « ThisWorkbook »
Et écrire le programme VBA suivant :


 Maintenant enregistrer le projet VBA et enregistrer le fichier Excel sous une forme prenant en charge les macros .

RQ : n’oublier pas d’activer les macros.

Vous pouvez essayez cette astuce en supprimant le fichier essait.txt   ou bien en modifiant la position des caractères : Vous Pouvez constater que le fichier ne s’ouvre pas si le fichier test.txt n’existe pas o bien si les caractères du « mot à chercher » ne sont pas conformes (numéro de ligne, caractère début, et caractère fin).

4. Pour donner le droit à une autre personne pour utiliser le fichier sécurisé dans son ordinateur vous n’avez qu’a « copier coller » le fichier essait.txt   dans l’adresse spécifiée (D:\).

Remarque : Vous pouvez aussi créer un batch pour faire cette étape automatiquement en double cliquant sur le batch :

Ecrire le programme suivant dans le fichier « Activer licence.BAT » :


Remarque : cette méthode de sécurisation des fichiers Excel n’est pas complète mais elle est intéressante. J’ai conçu cette astuce et j’ai voulu le partager avec le public. Toutefois, Si votre But et de sécuriser votre fichier il y a d’autre méthode qui peuvent être utilisées en parallèle :
-          Créer un mot de passe fia office directement.
-          Créer un mot de passe via VBA pour Excel
-          Sécuriser vos codes VBA.

Ce qui est intéressant de savoir c’est que chaque méthode à des faiblesses et n’offre pas une sécurité à 100%
Auteur: N’hésitez pas à me signaler les erreurs qui peuvent glisser dans cet article afin de les corriger.