Le code ne marche pas et je reçois ce message d'erreur: "Compile error: Argument not optional"

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour à tous,

comme indiqué dans le titre ci-dessus, je n'arrive pas à definer le problem auquel je suis confronté:
Voici mon code, il est censé parametrer l'importation de données depuis MS Excel 2010.
Code:

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 Private Sub cmdImportR_Click() On Error GoTo err_import MyFile = "\\soa-msb-fs\Rations Invoice & Budget\Database\Ration.xlsx" Set Mysh = MyFile.LaRequisition Set tb = [Commande Client] Call Importdata err_import: MsgBox Err.Description Resume Next End Sub Public Function Importdata(MyFile As Excel.Workbook, Mysh As Excel.Worksheet, tb As Table) On Error GoTo err_import 'Dim MyFile As New Excel.Application 'Dim tb As New Table 'Dim MaPlage As Excel.Range 'Set Mysh = MyFile.Worksheet DoCmd.TransferSpreadsheet acImport, , tb, MyFile.Mysh, True err_import: MsgBox Err.Description Resume Next End Function
NB. Je ne suis pas trop confortable en VBA.

Nouveau message d'erreur apres quelques modifications du code

Le nouveau message qui s'affiche est maintenant: Object Variable or With block variable not set
après que j'ai modifié le code comme suite:

Code:

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
Private Sub cmdImportR_Click()
 
On Error GoTo err_import
Dim db As DAO.Database
Dim MaTable As DAO.Recordset
Dim MonFichier As Excel.Workbook
Dim MaFeuille As Excel.Worksheet
Set db = CurrentDb
MonFichier = "\\soa-msb-fs\Rations Invoice '&' Budget\Database\Ration.xls"
MaFeuille = MonFichier.LaRequisition
Set MaTable = db.OpenRecordset("Commande Client")
Call Importdata(MonFichier, MaFeuille, MaTable)
err_import:
'MsgBox Err.Description
Resume Next
 
End Sub
 Public Function Importdata(MyFile As Excel.Workbook, Mysh As Excel.Worksheet, tb As Table)
 On Error GoTo err_import
 'Dim MyFile As New Excel.Application
 'Dim tb As New Table
 'Dim MaPlage As Excel.Range
 'Set Mysh = MyFile.Worksheet
 DoCmd.TransferSpreadsheet acImport, , tb, MyFile.Mysh, True
 err_import:
 MsgBox Err.Description
 Resume Next
 
 End Function

11/08/2014, 11h54
GreatTeacherOnizuka
Bonjour,

Effectivement, tu n'avais pas mis les paramètres au début dans ton Call.

Pour ce qui est de ta nouvelle erreur, as tu essayé de mettre des set pour définir ta feuille et ton fichier? Car l'erreur te dit qu'il manque des set.

Essaye par exemple:
Code:

1 2 Set MonFichier = "\\soa-msb-fs\Rations Invoice '&' Budget\Database\Ration.xls" Set MaFeuille = MonFichier.LaRequisition
Après je ne suis pas un spécialiste mais en tâtonnant, on finit par trouver.

1 pièce(s) jointe(s)

Merci

Merci a toi,
J'ai essaye cela sans success.
Par contre, j'ai proceder a des changements dans mon code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Public Function ImportData(ByVal MaTable As Variant, ByVal MyFile As Variant, ByVal Mysh As Variant) On Error GoTo err_import DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, MaTable, MyFile, True, Mysh err_import: MsgBox Err.Description Resume Next End Function Private Sub cmdImportD_Click() On Error GoTo err_import Dim tb As Variant Dim MonFichier As Variant Dim MaFeuille As Variant tb = "Delivery Details" MaFeuille = 2 MonFichier = "R:\RATIONS INVOICE & BUDGET\Database\Ration" Call ImportData(tb, MonFichier, MaFeuille) err_import: 'MsgBox Err.Description Resume Next End Sub
Et maintenant, j'ai comme l'impression que j'ai rate quelquechose dans la description de l'emplacement de mon fichier.

