Bonjour à toutes et à tous.
Je suis début VBA mais je me soigne. (Enfin j'essaye)
J'ai créé sur un formulaire un bouton de commande qui lance une Sub.
Cette Sub ouvre un fichier Excel dont elle ordonne les données pour ensuite mettre à jour une table existante de cette même base.
Cette Sub fonctionne parfaitement sur 2 bases access.
Par contre lorsque je l'installe sur d'autres bases, la Sub se bloque sur Columns("A:Z").Select qui s'affiche en jaune et je reçois le message en titre.
Voici le début de la Sub
Malgré mes recherches, je n'arrive pas à trouvez la solution et je ne comprends pas pourquoi elle fonctionne sur certaines base et pas d'autres.
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 Option Compare Database Option Explicite Private Sub BtCliMaj_Click() Dim strMonFichierExcel As String Dim strRepertoireExcel As String On Error GoTo ERR_BtMail strRepertoireExcel = "C:\Users\Toto\Desktop\" strMonFichierExcel = strRepertoireExcel & "BaseClients.xls" MsgBox strMonFichierExcel, 64, "Vous allez formater le fichier Excel suivant :" 'Uniquement pour vérifier si le chemin est correct Dim appExcel As Object Set appExcel = CreateObject("Excel.Application") appExcel.Visible = True With appExcel .Workbooks.Open strMonFichierExcel Columns("A:Z").Select Selection.UnMerge Columns("M:N").Select Selection.ColumnWidth = 9.57 Columns("P:P").Select Selection.ColumnWidth = 7.71
D'avance merci pour votre aide si vous avez une idée.
Cdt
Partager