Discussion :

[toniox]

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Option Compare Database
Private Sub Form_Current()
Dim Mois As Date
Dim Jours As Date
Dim Année As Date
Dim LaDate As Variant
' Recupération du jours,du moi et de l'année
Jours = Mid(Date - 1, 1, 2)
Mois = Mid(Date, 4, 2)
Année = Mid(Date, 7, 4)
' On choisit le fichier de destinantion suivant le moi
'Recuperation du nom du ficher .dat et copi dans <a href="file://\\srvdfs00\partages\501-550\m00549\APTECH\Projet\fichier\" target="_blank">\\srvdfs00\partages\501-550\m00549\APTECH\Projet\fichier\</a>
If Mois = "01" Then
FileCopy "<a href="file://\\srvdfs00\partages\651-700\M00686\Siebel\Reseau\CRM21_Fir" target="_blank">\\srvdfs00\partages\651-700\M00686\Siebel\Reseau\CRM21_Fir</a>_" & Année & "" & Mois & "" & Jours & ".dat", "<a href="file://\\srvdfs00\partages\501-550\m00549\APTECH\Projet\fichier\Janvier\CRM21_Fir" target="_blank">\\srvdfs00\partages\501-550\m00549\APTECH\Projet\fichier\Janvier\CRM21_Fir</a>_" & Année & "" & Mois & "" & Jours & ".txt"
End If
If Mois = "02" Then
FileCopy "<a href="file://\\srvdfs00\partages\651-700\M00686\Siebel\Reseau\CRM21_Fir" target="_blank">\\srvdfs00\partages\651-700\M00686\Siebel\Reseau\CRM21_Fir</a>_" & Année & "" & Mois & "" & Jours & ".dat", "<a href="file://\\srvdfs00\partages\501-550\m00549\APTECH\Projet\fichier\Fevirer\CRM21_Fir" target="_blank">\\srvdfs00\partages\501-550\m00549\APTECH\Projet\fichier\Fevirer\CRM21_Fir</a>_" & Année & "" & Mois & "" & Jours & ".txt"
End If
If Mois = "03" Then
FileCopy "<a href="file://\\srvdfs00\partages\651-700\M00686\Siebel\Reseau\CRM21_Fir" target="_blank">\\srvdfs00\partages\651-700\M00686\Siebel\Reseau\CRM21_Fir</a>_" & Année & "" & Mois & "" & Jours & ".dat", "<a href="file://\\srvdfs00\partages\501-550\m00549\APTECH\Projet\fichier\Mars\CRM21_Fir" target="_blank">\\srvdfs00\partages\501-550\m00549\APTECH\Projet\fichier\Mars\CRM21_Fir</a>_" & Année & "" & Mois & "" & Jours & ".txt"
End If
If Mois = "04" Then
FileCopy "<a href="file://\\srvdfs00\partages\651-700\M00686\Siebel\Reseau\CRM21_Fir" target="_blank">\\srvdfs00\partages\651-700\M00686\Siebel\Reseau\CRM21_Fir</a>_" & Année & "" & Mois & "" & Jours & ".dat", "<a href="file://\\srvdfs00\partages\501-550\m00549\APTECH\Projet\fichier\Avril\CRM21_Fir" target="_blank">\\srvdfs00\partages\501-550\m00549\APTECH\Projet\fichier\Avril\CRM21_Fir</a>_" & Année & "" & Mois & "" & Jours & ".txt"
End If
If Mois = "05" Then
FileCopy "<a href="file://\\srvdfs00\partages\651-700\M00686\Siebel\Reseau\CRM21_Fir" target="_blank">\\srvdfs00\partages\651-700\M00686\Siebel\Reseau\CRM21_Fir</a>_" & Année & "" & Mois & "" & Jours & ".dat", "<a href="file://\\srvdfs00\partages\501-550\m00549\APTECH\Projet\fichier\Mai\CRM21_Fir" target="_blank">\\srvdfs00\partages\501-550\m00549\APTECH\Projet\fichier\Mai\CRM21_Fir</a>_" & Année & "" & Mois & "" & Jours & ".txt"
End If
If Mois = "06" Then
FileCopy "<a href="file://\\srvdfs00\partages\651-700\M00686\Siebel\Reseau\CRM21_Fir" target="_blank">\\srvdfs00\partages\651-700\M00686\Siebel\Reseau\CRM21_Fir</a>_" & Année & "" & Mois & "" & Jours & ".dat", "<a href="file://\\srvdfs00\partages\501-550\m00549\APTECH\Projet\fichier\Juin\CRM21_Fir" target="_blank">\\srvdfs00\partages\501-550\m00549\APTECH\Projet\fichier\Juin\CRM21_Fir</a>_" & Année & "" & Mois & "" & Jours & ".txt"
End If
If Mois = "07" Then
FileCopy "<a href="file://\\srvdfs00\partages\651-700\M00686\Siebel\Reseau\CRM21_Fir" target="_blank">\\srvdfs00\partages\651-700\M00686\Siebel\Reseau\CRM21_Fir</a>_" & Année & "" & Mois & "" & Jours & ".dat", "<a href="file://\\srvdfs00\partages\501-550\m00549\APTECH\Projet\fichier\Juillet\CRM21_Fir" target="_blank">\\srvdfs00\partages\501-550\m00549\APTECH\Projet\fichier\Juillet\CRM21_Fir</a>_" & Année & "" & Mois & "" & Jours & ".txt"
End If
If Mois = "08" Then
FileCopy "<a href="file://\\srvdfs00\partages\651-700\M00686\Siebel\Reseau\CRM21_Fir" target="_blank">\\srvdfs00\partages\651-700\M00686\Siebel\Reseau\CRM21_Fir</a>_" & Année & "" & Mois & "" & Jours & ".dat", "<a href="file://\\srvdfs00\partages\501-550\m00549\APTECH\Projet\fichier\Aout\CRM21_Fir" target="_blank">\\srvdfs00\partages\501-550\m00549\APTECH\Projet\fichier\Aout\CRM21_Fir</a>_" & Année & "" & Mois & "" & Jours & ".txt"
End If
If Mois = "09" Then
FileCopy "<a href="file://\\srvdfs00\partages\651-700\M00686\Siebel\Reseau\CRM21_Fir" target="_blank">\\srvdfs00\partages\651-700\M00686\Siebel\Reseau\CRM21_Fir</a>_" & Année & "" & Mois & "" & Jours & ".dat", "<a href="file://\\srvdfs00\partages\501-550\m00549\APTECH\Projet\fichier\Septembre\CRM21_Fir" target="_blank">\\srvdfs00\partages\501-550\m00549\APTECH\Projet\fichier\Septembre\CRM21_Fir</a>_" & Année & "" & Mois & "" & Jours & ".txt"
End If
If Mois = "10" Then
FileCopy "<a href="file://\\srvdfs00\partages\651-700\M00686\Siebel\Reseau\CRM21_Fir" target="_blank">\\srvdfs00\partages\651-700\M00686\Siebel\Reseau\CRM21_Fir</a>_" & Année & "" & Mois & "" & Jours & ".dat", "<a href="file://\\srvdfs00\partages\501-550\m00549\APTECH\Projet\fichier\Octobre\CRM21_Fir" target="_blank">\\srvdfs00\partages\501-550\m00549\APTECH\Projet\fichier\Octobre\CRM21_Fir</a>_" & Année & "" & Mois & "" & Jours & ".txt"
End If
If Mois = "11" Then
FileCopy "<a href="file://\\srvdfs00\partages\651-700\M00686\Siebel\Reseau\CRM21_Fir" target="_blank">\\srvdfs00\partages\651-700\M00686\Siebel\Reseau\CRM21_Fir</a>_" & Année & "" & Mois & "" & Jours & ".dat", "<a href="file://\\srvdfs00\partages\501-550\m00549\APTECH\Projet\fichier\Novembre\CRM21_Fir" target="_blank">\\srvdfs00\partages\501-550\m00549\APTECH\Projet\fichier\Novembre\CRM21_Fir</a>_" & Année & "" & Mois & "" & Jours & ".txt"
End If
If Mois = "12" Then
FileCopy "<a href="file://\\srvdfs00\partages\651-700\M00686\Siebel\Reseau\CRM21_Fir" target="_blank">\\srvdfs00\partages\651-700\M00686\Siebel\Reseau\CRM21_Fir</a>_" & Année & "" & Mois & "" & Jours & ".dat", "<a href="file://\\srvdfs00\partages\501-550\m00549\APTECH\Projet\fichier\Decembre\CRM21_Fir" target="_blank">\\srvdfs00\partages\501-550\m00549\APTECH\Projet\fichier\Decembre\CRM21_Fir</a>_" & Année & "" & Mois & "" & Jours & ".txt"
End If
 
