Discussion :

[graphikris]

Bonjour,

J'ai une base de données qui doit se mettre a jour en allant chercher des infos dans d'autres base de données mais lorsque j'ai créé la macro qui me permet (base de donnée principale ouverte puisqu'elle contient la macro) par exemple de :

1- Ouverture fichier Excel (BDD2.xls)
2- Copie cellules vers BDD principale
3- Ouverture fichier Excel (BDD3.xls)
4- Copie cellules vers BDD principale
5- Enregistre BDD principale
6- Fermeture BDD2 et BDD3

mon souci se présente entre le 5 et le 6, en effet la durée d'enregistrement est assez longue et Excel n'attend pas la fin de l'enregistrement et passe à la phase 6 donc l'enregistrement n'a pas le temps de se faire.

Peut on inclure une pause entre 5 et 6 ou une boite d'info nous disant que l'enreg. s'est bien déroulé et ensuite passer à la phase 6 ?

Slts

[pgz]

Bonjour

mon souci se présente entre le 5 et le 6, en effet la durée d'enregistrement est assez longue et Excel n'attend pas la fin de l'enregistrement et passe à la phase 6 donc l'enregistrement n'a pas le temps de se faire.

Ce comportement paraît curieux. A ta place, je commencerais par essayer de trouver l'origine du pb, plutôt qu'un palliatif.

Cordialement,

PGZ

[HopPopPop]

Bonjour à tous,

1. Pourquoi ne pas fermer les fichiers BDD2 & 3 après avoir copié ce qui est nécessaire, avant de passer à l'enregistrement du BDD Principal ?
2. Il est possible de récupérer des données d'un fichier sans avoir à l'ouvrir ...

[graphikris]

Bjr HopPopPop,
la solution me parait interessante mais comment fait on ?

Slts

[clementmarcotte]

Bonjour

Va voir là:

http://frederic.sigonneau.free.fr/Ado.htm

[patricktoulon]

n'en sachant pas plus sur le context
un exemple

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
Sub test1()
Application.ScreenUpdating = False ' on enleve le rafraichissement de l'ecran
Application.DisplayAlerts = False ' on enleve tout les message d'avertissement
Dim wbkprincipal, wbkBDD2 As Workbook, wbkBDD3 As Workbook, tablobdd2, tablobdd3 ' declarations des variables
Set wbkprincipal = ThisWorkbook 'wbkprincipal devient le classeur actuel (BDD principale)
Set wbkBDD2 = Workbooks.Open("chemin de ton BDD2") ' on ouvre le classeur bdd2
tablobdd2 = wbkBDD2.Sheets(1).Range("A1:F1") ' on met la plage (a1:f1)du 1er sheets dans une variable tableau
wbkBDD2.Close 'on ferme bdd2
Set wbkBDD3 = Workbooks.Open("chemin de ton BDD3") ' on ouvre le classeur bdd3
tablobdd3 = wbkBDD3.Sheets(2).Range("A1:F1") ' on met la plage (a1:f1) du 2 eme sheets dans une variable tableau
wbkBDD3.Close 'on ferme bdd3
 
 
 ' maintenant on a 2 variables tableaux qui sont remplie par le passage eclair dans les deux BDD
 'on les pose ou on veux en l'ocurence ici en ligne 1 et 2 pour l'exemple
 wbkprincipal.Sheets(1).Cells(1, 1).Resize(UBound(tablobdd2), 6) = tablobdd2
wbkprincipal.Sheets(1).Cells(2, 1).Resize(UBound(tablobdd3), 6) = tablobdd3
End Sub