Nouveau message (ci-joint)

11/08/2014, 15h30
GreatTeacherOnizuka
Si tu es sûr du chemin que tu as écrit, tu peux essayer de mettre ça:
Code:

1 2 MonFichier = """R:\RATIONS INVOICE & BUDGET\Database\Ration"""
Il est fort probable que ce soit les espaces qui gênent.

Si ça ne marche pas comme je t'ai proposé ou en modifiant les espaces par des "_", dis moi.
13/08/2014, 08h25
bulmish

Citation:

Merci pour ton soutien, je ne crois pas que cela marche: je suis plutot en train de me demander si les restrictions d'acces au serveur peuvent influencer l'execution du code.
NB. J'y suis accepte en tant que utilisateur ordinaire mais j'ai acces a tous les fichiers s'y trouvant.
14/08/2014, 16h15
FewRa

Et ton fichier est bien un .xls (Excel 97-2003) ? si c'est un .xlsx c'est peut-être pour ça qui te fait un message d'erreur.
16/08/2014, 07h37
bulmish

Citation:

Le fichier est bien .xls; mais comme je l'est souligné auparavant, le nom du server doit peut-être causer le problème.
Je ne sais pas s'il faut utiliser l'adresse IP (que je ne connais pas d'ailleurs)

:salut:

Si tu reprends l'aide d'Access sur la fonction d'import de données d'excel, tu verras que les arguments sont des chaines de caractères.Ce qui donne au niveau de tes procédures :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub cmdImportR_Click()
 
On Error GoTo err_import
Dim strMaTable As String
Dim strMonFichier As String
MonFichier = "Chemin de ton fichier"
strMaTable = "Lecture"
Call Importdata(strMonFichier, strMaTable)
err_import:
Resume Next
 
End Sub
 Public Function Importdata(MyFile As String, tb As String)
 On Error GoTo err_import
 DoCmd.TransferSpreadsheet acImport, , tb, MyFile, True
err_import:
 MsgBox Err.Description
 Resume Next
 
 End Function

Bonne continuation

16/08/2014, 08h31
bulmish

Citation:

Merci pour ta contribution, je vais faire les changement et observer :mrgreen:

Presqu'au bout!

:D Effectivement, en remplaçant le mot Variant par String le programme retrouve le fichier mais pas la feuille:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Function ImportData(ByVal MaTable As String, ByVal MyFile As String, ByVal Mysh As String)
On Error GoTo err_import
DoCmd.TransferSpreadsheet acImport, , MaTable, MyFile, True, Mysh
err_import:
MsgBox Err.Description
Resume Next
 
End Function
Private Sub cmdImportD_Click()
On Error GoTo err_import
Dim tb As String
Dim MonFichier As String
Dim MaFeuille As String
tb = "Delivery Details"
MaFeuille = "Deliveries"
MonFichier = "R:\RATIONS INVOICE & BUDGET\Database\Ration"
Call ImportData(tb, MonFichier, MaFeuille)
err_import:
'MsgBox Err.Description
Resume Next
End Sub

16/08/2014, 16h18
bulmish

Mon problème revient donc à trouver comment accéder à une feuille particulère car le classeur contient différentes feuilles.
Merci à vous tous pour votre aide incommensurable toujours nécessitée.
17/08/2014, 07h26
Jeannot45

:salut:

En regardant l'aide d'access sur la fonction TransferSpreadsheet, tu trouves l'argument Range

Citation:

Range - Facultatif - Variante : Expression chaîne qui correspond à une plage valide de cellules ou au nom d'une plage de la feuille de calcul. Cet argument n'est valable que pour une importation. Laissez cet argument vierge pour importer la feuille de calcul entière. Lorsque vous effectuez une exportation vers une feuille de calcul, vous devez laisser cet argument vierge. Si vous tapez une plage, l'exportation échoue.

Si tu ne places aucun argument, il récupère les données de la première feuille de calcul.
A toi donc de nommer ta zone à importer si elle ne se trouve pas sur la première feuille de ton classeur ou alors indique le nom de l'onglet de la feuille à importer.

Bonne continuation

Dans la function ci-dessous, Mysh est cense être la feuille à importer.
Code:

1 2 3 4 5 6 7 8 Public Function ImportData(ByVal MaTable As String, ByVal MyFile As String, ByVal Mysh As String) On Error GoTo err_import DoCmd.TransferSpreadsheet acImport, , MaTable, MyFile, True, Mysh err_import: MsgBox Err.Description Resume Next End Function
Peut être que j'ai aussi manqué la description i.e string ou variant ...;)

17/08/2014, 15h14
bulmish

1 pièce(s) jointe(s)

Le message d'erreur

Je reçois donc ce message en attaché
18/08/2014, 07h59
Jeannot45

:salut:

La feuille que tu doit importer est-elle la première du classeur ?
Sinon, place la en premier et dans ta fonction d'import, supprime l'argument Mysh et fait un test d'importation
De mon coté cela fonctionne :?
18/08/2014, 17h32
bulmish

Effectivement cela marche, je l'avai deja essayer.
Mais ici, le classeur contient quatre differentes feuilles qui doivent importees dans 4 differentes tables.
Si je ne peux pas specifier la feuille a importer dans mon code, cela voudrait dire que je dois creer quatre differents classeurs avec une feuille chacun.
:) :arf:
19/08/2014, 07h38
Jeannot45

