Discussion :

[nico.chev]

Je souhaite effectuer une importation des cellules de L5C1 à L6C15 de la feuille serveur.

Code :

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

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Tbl_test", "c:\Test nico\Fiche_navette_omnivision.xls", True, "Serveurs!(L5C1:L6C15)"

Il y a une erreur. qq peut me dire ou elle est. Je sais que ca vient du champ d'etendu mais je n'arrive pas à résoudre le probleme.

[nico.chev]

Ca y est , j'ai trouve, il faut convertir les colonnes en lettre:
ex:L1C1 en A1 et L5C15 en O5

[nico.chev]

autre petit non GROS probleme avec cette fonction.

1°) Il y a dans mes fichiers une macro. Si le fichier n'est pas ouvert sous excel et la macro desactivée, le transfert ne peut pas se faire. comment faire soit pour skipper ce probleme soit pour ouvrir un fichier excel précis???

2°) Je souhaite mettre à la place de "c:\Test nico\Fiche_navette_omnivision.xls" un *.xls en sachant que tous les fichiers xls dans le repertoire sont de la meme catégorie.
---> le * ne fonctionne pas.
J'ai donc penser à renommer les fichiers en 1.xls, 2.xls.... et faire une boucle mais le probleme est toujours le meme concernant le remplacement du champ "classeur"???

[nico.chev]

Personne n'a d'idée.....

[jfc]

Tu consacres un répertoire ou tu ne mets que tes fichiers XLS à transférer.

Ensuite tu recherches tous les fichiers *.XLS avec le code DIR
avec un code de ce genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
MonFichier = Dir(*.XLS)
 
If MonFichier = "" then exit sub
 
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Tbl_test", MonFichier, True, "Serveurs!(L5C1:L6C15)"
 
Do until Dir <> ""
MonFichier = Dir
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Tbl_test", MonFichier, True, "Serveurs!(L5C1:L6C15)"
 
Loop

[/code]

[nico.chev]

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
Dim chem as string
Dim Monfichier as string
 
chem = "c:\Testnico\"
MonFichier = Dir(chem & "*.XLS") 
 
If MonFichier = "" then exit sub 
 
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Tbl_test", chem & MonFichier, True, "Serveurs!(L5C1:L6C15)" 
 
Do until Dir <> "" 
MonFichier = Dir 
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Tbl_test", chem & MonFichier, True, "Serveurs!(L5C1:L6C15)" 
 
Loop

Ca copie bien le premier fichier xls dans ma table mais pas le second.

[nico.chev]

:trouve: VOILA La soluce pour ceux que ca interresse.
a toi jfc

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
Private Sub Commande7_Click()
Dim MonFichier As String
Dim chem As String
 
chem = "c:\Testnico\"
 
MonFichier = Dir(chem & "*.txt")
 
If MonFichier = "" Then Exit Sub
 
DoCmd.TransferText acImportDelim, , "TBL", chem & MonFichier, False
MonFichier = Dir
Do While MonFichier <> ""
DoCmd.TransferText acImportDelim, , "TBL", chem & MonFichier, False
MonFichier = Dir
Loop
 
End Sub