Discussion :

[ELOAN44]

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

[marot_r]

Bonjour.

Je pense que la collection Columns() n'a pas d'environnement par défaut.

Personnellement je ferai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
dim classeur as Object
set classeur= appExcel.Workbooks.Open(strMonFichierExcel)
 
dim feuille as Object
set feulle=classeur.Worksheets(1)
 
feuille.Columns("A:Z").Select

A+

[ELOAN44]

Bonsoir,
Merci pour la rapidité de votre réponse.
Malheureusement j'ai la même erreur, rigoureusement identique à celle décrite avant.
J'ai bien entendu vérifié le nom de la procédure.
J'ai trouvé ceci sur de Microsoft mais je ne comprend pas ce que ca veut dire.

"Rechercher le nom du projet contenant la procédure que vous souhaitez appeler le références boîte de dialogue.
Si elle n’apparaît pas, cliquez sur le Parcourir bouton pour le rechercher. Cochez la case située à gauche du nom du projet, puis cliquez sur OK."

"Vérifiez le nom de la routine."

Merci pour vos lumières.
Les miennes commencent à s'éteindre après des heures de recherche

Bonne soirée
Cdt

[ELOAN44]

Re-Bonsoir,

Quand on vous donne une réponse précise encore faut-il la suivre scrupuleusement.
Je n'avais pas feuille. devant Columns
Mes excuses.

Sauf que si je le fais, l'erreur se positionne à la ligne suivante.
Faut-il que je mette feuille. devant chacune des lignes de ma procédure ?
Et pour quelle raison ca fonctionne avec la procédure que j'ai écrite sur certaines bases et pas d'autres.
Mystère !!

Bonne soirée.
Cette fois-ci je prends un peu de repos face à ce satané Bug.

Cdt

[ELOAN44]

Bonjour,
Je n'ai pas trouvé
Je m'y suis pris autrement
Cdt