:salut:

Citation:

Si je ne peux pas spécifier la feuille a importer dans mon code, cela voudrait dire que je dois créer quatre différents classeurs avec une feuille chacun.

Pas forcément, tu peux utiliser aussi le principe des feuilles attachées. Chaque feuille correspondant à une table.
Chaque modification dans la feuille de calcul se répercute automatiquement au niveau de la table attachée.
Tu passes par :
- l'onglet : Données externes
- groupe : Importer - lier
- Outil : Excel

Dans la boite de dialogue tu choisis : Attacher et par le bouton "Parcourir" tu vas chercher le classeur contenant tes données. L'assistant te demande de choisir la feuille que tu souhaites attacher.

Voila une solution qui éviterai la programmation d'un import.
A toi de voir ;)

Bonne continuation
19/08/2014, 20h42
bulmish

Citation:

Salut

Citation:

Merci pour ta contribution; c'est effectivement ce que j'utilise actuellement.
Je cherchais à éviter toute mauvaise manipulation de ma base de données par un quelconque utilisateur vu que je dois donner l'accès à deux autres personnes pour les mise-à-jour. Moi j'ai le fichier installé dans Mes documents, je voulais donc le sauvegarder sur le server pour un usage collectif.

:D Qui cherche trouve :pc:

:salut:

On ne lache rien ! :D

Voici une solution à ton importation qui a l'air de fonctionner.
A chaque zone que tu veux importer, tu donnes un nom de portée Feuille et non Classeur
Voici ci-dessous le code correspondant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub cmdImportR_Click()
 
Dim strMaTable As String
Dim strMonFichier As String
Dim strZoneImportee As String
 
strMonFichier = "Chemin du Fichier"
strMaTable = "Table Destination"
strZoneImportee = "Onglet!NomZoneImportee"
Call Importdata(strMonFichier, strMaTable, strZoneImportee )
 
End Sub
 Public Function Importdata(MyFile As String, tb As String, ByVal mysh As String)
 On Error GoTo err_import
 DoCmd.TransferSpreadsheet acImport, 8, tb, MyFile, True, mysh
 Exit Function
err_import:
 MsgBox Err.Description
 Resume Next
 
 End Function

Bonne continuation

Voir 40 message(s) de cette discussion en une page

Fuseau horaire GMT +2. Il est actuellement 11h37.