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

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
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.

D'avance merci pour votre aide si vous avez une idée.

Cdt