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