Discussion :

[MatMeuh]

Bonjour

J'ai 1 fichier excel dont j'importe 3 onglets comme suit avec un code VBA

Code :

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

1
2
3
4
5
6
7
8
9
 
For i = 1 To 3
    Select Case i
      Case 1: str_Table = "Onglet1"
      Case 2: str_Table = "Onglet2"
      Case 3: str_Table = "Onglet3"
    End Select
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, str_Table, NomFichier, True, str_Table
  Next i

Les 2 premiers onglets ne posent aucun problème... mais le troisième... quelle misère !!! il ne m'importe pas les entêtes ou plutot les entêtes de ma table sont les données de la première ligne... tout comme si j'avais mis "false" dans l'avant-dernier arg' de TransferSpreadSheet

Qqn a t'il une parade contre ce qui semblerait être un bug ???

PS: un pansement serait d'insèrer avec "false" pour les 3 puis de nommer moi-même les entêtes de colonne dans mon code VBA mais je ne sais pas comment faire !

a++ et merci

[argyronet]

Bonjour,

Si cela marche pour 2 onglets ça doit marcher pour tous...
En cas d'échec, il se peut qu'il y ait un problème de conformité de nom de colonne (Espace par exemple)...

Si tu veux mettre True pour les 2 premier et False pour le 3ème, tu peux faire ceci:

Code :

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

1
2
3
4
For I = 1 To 3
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
"Onglet" & Trim(Str(I)), NomFichier, (I<>3), str_Table
Next

Mais bon, examine plutôt tes colonnes et essaye de transférer manuellement ta table... Access devrait de donner un message d'erreur conséquent...

Argy

[MatMeuh]

Ce qui est extrement étrange est que l'intégration à la main ne pose aucun prob....

quand je fais transferspeadsheet avec le paramètre "false", j'ai les entetes qui sont F1, F2...
quand je fais transferspeadsheet avec le paramètre "true", j'ai les entetes qui sont ma première ligne de données (ligne 2 du fichier excel)

Je suppute que le prob vient de excel qui fait croire que la première ligne du fichier est en fait la seconde...

des idées ???

[argyronet]

C'est un problème connu mais dont la source peut provenir de différentes pistes.
Est-ce que NomFichier possède des espaces dans sa spécification ?
Essaye sans...

Argy

[MatMeuh]

et bien... en mettant

Code :

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

&"!"

à la fin de ma ligne du TransferSpreadSheet, ca marche mieux... mais c'est pas encore la folie... y'a un tas d'espace blanc qui est importé sur les 2 onglets qui marchaient bien...

sinon, j'ai remarqué que le problème vient en fait de l'excel : le mec qui a généré le fichier a nommé des "zones" (genre comme des variables mais sur plusieurs cases) au titre des onglets... quel boulet !!!seul soucis, je ne peux pas modifier le formalisme excel d'entrée!!!


avez vous une "solution ultime" ? merci !!!

[argyronet]

Le nom des zones porte le nom des onglets ?
Comme ceci par exemple :

Code :

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

=Feuil1!B$3

ou ceci

Code :

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

=Feuil2!$B$3

Si oui, il n'y a pas de boulet Ou en tout cas, ce n'est pas lui...

Si tu pars d'access et que ton classeur est immuable alors il faut biaiser :
Tu créésun nouveau classeur dans l'instance en cours dans laquelle via VBA OLE, tu copies ce qui t'intéresse, dûment nommé au niveau des colonnes après quoi tu effectues ton transfert après avoir enregistré ce classeur puis détruit une fois terminé...

Argy

[MatMeuh]

je pense quand meme qu'il y a boulet car le mec a :

-sélectionné les 200 lignes de 2 à 201,
-cliqué dans la case blanche en haut à gauche (où l'on voit, "A1", "A2"...)
-nommé cette sélection "onglet1" ou "onglet2" suivant le cas...

donc quand tu fais dans TransferSpreadSheet un param "onglet1" il prend les lignes 2 à 201

en fait ca marche comme si il avait créé un objet contenant ces lignes...

alors un tip's ?