Bonjour,
J'espère être dans la bonne rubrique. j'utilise le code d'un collègue, ce fichier doit extraire des données d'une base avec MsQuery.
Je débute et je ne comprends pas trop le code. Pourriez-vous m'aider ?
Pour cette partie je crois comprendre qu'il met à jour en fonction des tables les unes après les autres mais je n'en suis pas sur.
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
 
    Sheets("Materiel").Select
    Range("A1").Select
 
  Dim TheEnd As Boolean, T As Integer
 
  With Worksheets("Materiel")
 
        T = 1: TheEnd = True
        While End
            .QueryTables(T).Refresh False
            If .QueryTables(T).Refreshing = False Then
              If T< .QueryTables.Count Then
              T = T + 1
            Else
               TheEnd= False
               End If
            End If
         Wend
 
   End With
Sur cette partie de sub comment interpréter Le EnableAutoRecover
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
 
On Error GoTo FIN
 
    Workbooks(Recenssement).Activate
    ActiveWorkbook.EnableAutoRecover = False
    Ouverture = True
    Workbooks(Recenssement).Close
    Call ImportDonnees
    Exit Sub
 
FIN:
    Ouverture = False
    Application.Wait (Now + TimeValue("0:00:05"))
 
    ImportDonees2
Merci pour votre aide
MichaSarah