Résultats de la recherche

  1. I

    En VBA: Récupérer la valeur de l'alerte "Suppression de fichiers"

    Bonsoir à ceux qui passeront par là. et Merci à ceux qui m'ont déjà tant aidé. Dans mon fichier joint, je dresse la liste des fichiers d'un dossier, et je supprime ceux qui sont sélectionnés. La listview est mise à jour automatiquement, mais je ne parviens pas à conserver l'item dans...
  2. I

    Récupérer valeur "Oui ou Non" du message d'alerte Wind: "Suppression de fichiers"?

    Bonjour à ceux qui passeront par là. Dans mon fichier joint, je dresse la liste des fichiers d'un dossier, et je supprime ceux qui sont sélectionnés. La listview est mise à jour automatiquement, mais je ne parviens pas à conserver l'item dans le cas où je réponde "Non" à la demande de...
  3. I

    Récupérer la valeur de l'alerte "Suppression de fichiers"

    Bonjour à ceux qui passeront par là. Dans mon fichier joint, je dresse la liste des fichiers d'un dossier, et je supprime ceux qui sont sélectionnés. La listview est mise à jour automatiquement, mais je ne parviens pas à conserver l'item dans le cas où je réponde "Non" à la demande de...
  4. I

    Souci de tri d'une colonne de ma "Listview"

    Bonsoir à tous qui passeront par ici. Encore Merci à ceux qui m'ont tant aidé. Je patine "Grave" sur mon tri de la colonne "Poids". J'ai tenté plein de trucs inavouables, en vain!!! C'est dans le désespoir (Sniff..) que je vous demande un p'tit coup de main. Dans Classeur joint, vous...
  5. I

    Combiner ces 2 macros dressant la liste des fichiers dans"c:\!!!"

    Bonsoir à tous qui passeront par là. Et Merci à ceux qui m'ont tant aidé. Le souci est qu'avec cette macro, je n'entre pas dans les sous-dossiers pour en analyser les propriétés. Sub SOLUTION_GET() Set OBJET = CreateObject("Shell.Application") Set DOSSIER =...
  6. I

    Combinaison: "GetDetailsOf" et Function "xxxx" ..(Chemin, Fichier, Feuille, Cellule)"

    Bonsoir à ceux qui passeront par là, Et reconnaissance à ceux qui m'ont tant aidé, et empli, Par leur exemple; mes loisirs du plaisir à bidouiller VBA. Le sujet: (Qui, présenté par ma pomme autrement ici, dans d'autres "Posts" m'a fait déjà bien fait avancer) Je réitère ma question...
  7. I

    Cumuler les cellules "Cells(x,y)" de Classeurs fermés

    Bonsoir à ceux qui passeront par là, Et merci à ceux qui m'ont tant aidé Là où je patine dans l'adaptation de macros récupérées ici ou chez Wiki, C'est que ne parviens pas à charger directement ma Listview sans passer par une feuille. Ni de construire une variable qui me totalisera toutes...
  8. I

    Boucle sur classeurs fermés, et totalisation des valeur en "R4C3' de leur Feuil1

    Bonsoir à tous, Et à ceux qui m'ont tant aidé. J'aimerais pouvoir totaliser toutes les valeurs écrites dans les cellules "B4" des classeurs présents dans le"ActiveWorkbook.Path" et les cumuler. Est-ce possible ? A noter que ceux-ci ne comportent qu'une feuille, et que toutes ont pour nom...
  9. I

    Question sur un Module de Classe

    Bonsoir à ceux qui passeront par là. Et Grand Merci à ceux qui par leur aide m'ont donné le Plaisir de bidouiller en VBA. 1) Avec l'exemple ci-joint, je ne parviens pas à ce que les autres labels récupèrent leur couleur initiale 2) J'aimerais remplacer "For Each" par un "i"...
  10. I

    Avec "Application.FileSearch": récupérer le nom de l'auteur du fichier?

    Bonsoir à ceux qui passeront par là. Et Grand Merci à ceux qui m'ont tant aidé. Finalement, je n'ai rien à ajouter à ma question dans le sujet, Si ce n'est que le fichier joint… Je patine depuis un grand morceau de temps. Merci d'avance à vous, et bonne soirée à tous. IFFIC
  11. I

    SortKey ListView suivant xième colonne?

    Bonjour à ceux qui passeront par là. Et Grand Merci à ceux qui m'ont tant aidé. Voici mon Blème… Je dresse dans ma ListView la liste des fichiers du dossier Où le présent classeur se trouve. Mon souci est de faire apparaître la liste en ordre chronologique. Donc suivant les dates...
  12. I

    Geant La Molette De La Souris Qui Fonctionne Dans Vbaproject !!!

    Bonjour à ceux qui passeront par là. Et Grand Merci à ceux qui m'ont tant aidé. Au hasard d'une recherche ici sur une macro pour "Trier une listview suivant la x'ième colonne" ( P.S.: Que je n'ai pas trouvé… Mais je l'ai certainement dans mon propre Bord.."Lui", je vais fouiller) Je suis...
  13. I

    Créer classeur (B) et copier Feuil1 classeur (A) dans celui-ci, en le renommant suiva

    Bonsoir à tous qui passeront par là. Et Merci à ceux qui m'ont tant aidé. En fait, ce n'est pas vraiment pour moi, mais pour un stagiaire ingénieur machin-truc qui m'a posé une question à laquelle je ne voudrais pas, par le silence ou la lenteur de la réponse, passer pour un … Le sujet...
  14. I

    Arrière plan EXCEL imprimable au format A4 ?

    Bonsoir à tous qui passeront par là. Et Merci encore à tous ceux d'ici qui m'ont tant aidé dans mes "Bidouilles" Dans mon boulot, nous répondons à des appels d'offres en remplissant des bordereaux Papier. (Genre Economistes de la construction, ou marché d'Etat) La secrétaire chargée de...
  15. I

    Faire le tri d'une ListView suivant critères dans SubItems(x)

    Bonsoir à ceux qui passeront par là. (Encore moi!!!) Je ne parviens pas à faire une boucle complète sur ma ListView En disant que si le "SubItems(3)" est égal à 'Truc" ou "Machin" Tu "Remove" le ListView1.ListItems, ou tu suis le lien de la colonne 5..et c. Je dois cliquer moult fois mon...
  16. I

    Supprimer un Item d'une ListView ?

    Bonsoir à ceux qui passeront par là. La question est dans le sujet…. Sub TRI_LISTVIEW() For i = 1 To UserForm1.ListView1.ListItems.Count - 1 If UserForm1.ListView1.ListItems(i).ListSubItems(3) = ".gif" Then 'UserForm1.ListView1.ListItems(i).Checked = True…………. ICI C'EST OK Mais...
  17. I

    En VBA: Multiplier A1 par A2 et avoir le résultat dans A3?

    Bonsoir, ou bonjour à ceux qui passeront par là. C'était juste pour savoir s'il y avait encore quelqu'un de vivant ici…! J'étais inquiet par les silences à mes dernières questions.. Juste un clin d'œil d'humour.:) Merci encore à ceux qui m'ont tellement aidé depuis si longtemps...
  18. I

    ZOOM Image USF en "Application.Width et .Height" suivant résolution.

    Bonsoir à ceux qui passeront par là.. A l'ouverture de l'USF, je le dimensionne par: Private Sub UserForm_Initialize() UserForm1.Width = Application.Width UserForm1.Height = Application.Height Je bidouille en 1280 x 1024, mais pour l'utilisateur presbyte qui navigue en 1024 x 768...
  19. I

    USF1.Hide avant d'ouvrir un autre fichier .xls, et USF1.Show en fermant ce dernier?

    Bonsoir à tous qui passeront par là. Je rame à n'en plus voir le continent, et j'ai besoin d'un peu d'aide. Sioux PLAIENT… A partir d'un "ListView1_Click", j'ouvre un fichier et j'en visualise le contenu avant de le fiche à la poubelle, lui changer de nom, ou le déplacer. Avec un...
  20. I

    Pourquoi mes "Hyperlink" fichiers "Image"; (gif, jpg., bmp…et c.) ne s'ouvrent pas?

    Je reformule ici une question qui n'a pas eu la chance de rencontrer une bonne âme ayant un p'tit bout de réponse pour m'aider... Bonsoir à tous qui passeront par là. Et merci à ceux qui par leur aide, mon déjà tellement aidé. Voici mon souci: Dans un premier temps je crée les liens...