re,
j'ai un soucis avec le code suivant, qui ne veut pas marcher :
pouvez vous me dire où est l'erreur?
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 Private Sub finitions_Click() On Error GoTo Err_finitions_Click db.TableDefs("COMPTE_PARCELLE1").Name = "COMPTE_PARCELLE" db.TableDefs("PDL1").Name = "PDL" db.TableDefs("LOT1").Name = "LOT" db.TableDefs("COMPTE1").Name = "COMPTE" db.TableDefs("COMPTE_PROPRIETAIRE1").Name = "COMPTE_PROPRIETAIRE" db.TableDefs("PROPRIETAIRE").Name = "PROPRIETAIRE" Exit_finitions_Click: Exit Sub Err_finitions_Click: MsgBox Err.Description Resume Exit_finitions_Click End Sub
(mon but est de renommer les tables pour enlever le 1 final)
Partager