Import de feuilles masquées dans Access

Question

Bonjour,


Le code suivant lit sur un r&#233;pertoire donn&#233; tous les fichiers Excel et les importe dans une base access. Il importe plus particuli&#232;rement les onglets
"TestIndicateurs" et "Transpose". J'avais cependant oubli&#233; une contrainte li&#233; &#224; mon application:
Ces 2 onglets doivent &#234;tre masqu&#233;s. Et le code ici pr&#233;sent marche tr&#232;s bien lorsque les onglets sont visibles,
mais ne fonctionne pas lorsque je masque les onglets.
J'ai donc rajouter la proc&#233;dure Sub "ToutAfficher" (que j'appelle juste avant la lecture en rouge dans le code):
En utilisant le d&#233;bugger pas &#224; pas je passe bien dans l'onglet mais il me sort une erreur qui n'a aucun 
rapport avec l'impossibilit&#233; de lire les feuilles masqu&#233;es.
 
Voici le message d'erreur:
"Cette table contient des cellules hors de la plage de cellules d&#233;finie dans cette feuille de calcul"


Hors je n'ai ajout&#233; dans mon code que des informations pour rendre visible les feuilles, les plages d&#233;finies
&#233;tant les m&#234;me qu'auparavant. Apr&#232;s avoir regard&#233; ce message dans l'aide de windows puis sur le net, j'en d&#233;duis que le programme ne peut acc&#233;der &#224; la feuille et sort donc un message d'erreur compl&#232;tement incoh&#233;rent.


Si quelqu'un pouvait me trouver une solution interm&#233;diaire ou aurait d&#233;j&#224; eu ce genre de pb, je lui en serait 
tr&#232;s reconnaissant de m'aider, car apr&#232;s avoir chercher longuement je ne comprends vraiment plus rien...


Merci &#224; 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 &#139;&#155; "" 


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

valtrase · Answer

Salut,
tu n'appliques pas la bonne syntaxe pour la m&#233;thode visible
essaie ceci

Sub ToutAfficher()


Dim ws As Worksheet
For Each ws In Worksheets
ws.Visible =  xlSheetVisible
Next
End Sub
tu peux donner les valeurs
xlSheetVisible
xlSheetHidden
xlSheetVeryHidden

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

devba77 · Answer

Merci beaucoup pour ta réponse.

J'ai testé et retesté avec ta méthode, malheureusement cela ne change rien à mon pb. Mais il n'importe aucune donnée. Il ne passe même pas par l'instruction "If onglet = "TestIndicateurs" Then" 

Que dois-je faire ???

Merci à tous pour vos réponses

valtrase · Answer

Salut, As tu changer aussi cette ligne ? For Each ws In Wb.Worksheets ~~If ws.Visible = True Then~~ If ws.Visible = xlSheetVisible Then onglet = ws.Name Attention aussi à la Case mieux vaut travailler en minuscule avec Lcase Cordialement, Jean-Paul ______________________________________________________________________ Le Savoir n'a de valeur que s'il est partagé

Import de feuilles masquées dans Access

3 réponses

Discussions similaires