Alimentation d'un objet par une variable string

Bonjour le forum,

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

Code:

---

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

---

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

Code:

---

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

Bonjour,

Essayez

Code:

---

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

---

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.