Bonjour,
J'ai trouvé un bout de code dans la FAQ que j'ai adapté. Je cherche à récupérer le chemin d'accès à certains fichiers et j'ai écrit ça :
Malheureusement, le "Chem" n'est pas répercuté dans ma ligne 'Docmd' alors que le Msgbox me donne bien le chemin......
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Private Sub import1_Click() Dim objShell As Object, objFolder As Object, oFolderItem As Object Dim Chem As String Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&) On Error Resume Next Set oFolderItem = objFolder.Items.Item Chem = oFolderItem.Path & "\" MsgBox Chem DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "table1", Chem & "resultat.xls", True End Sub
Aurais-je oublié une ligne de commande ??
d'avance merci !!!
Mumu64
Partager