Discussion :

[Harry Covair]

Bonjour le forum,

J'ai un souci dans un code VBA
Si j'écris

Code :

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

Set objFolder = objShell.Namespace("c:\users\xx\photo")

l'objet objFolder prend la valeur "photo"
Par contre, si j'utilise le code

Code :

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

1
2
3
4
5
6
With Application.FileDialog(msoFileDialogFolderPicker)
  .AllowMultiSelect = False
  .Show
  FolderName = .SelectedItems(1)
End With
Set objFolder = objShell.Namespace(FolderName)

et que je sélectionne le même dossier, la variable string FolderName contient bien le chemin complet du dossier sélectionné mais l'objet objFolder prend la valeur "empty".
Dans les deux cas, "objFolder" est défini comme Object


Un membre du forum pourrait-il m'expliquer comment alimenter un objet par une variable string

D'avance merci

Harry

[PMO2017]

Bonjour,

Essayez

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub aa()
Dim objShell As Object
Set objShell = CreateObject("shell.application")
 
With Application.FileDialog(msoFileDialogFolderPicker)
  .AllowMultiSelect = False
  .Show
  FolderName = .SelectedItems(1)
End With
 
Set objfolder = objShell.Namespace(FolderName)
MsgBox objfolder.Title
Set objShell = Nothing
End Sub

[Harry Covair]

Bonsoir PMO2017,

Vous m'avez donné, indirectement, la solution.
En insérant votre code dans mon application, il y a toujours un message d'erreur (object not set).
En fait, vous n'avez pas défini la variable "FolderName" ce qui en fait automatiquement un variant.
Comme je travaille toujours avc l'option explicit active, j'ai simplement défini "Foldername" en variant et le code s'exécute sans souci.

Merci pour votre contribution.

Harry.