Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Bonjour blazZzer,
Avec ce code en exemple :
Feuil2.Cells(i + 1, 1) = ListView1.ListItems(ListView1.SelectedItem.Index).Text
Feuil2.Cells(i + 1, 2) = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(1).Text
Pour plus d'informations consulte ce lien Utiliser le contrôle ListView en...
Bonjour bernardrustrel,
Il ne me semble pas possible de masquer une ligne d'un listview, il faut la supprimer (Remove).
Regardes ce tuto, tu devrais avoir réponse à ton problème:
https://silkyroad.developpez.com/VBA/ListView/#LII-D
Essaie avec la pj.
Si cela ne fonctionne pas, c'est sans doute du fait que la procédure 'Envoyer' figure sur ton fichier 'Archivages'. Or, elle devrait figurer dans le fichier du jour que tu ouvres...
Bonjour Béa,
Cela semble un peu logique que cela plante car ta macro 'Créer_fichier_du_jour' supprime les différentes macros présente sur le fichier. Par conséquent, lors de l'appel de la procédure 'Envoyer' n'existe plus à ce moment là.
Bonjour benrazzouk,
il te faut placer le code ci-dessous dans l'évènement 'Worksheet_Change' de ThisWorkBook:
If Not Intersect("C7:L34", Target) Is Nothing Then TOTALCOUTT1
Est-ce un fichier en lecture seule que tu ouvres ?
En attendantessaye en mettant:
Application.DisplayAlerts = False
wlBook.close(False)
Application.DisplayAlerts = True
C'est logique puique tu tentes de transférer les données sur la feuille de calcul du classeur qui est ouvert. Il faut le fermer avant de faire le 'DoCmd'.
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.