Discussion :

[CALOU3117]

Bonjour,

Après avoir fractionné une base access,l'exécution d'un code vba est très longue. Mon code vba sert à ouvrir des fichiers qui se trouve sur un réseau et importer certaines données dans une table ACCESS.

La base qui contient les tables se trouve sur un autre réseau et la table contenant les formulaires, requêtes... se trouve sur mon bureau.

Voici le code vba en question :

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
51
52
53
54
55
56
57
58
59
Private Sub Commande0_Click()
 
Set oApp = CreateObject("excel.application")
Set oWkb = oApp.Workbooks.Open("U:\DR076\DRAPS\TRANSVERSE\EMPLOI\CDD\SUIVI CDD\Tableau de bord commun CDD 2021.xlsb", ReadOnly:=True)
Set oWSht = oWkb.Worksheets("Base")
'premier ligne ou tu commence ton import
i = 5
 
'pour éviter les messages lors de l'ajout des enregistrements
DoCmd.SetWarnings False
 
'tant que la cellule n'est pas vide
While oWSht.Range("A" & i).Value <> ""
If oWSht.Range("G" & i) > CDate("31/05/2021") Then
cSQL = "insert into [cdd]([Direction],[Agence/Service],[Matricule GA],[TH],[Nom Prénom],[coef début contrat],[Date embauche],[Date fin prévue Date sortie],[Date fin période essai],[Renouvellement surcroit],[Motif Sortie CDD],[ETP],[Type de contrat],[Motif Remplacement ou Surcroit],[Enveloppe impactée],[Emploi],[Code emploi],[Matricule Personne Remplacée],[Personne Remplacée],[Balma Vauguières]) values (" & Chr(34) & oWSht.Cells(i, 1) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 2) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 3) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 4) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 5) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 6) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 7) & Chr(34) & "  , " & Chr(34) & oWSht.Cells(i, 8) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 9) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 10) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 11) & Chr(34) & "," & _
Chr(34) & oWSht.Cells(i, 12) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 13) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 14) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 15) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 16) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 17) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 18) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 19) & Chr(34) & "," & Chr(34) & oWSht.Cells(i, 22) & Chr(34) & ")"
 
 
 'exécute la requète
 DoCmd.RunSQL cSQL
 
 End If
  i = i + 1
 
Wend
 
CurrentDb.QueryDefs("MAJ GESTIONNAIRE CDD").Execute
 
DoCmd.SetWarnings True
 
Set oApp = CreateObject("excel.application")
Set oWkb = oApp.Workbooks.Open("U:\DR076\DRAPS\TRANSVERSE\EMPLOI\SUIVI DES MOUVEMENTS.xlsm", ReadOnly:=True)
Set oWSht = oWkb.Worksheets("MOUVEMENTS ")
'premier ligne ou tu commence ton import
i = 3
 
'pour éviter les messages lors de l'ajout des enregistrements
DoCmd.SetWarnings False
 
'tant que la cellule n'est pas vide
While oWSht.Range("G" & i).Value <> ""
If oWSht.Range("T" & i) > CDate("31/05/2021") Then
cSQL = "insert into [cdi]([DT],[MOTIF],[N°offre],[BDE],[DOCUMENTS],[MATRICULE],[NOM Prénom],[STATUT],[ANCIENNE AFFECTATION],[ANCIEN EMPLOI],[NOUVELLE AFFECTATION],[Code service],[NOUVEL EMPLOI],[Code emploi],[OUI/NON],[ANCIEN COEF/ ECHELON],[NOUVEAU COEF],[NOUVEAU ECHELON],[DATE D'EFFET]) values (" & Chr(34) & oWSht.Cells(i, 1) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 2) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 3) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 4) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 5) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 6) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 7) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 8) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 10) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 11) & Chr(34) & "," & _
Chr(34) & oWSht.Cells(i, 12) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 13) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 14) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 15) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 16) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 17) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 18) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 19) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 20) & Chr(34) & ")"
 
 
 'exécute la requète
 DoCmd.RunSQL cSQL
 
 End If
  i = i + 1
 
Wend
 