End Sub

Voici mon code : j'ai un souci avec le type Date je ne comprend pas pour quoi il n'est pas reconnu sous acces. Le message d'erreur est le suivant :

Erreur de compilation Projet ou bibliothèque introuvable

J'ai vu aparement le type Date existe egalement sous access et aps seulement sous excel .

PS: ce code fonctionne sous excel.

Merci . Antoine

[pc75]

Bonjour,

Au lieu de faire :

Jours = Mid(Date - 1, 1, 2)
Mois = Mid(Date, 4, 2)
Année = Mid(Date, 7, 4)

Pourquooi ne fais tu pas ?

Code :

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

1
2
3
4
 
Jours = Day(Date)
Mois = Month(Date)
Année = Year(Date)

[toniox]

Oui c'est sur c'est mieu effectivement ! Mais sa ne marche toujours pas sous access toujours le meme souci !! Mais merci pour l'info !!



Antoine

[toniox]

un ptit up avant de dodo!!

A dmain.

[SfJ5Rpw8]

[

Voici mon code : j'ai un souci avec le type Date je ne comprend pas pour quoi

Vérifie les références de ton projet... si tu as une référence "Manquante" (pas forcément liée à la date) VBA peu se "vautrer" dans la recherche des types...

[pc75]

Re,

Et puis fais attention, les fonctions sur les dates te renvoient une valeur numérique ; donc, par exemple, Month(now) => 5 et non pas "05".

[toniox]

Qu'elle sont les references que vous utiliser dans access??

Merci .Antoine

[toniox]

SVP messieurs j'ai tout essayer la et j'ai toujours le meme prob je bloque pour afficher une date je vais devenir dingue !!

Si vous pouvez me filer un ptit tuyau j'ai activé les même reference que sous excel sur lequelle la onciton tourne !

Merci beaoucoup !

[toniox]

L'expression sur ouverture entrée comme paramètre de la propriétéde type événement est à l'origine d'une erreur .Un problème est survenu durant le communication entre Micro Access et le serveur OLE ou le contrôle ActiveX

* le resultat de l'expression n'est pas le nom d'une macro ,le nom d'une fonction définie par l'utilisateur ou [event procedure]
*Une erreur a peut etre été commise lors de l'evaluation d'une fonction ,d'un evt d'une macro.

[illight]

Et si ça :

Code :

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

1
2
3
Dim Mois As Date
Dim Jours As Date
Dim Année As Date

si tu les définis comme des string ça fait quoi ?

[toniox]

Pareil même erreur !!Ni now() ni date() fonctionne

[SfJ5Rpw8]

- tu n'as pas répondu à ma question, dans la liste des références sous access , il y as t'il une référence marquée "référence manquante ?"

- As tu essayé les fonction date.... dans nouveau projet...

- d'ou sort le message ... en "Citation": "L'expression sur...." si ce n'est pas une référence c'est peu être un activeX utilisé dans ton application qui manque sur ton poste ?

[toniox]

Escuse Bibil j'ai un peu de mal ce matin :

1- J'ai effectivement une reference manquante : MANQUANT : BusinessObjects 6.0 Object Librairy

2- Je viens de tester dans un nouveau projet et sa fonctionne parfaitement ( 2 demis journée que je suis dessus chui vert )


Faut il que je refasse dans un nouveau projet ??

Si oui puis je recuperer mes tables de la base en copiant collant?

3- Oublions ce message erreur de ma part desolé !!

MErci beaucoup !!

[illight]

Faut il que je refasse dans un nouveau projet ??

Si oui puis je recuperer mes tables de la base en copiant collant?

3- Oublions ce message erreur de ma part desolé !!

MErci beaucoup !!

Tu as quelle version d'Access ?

Mais je te conseille effectivement de créer un nouveau projet en récupérant ton précédent travail

[toniox]

Bah en desactivant la reference manquante tout refonctionne !!

1- Je fais quand même un new project ou je garde le même !

2- J'aimerai avoir une tutto sur les formulaires et tout ce qui va avec parce que la je galere pour par exemple faire en sorte que la date du jours s'affiche dans mon formulaire ! Je comprend pas trop le principe dans les propriété ( comment afficher le resultat d'une requete dans un formulaire ? faut il le metttre dans un sous formulaire ou ds une zone de texte ? enfin plein de questions comme ça !!)


Merci Bibil & illight !!

c cool !!

[illight]

2- J'aimerai avoir une tutto sur les formulaires et tout ce qui va avec parce que la je galere pour par exemple faire en sorte que la date du jours s'affiche dans mon formulaire ! Je comprend pas trop le principe dans les propriété ( comment afficher le resultat d'une requete dans un formulaire ? faut il le metttre dans un sous formulaire ou ds une zone de texte ? enfin plein de questions comme ça !!)

Va dans la section tuto ici :
http://access.developpez.com/cours/

Et tu as celui de caféine, l'exemple type qu'on adore :
http://cafeine.developpez.com/access...echerchemulti/

[toniox]

Thx Messieur !!!


Une fois de plus vous m'avez tiré daffaire !!

Antoine !