Discussion :

[elkhy]

Bonjour,

Le code suivant lit sur un répertoire donné tous les fichiers Excel et les importe dans une base access. Il importe plus particulièrement les onglets
"TestIndicateurs" et "Transpose".
Contrainte lié à mon application:
Ces 2 onglets doivent être masqués. Et le code ici présent marche très bien lorsque les onglets sont visibles,mais ne fonctionne pas lorsque je masque les onglets.
J'ai donc rajouté la procédure Sub "ToutAfficher" (que j'appelle juste avant l'import):
En utilisant le débugger pas à pas je passe bien dans l'onglet mais il me sort une erreur qui n'a aucun
rapport avec l'impossibilité de lire les feuilles masquées.

Voici le message d'erreur:
"Cette table contient des cellules hors de la plage de cellules définie dans cette feuille de calcul"

Hors je n'ai ajouté dans mon code que des informations pour rendre visible les feuilles, les plages définies étant les même qu'auparavant. Après avoir regardé ce message dans l'aide de windows puis sur le net, j'en déduis que le programme ne peut accéder à la feuille et sort donc un message d'erreur complètement incohérent.

Si quelqu'un pouvait me trouver une solution intermédiaire ou aurait déjà eu ce genre de pb, je lui en serait très reconnaissant de m'aider, car après avoir chercher longuement je ne comprends vraiment plus rien...

Merci à tous pour votre aide


Le code:

Sub ToutAfficher()

Dim ws As Worksheet
For Each ws In Worksheets
ws.Visible = True
Next
End Sub


Sub ImportAllFiles()
Dim strPathToFiles As String
Dim xlAppl As Excel.Application
Dim Wb As Excel.Workbook
Dim onglet As String
Dim ws As Excel.Worksheet
Dim Repertoire As String, Fichier As String

'Repertoire = "C:\Documents and Settings\dossier\"
Repertoire = "C:\Documents and Settings\dossierOngletMasque\"

Fichier = Dir(Repertoire & "*.xls")
Do While Fichier ‹› ""

Set xlAppl = CreateObject("Excel.Application")
strPathToFiles = Repertoire & Fichier

'Supprimer enreg table T_Import_Brut
DoCmd.RunSQL "DELETE FROM TImport"
DoCmd.RunSQL "DELETE FROM TImport2"

Set Wb = xlAppl.Workbooks.Open(FileName:=strPathToFiles, ReadOnly:=True)

Call ToutAfficher

For Each ws In Wb.Worksheets
If ws.Visible = True Then
onglet = ws.Name

If onglet = "TestIndicateurs" Then

' transfert vers table T_Import_Brut
DoCmd.TransferSpreadsheet acImport, 8, "TImport", strPathToFiles, False, onglet & "!H2:L201"

ElseIf onglet = "Transpose" Then

' transfert vers table T_Import_IG
DoCmd.TransferSpreadsheet acImport, 8, "TImport2", strPathToFiles, False, onglet & "!A1:F"

End If
End If
Next ws

Wb.Close False
setwb = Nothing
xlAppl.Quit
Set xlAppl = Nothing

Fichier = Dir
Loop
End Sub

[pgz]

Bonjour,

Tu dois avoir un pb de portée des variables excell.
En fait tu devrais planter là

For Each ws In Worksheets

Tu peux essayer de déclarer tes variables en tête du module ou alors essayer

Code :

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

1
2
3
4
5
6
7
8
Sub ToutAfficher(wb as excel.WorkBook)
 
Dim ws As Worksheet
For Each ws In wb.Worksheets
ws.Visible = True
Next
End Sub

L'appel deviendrait

Code :

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

call ToutAfficher(wb)

De toute façon 'WorkSheets' tout seul ne devrait rien donner.

Bon courage,

pgz

[elkhy]

Merci d'avoir regarder mon problème et merci pour ta réponse.
Malheureusement, cela donne toujours la même chose et le même message d'erreur.
La galère...
Si tu as une autre idée n'hésite pas.

Merci à tous pour votre aide

@+

[pgz]

Je viens de voir que tu ouvres le classeur en mode 'lecture seule'.

pgz

[elkhy]

Oui, et est-ce que cela peut avoir une influence sur l'importation des données ?(sachant que ça marche très bien lorsque les feuilles ne sont pas masquées)


D'avance merci

[pgz]

Faudrait voir où tu en es de ton code, après les premières modifs. A quelle ligne apparaît l'erreur?

A+
pgz

[elkhy]

Mille merci !!!
L'import fonctionne... Tu avais raison le problème se situait à ce niveau.
J'ai donc supprimé ce readOnly de ma ligne de code comme ceci:

Set wb = xlAppl.Workbooks.Open(FileName:=strPathToFiles)
', ReadOnly:=True)

J'ai un autre souci cependant:
A la fin de l'import, il me sort la boite de dialogue suivante:
"Fichier désormais disponible"
"monFichier.xls" est à présent disponible pour modification.
Ouvrez le fichier en lecture-écriture pour le modifier. (choix Lecture-Ecriture/Annuler)
Et après il plante sur mes fichiers excel. Donc je tue les processus à la main.

Je dois rajouter une instruction dans mon code pour éviter cela, mais quoi ??? lol

En tout cas mon importation avec les feuilles masquées marchent très bien maintenant mis à part ce souci.

Merci si tu peux encore me donner de ton temps.
@+

[pgz]

A quelle ligne apparaît l'erreur?

A+

pgz

[elkhy]

En fait il ne me fait pas de message d'erreur sur une ligne en particulier.
Il me fait l'import normalement, passe dans toutes les lignes du code sans problème.
C'est simplement à la fin une fois qu'il a terminé l'import, au lieu de m'affichier la boite de dialogue "import ok", comme je l'ai spécifié dans le bouton de mon formulaire, il me sort à la place le message que j'ai indiqué juste au dessus.

Excuse moi de ne pas t'avoir répondu plus tôt mais je n'avais plus le net à partir de 19h.

@+

[elkhy]

Donc à mon avis la ligne concernée est toujours celle-ci:

Set Wb = xlAppl.Workbooks.Open(FileName:=strPathToFiles)
', ReadOnly:=True)