CurrentDb.QueryDefs("MAJ GESTIONNAIRE CDI").Execute
 
DoCmd.SetWarnings True
MsgBox "Traitement terminé"
End Sub

Y a t'il un moyen de rendre l'éxécution beaucoup plus rapide

Merci par avance,

Bien cordialement

[Jean-Philippe André]

Salut,

la réponse est dans ton énoncé

La base qui contient les tables se trouve sur un autre réseau et la table contenant les formulaires, requêtes... se trouve sur mon bureau.

Travailler sur "deux réseaux" différents apporte forcément des latences.

Est-ce qu'au moins ton lecteur U: est local ?

[CALOU3117]

Bjr

Non je ne crois pas. Est ce si je les tables sur le lecteur u cela arrangera les choses

Merci

[User]

Bonjour à vous deux

En complément de la piste réseau, n'y aurait-il pas moyen d'exécuter une seule requête SQL, avec un code de ce type :

Code :

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

1
2
3
4
5
6
7
sSQL = "INSERT INTO [cdi] " & _
            "SELECT * " & _
            "FROM [Excel 8.0;HDR=YES;DATABASE=" & cheminFichier & "].[" & nomFeuille & "$A2:T30000] AS T1 " & _
            "WHERE (T1.[Colonne_Date]>#05-31-2021#);"
 
'exécute la requête
 DoCmd.RunSQL sSQL

• SELECT * : vous pouvez choisir ici vos colonnes (voir entêtes de colonnes de la feuille Excel)
• HDR=YES : indique qu'il prend les entêtes de colonnes
• cheminFichier : contient le chemin complet du fichier Excel
• T1 : désigne la feuille Excel
• [Colonne_Date] : désigne la colonne de la feuille contenant les dates.

Cdlt,

[Pierre Fauconnier]

Salut.

Avant l'éclatement de la base, le fichier Access unique était déjà sur U:\ ou bien sur ton bureau? Ca permettrait d'inculper ou de disculper le réseau. Si U:\ n'est pas local, est-il en réseau interne ou par vpn? Si c'est par vpn, ça va forcément être catastrophique en terme de latence et de consommation de bande passante puisque pour Access, le moteur est dans ton pc. Ca veut dire que c'est de ton côté du réseau que tout le traitement se fait et que les données sont lues ou écrites au travers du vpn et donc d'internet... Ca va forcément être lent. Et je n'ose même pas imaginer si le fichier Excel est sur U:\ également.

[CALOU3117]

Bonjour

Je l'ai testé pour l'instant en étant en télétravail donc je suis connectée aux réseaux de mon employeur par pulse secure. Il vrai que pour une autre base de données qui est fractionnée egalement sur laquelle notre service travaille, c'est réactif lorsqu'on est sur site et lent lorsqu'on est en télétravail sauf éventuellement le soir tard.

[Pierre Fauconnier]

Je suppose que Pulse Secure propose un vpn mais que tu travailles de ton poste, sans lancer un bureau à distance.

Access ne saurait qu'être très lent avec un vpn, qui n'est vraiment pas la bonne configuration pour ce genre de travail. Le travail serait déjà soulagé en attaquant un dorsal MS SQL Server, si le travail par VPN devrait persister, mais le mieux serait de pouvoir disposer d'un bureau à distance. Les communications par le VPN se limitent alors à l'échange des signaux écran et clavier, et tu retrouverais un confort de travail avec tes bases Access.

[CALOU3117]

Le Bureau à distance peut il être installé sans compromettre les sécurités mis en place par mon employeur. Est ce payant ou accessible sur n'importe quel poste ? Merci

[Pierre Fauconnier]

Je ne suis pas du tout un spécialiste: Un début de réponse en suivant ce lien. L'IT de ta boite devrait pouvoir t'en dire plus et envisager les différentes possibilités. Il n'y a pas que le bureau à distance de Microsoft, d'autres boites, Citrix par exemple, proposent des solutions analogues. Si ça tombe, ta boite a déjà de quoi t'installer cela.

Tu trouveras probablement plus d'infos sur notre forum Windows ou sur notre forum Virtualisation.