Comparaison de dates/heures VBA
Bonjour,
Je dois mettre au point un programme qui nous indiquerait tous les documents modifiés,mis à jour ou nouveaux d'un dossier (plus de 30 000 documents) et créérait des fichiers pdf. J'ai mis des captures en pièces jointes.
Je suis déjà parvenu à programmer le bouton qui affiche les infos de tous les documents (sous-dossier, nom et derniere modification) dans les colonnes A B et C.
J'ai aussi programmé un bouton aui archive et prepare le fichier pour le prochain utilisateur (copier les infos dans les colonnes E F et G puis supprimer le contenu des autres colonnes). aINSI, L'utilisateur arrive sur le fichier, appuie sur le premier bouton qui lui affichera les infos actuelles en A B et C et pourra les comparer avec les infos de la derniere fois en E F et G.
Remarque : les documents étant classés par ordre alphabétique ; s'il y a un nouveau document dans les infos actuelles, un meme document ne se retrouvera pas forcément sur la meme ligne que son homologue dans les anciennes infos.
Cependant, pour les comparer, il me faut un troisième bouton et là çela devient trop complexe pour moi. Les fonctions de ce bouton doivent etre les suivantes :
1. Ecrire le noms des nouveaux documents s'il y en a dans la colonne K (je suis parvenu à le faire)
2. Ecrire le nom des documents modifiés dans la colonne I (si les deux dates de derniere modif sont differentes car la nouvelle date ne peut etre anterieure à la nouvelle mais seulement posterieure ou égale)
3. Créer un fichier pdf pour chaque document modifié (ceux en colonne I) et chaque nouveau document (ceux en colonne K)
4. Ecrire "x" à coté des fichiers dupliqués en pdf (colonnes J et L)
Comme vous l'aurez compris, il me reste les fonctions 2, 3 et 4 du troisième bouton. Cependant je pourrais me débrouiller pour la fonction 4. Mais j'ai vraiment besoin d'aide pour comparer les dates de modif des documents et creer les pdf.
Quelqu'un pourrait-il m'èclaircir s'il vous plait ?
Jettez un coup d'oeil à ce que j'ai dèjà programmé (captures jointes).
Merci d'avance
Cordialement
Voici le bouton en question avec seulement la fonction 1 programmée :
Sub Pulsante4_Click()
Dim I As Integer
Dim DL As Integer
DL = Cells(Application.Rows.Count, 2).End(xlUp).Row
For I = 3 To DL
If Columns(6).Find(Cells(I, 2), , xlValues, xlWhole) Is Nothing Then
Range("K" & Rows.Count).End(xlUp).Offset(1, 0) = Cells(I, 2).Value
End If
Next I
End Sub
Personne ne sait ?
C'est super pour un forum spécialisé dans excel de n'apporter aucune reponse à une question vba.
N'y a-t-il vraiment que des personnes négligeantes et méprisantes sur ce forum ? Etes-vous vraiment une communauté de mal élevés ? Ou n'avez-vous pas l'humilité d'au moins informer autrui et dire "je ne sais pas désolé" ???
Je vais essayer un autre forum, peut etre qu'ils auront une éducation et dialogueront parce que ça a l'air dur de repondre pour certain, et peut etre qu'une question vba sera a leur portée.
Suicidez vous mutuellement abrutis on a besoin de gens qui diqloguent dans ce monde, pas degoiste, si lun dentre vous postule qqprt je lui souhaite de tout coeur de navoir aucune reponse, ni oui ni non, vous etes comme eux tfacon.
ps: Sebastien ton site est tres interessanr mais le module FORUM est inutile.
Bonjour la communauté, bonjour le forum,
Quel intérêt pour toi de recevoir des réponses disant je ne sais pas ? Pour moi, cela serait un vrai foutage de gueule...
Si on ne te répond pas c'est soit parce qu'on n'a pas vu ton post (c'était mon cas si tu ne m'avais pas contacté par mail perso), soit parce que ta question est mal posée, soit parce qu'on n'a pas les compétences pour le faire, soit, tout simplement, parce qu'on n'en a pas envie (c'était encore mon cas après avoir vu ton mail perso)... Il n'y à personne à tes ordres ici !
Sinon, je ne voudrais absolument pas mêler les autres membres de ce forum à la communauté des mal élevés mais moi, comme j'en fais partie (tendance grossier), je te propose d'aller carrément te faire voir chez les helléniques (ta mère !). Si tu es incapable de poser une question sans faire un caca nerveux parce que tu n'as pas de réponse il vaut mieux t'abstenir...
Je sens que Sébastien va devoir modérer là... Désolé pour le travail donné...
Moi, j'ai vu... et implicitement décliné l'offre... !
Et me trouve très content d'avoir eu raison de le faire !
Puisque nous voilà confrontés à un personnage qui considère que je devrais être à son service !
Eh bé non !
Cela ne m'a pas paru le cas ici !
Déjà quand l'on me dit qu'on a fait tout un programme, lequel fait appel à quelques éléments un peu complexes, et qu'on bute sur un écueil, relativement mineur en regard, pour continuer, je ne peux m'empêcher de me dire : Petit bonhomme ! D'autres ont fait, et tu regardes passivement le résultat sans chercher à te le réapproprier...
Et puis je lis : pour les comparer, il me faut un troisième bouton et là çela devient trop complexe pour moi. Ouille !
Et quand ensuite je tombe sur des bouts de code tel :
MyFolder = 10
For MyFolder = 10 To 10Ce que je pouvais subodorer se confirme donc ! Tout est pour le mieux !
Re,
Voilà ! Tu vois SAfetyProcess... C'est ça la différence entre la classe et un mal élevé grossier...
MFerrand,
Tu n'as pas compris mon problème. Si tu considères que devoir répondre pour que lq personne soit au courant, alors tu considères que répondre par politesse a qqn qui t'adresserai la parole dans la rue. Si vous croyez que la vie c'est Excel vous allez etre bien surpris à votre mort. Tant d'ignorance et de perdition... Si t'as des objectifs personnels dans ta vie il serait temps de comprendre que la politesse et l'altruisme sont bien plus importants que des acquis informatiques. Continuez à vivre ainsi et à prendre les gens de haut, ce n'est qu'un monde virtuel, dans la rue (et vous le savez tres bien) vous auriez vite compris ce qu'il faut faire ou ne pas faire et si vous pouvez mépriser les gens. Bonne fin de vie à programmer et à s'éloigner des réélles vertues de l'homme.
ThauTheme,
Jaurai pu texpliquer la meme chose mais toi tu ne le mérites meme pas. Alors je vais le dire qu'une fois, joue pas trop avec les gens que tu connais pas pcq tes derriere ton clavier, reste poli. Tout se retrouve sur internet.
Bonne vie les perdus