Discussion :

[scoubi77]

Bonjour, voilà mon Probleme . J'ai un fichier word et un fichier excel, le fichier excel récupère les données de word Grace a une macro et des signets dans word , tout cela fonctionne très bien . A aujourd'hui j'aurais besoin d'éviter le double archivage des données , pour cela j'ai pensé a lire la date et l'heure du fichier word affin d'éviter de le comptabiliser 2 fois. stocker la date du fichier word lors de son dernier enregistrement peut être dans une variable et la comparer lors d'un éventuel nouvel archivage et dans le cas d'une même heure et date du fichier word afficher une fenêtre d'avertissement , biensur si l'archivage est possible stocker la nouvelle valeur de date. Quelqu'un peut il m'aider pour le transcrire en vba? Merci par avance

[sabzzz]

bonjour scoubi77,

tu pourrais vérifier si la valeur est présente dans le fichier excel avec la fonction Match, par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not IsError(Application.Match(myval, [plage], 0)) Then x = "ok"

[scoubi77]

Merci pour ta reponse, mais n'ayant pas encore un super niveau en vba j'ai du mal a comprendre comment ce bout de code va pouvoir m'aider a réaliser ce que je veux obtenir ?

[sabzzz]

bonjour,

le fichier excel récupère les données de word Grace a une macro

la valeur ainsi récupérée est t'elle mit dans une variable ?
cette valeur est unique ou bien est ce un tableau ?
que fait de cette valeur une fois récupéré ?

[scoubi77]

Bonsoir,
enfait tout fonctionne a merveille au niveau de la récupération de mes données la seule chose que voudrais faire c'est éviter un double archivage donc pour cela il faudrait que depuis excel je stock los du dernier archivage la date de creation ou modification du fichier word afin de le comparer .
si par exemple le fichier word.doc du 15 mars 2010 a 15h36 a déja était archiver excel los de la demande d'archivage ouvrirait une fenetre en disant le fichier a déja était archivé si la date est différente dans ce cas l'archivage s'éffectue
merci a toi de m'aider

[sabzzz]

bonjour scoubi77,

cette exemple lit la propriété du document, j'ai considéré que doc était l'objet "Document"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
'10  Last print date
'11  Creation Date
'12  Last save time
 
x = doc.BuiltinDocumentProperties(12)

[scoubi77]

Bonsoir et merci, la je suis au travail jusqu'à demain soir et je n'ai que mon iPhone pour aller sur le web donc je le telechargerais que demain. Aurais tu 5 minutes pour m'aider sur mon autre Problème je suis entrain de travailler dessus et je n'y arrive pas . Merci pour tout

[sabzzz]

bonjour scoubi77,

il serait plus facile de le faire directement dans une cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=DATEDIF(A2;B2;"m")+DATEDIF(A2;B2;"md")/30

à mettre au format Standard

[scoubi77]

Bonsoir, tu veux dire directement dans la cellule sans passer par une macro ? Je suis un peu perdu ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Workbook_Open()
*
nbans = -Year(Date) + Year(Range("M10"))
nbmois = (nbans * 12) + Month(Date) - Month(Range("M10"))
*
If nbmois > 12 Then
  Range("O10").Interior.ColorIndex = 4 ' Vert
  Exit Sub
End If
If nbmois > 6 And nbmois < 12 Then
  Range("O10").Interior.ColorIndex = 6 ' Jaune
  Exit Sub
End If
If nbmois >= 3 And nbmois < 6 Then
  Range("O10").Interior.ColorIndex = 44 ' Orange
  Exit Sub
End If
If nbmois >= 1 And nbmois < 3 Then
  Range("O10").Interior.ColorIndex = 3 ' Rouge
  Exit Sub
End If
If nbmois < 1 Then
  Range("O10").Interior.ColorIndex = 1 ' Noir
 Exit Sub
 End If
 End Sub

J'ai une date fixe que je veux comparer avec la date du jour, mais j'ai une erreure de conception dans mon code car c'est pas précis et je n'arrive pas a gerer l'evenement si a la place d'une date j'ai NC ou NON

[sabzzz]

bonjour,

J'ai une date fixe que je veux comparer avec la date du jour, mais j'ai une erreure de conception dans mon code car c'est pas précis et je n'arrive pas a gerer l'evenement si a la place d'une date j'ai NC ou NON

que veut dire NC ?

[scoubi77]

Non communiqué. Le problème que je rencontre et que je n'arrive pas a résoudre , vient du fait que le comptage est pas fiable , je pense que sa doit vennir du fait que j'integre pas les jours . Ou peut être que mon raisonement n'est pas bon , merci par avance si tu peux m'aider