Discussion :

[mumu64]

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 :

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

Malheureusement, le "Chem" n'est pas répercuté dans ma ligne 'Docmd' alors que le Msgbox me donne bien le chemin......

Aurais-je oublié une ligne de commande ??

d'avance merci !!!

Mumu64

[LedZeppII]

Bonjour,

Le code fonctionne chez moi.

Mets

Code :

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

    On Error GoTo 0

après

Code :

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

    Chem = oFolderItem.Path & "\"

pour vérifier s'il n'y a pas un autre problème.

Par exemple si Table1 existe mais que les champs du fichier "resultat.xls" ne sont pas les mêmes (noms différents) il y aura une erreur.

Code :

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

    On Error Resume Next

empêche de voir cette erreur si on ne met pas

Code :

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

    On Error GoTo 0

avant DoCmd.TransferSpreadsheet

A+

[mumu64]

Salut LedZeppII,

Effectivement, le fait de rajouter

Code :

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

On Error GoTo 0

m'a permis de trouver d'où venait mon erreur ! Dans ma question j'ai simplifié le code mais à un moment je précise la date et il y avait un 'oups' à ce niveau.

Je te remercie pour le coup de main !!!

A +

Mumu64

[mumu64]

Si je peux me permettre une autre question.....
Quand je clique sur annuler dans la boîte de dialogue du choix du répertoire, celui-ci annule le choix du chemin mais en prend un par défaut (mes documents) sans arrêter le code.
Est-il possible de stopper le code en appuyant sur annuler ??

D'avance merci !

mumu64

[LedZeppII]

Bonjour,

Quand l'utilisateur clique sur Annuler la variable objet objFolder reste à Nothing.
On peut ...

• Quitter la Sub si objFolder est Nothing
  

  Code :

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

  1
  2
  3
  4
  5
  6
      Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
      If objFolder Is Nothing Then
         MsgBox "Opération annulée"
         Exit Sub
      End If
      MsgBox Chem

• N'exécuter le code qui récupère le chemin que si objFolder n'est pas Nothing et tester plus loin le contenu de la variable Chem
  

  Code :

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

  1
  2
  3
  4
  5
  6
  7
  8
  9
  10
      Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
      If Not (objFolder Is Nothing) Then
         Set oFolderItem = objFolder.Items.Item
         Chem = oFolderItem.Path & "\"
      End If
      If Len(Chem) = 0 Then
         MsgBox "Opération annulée"
         Exit Sub
      End If
      MsgBox Chem

Remarque :

Code :

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

1
2
    Set oFolderItem = objFolder.Items.Item
    Chem = oFolderItem.Path & "\"

Ne fonctionne pas (génère une erreur) si le dossier est vide.
Moi je fais comme ça

Code :

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

    Chem = objFolder.Self.Path & "\"

A+

[mumu64]

Salut,

Je te remercie pour ces précisions, je teste tout ça demain et je te tiens au courant !

@ +

Mumu64

[mumu64]

Salut LedZeppII,

ça marche super bien !!!!! c'est génial !
Merci d'avoir pris le temps de répondre !

@ +

Mumu64