Contenu récent par Rheeem

@patricktoulon Un petit rmarque concerant ton algo de conversion vers UTF-8 , AscW renvoie un integer signé dans la range -32000..32000 et une bonne partie des tests dans le Select sont invalides

@Magnio Utiliser l'evenement change de worksheet pour cibler la colonne à partir de laquelle tu veux générer les QrCodes et on leur donnant le même nom de la cellule ou s'y trouvent celà permet de les supprimer en cas de mise à jour.

Il faut tout vérifier au moment de la validation c'est mieux que de mettre des contraintes dans les textboxs qui ne font qu'alourdir le code et agacer l'utilisateur. regarder l'exemple

Pour récupérer les infos du fichier : Dim shl As Object, cItem As Object, folder Set shl = CreateObject("Shell.Application") Set folder = shl.Namespace("C:\Users\ .. votre dossier") Set cItem = folder.ParseName("tone.mp4") On Error Resume Next For i = 0 To 500 col =...

Essaie ce code Dim shl As Object, cItem As Object, folder Set shl = CreateObject("Shell.Application") Set folder = shl.Namespace("C:\Users\ .. votre dossier") Set cItem = folder.ParseName("tone.mp4") cItem.InvokeVerb "properties"

Toutefois il faut faire attention pas tous target _parent doivent être remplacée car parmi eux ceux des onglets qui renvoient vers la page principale donc il fait appliquer cette manip sur les liens externes ceux qui débutent par https .

Target doit être placé dans le lien à ouvrir , ce n'est pas cette page que t'as envoyée qu'il faudrait éditer mais celle qui contient le lien ,regarde dans le dossier généré "TdB LH_fichiers" tu y trouves les pages aux noms des feuilles Excel <href ="https..." target="_blank"> c'est compliqué...

D'autres évenements comme BeforeSave sont également concernés, il faut cacher le texte avant l’enregistrement Regarder dans l'exemple suivant, à l'ouverture du classeur la cellule A9 est vide un dialogue va demander la saisie de mot de passe pour afficher le contenu de la cellule ..le mot de...

Ajouter une référence dans les noms que tu peux l'utiliser comme cellule cachée pas besoin de cacher A9 Aller dans l'onglet Formules -> Gestionnaire de Noms et créer une nouvelle référence disons MaRef et en bas on définit sa formule ex somme A1 et B1 =$A$1+$B$1 Et apres tu peux l’utiliser à...

En effet il faut toujours ajouter un élément supplémentaire une fois la liste est chargée il faut supprimer le dernier

Le code à modifier dans CommandButton1 Private Sub CommandButton1_Click() Dim plage As Range, a, i& Dim Colonnes Colonnes = Array(1, 3, 4, 5, 6, 7, 8) 'colonnes à afficher Set plage = Range("A3:H" & Cells(Cells.Rows.Count, "B").End(xlUp).Row) With UserForm1.ListBox1 .ColumnCount =...

Utiliser Now pour extraire la date puis multiplexer ses octets, faites un xor pour un pseudos aléatoire sans répétitions et finalement coder-la sous une autre format texte de sortie

La listview n'est pas disponible par défaut surtout après avoir désinstallé le composant, tu dois l'ajouter à partir de la palette des composants clic droite ajouter contrôles supplémentaires afin qu'elle soit disponible dans les nouveaux projets. Sinon tu peux créer le composant dynamiquement...

ça ne devrait pas être compliqué pour récupérer les dates des fichiers Dim fso As Object, f As Object Set fso = CreateObject("Scripting.FileSystemObject") For Each f In fso.GetFolder("C:\Dossier").Files Debug.Print f.Path, f.DateLastModified Next

J'ai peur que nous ne sommes pas sur la même longueur d'onde car j’utilise également une version ancienne 2010: Voila une capture