Bug de CreateObject sous

Bonjour,

je suis passé d'office 2010 à 2016 et j'ai une ligne de commande qui ne passe plus:

    Dim RepDeBase As Variant
    Dim SousRep As Boolean
Set RepDeBase = CreateObject("Scripting.FileSystemObject").GetFolder(Range("C16"))

en C16 il y a le patch genre:

S:\CONSULTING\2-Démonstration\2019\\Fiche technique\

Pourtant ce code fonctionne encore sous office2010

Merci par avance pour votre aide

Bonjour Thomas, bonjour le forum,

Peut-être en décomposant (non testé) :

Dim FSO As Object
Dim RepDeBase As Object
Dim SousRep As Boolean

Set FSO = CreateObject("Scripting.FileSystemObject")
Set RepDeBase = FSO.GetFolder(Range("C16").Value)

Bonjour,

essaie ainsi :

Public Sub DEMO()
Dim fso As Object, fs As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fs = fso.GetFolder(Range("C16"))
End Sub

Bonjour,

merci pour vos réponse!

Ca bug a cette ligne

Set RepDeBase = FSO.GetFolder(Range("C16"))

Est ce que je dois cocher quelques chose dans les REFERENCES?

Re,

Normalement non !...

As-tu un message d'erreur ? Avec une erreur 76 par exemple ?

Cdlt.

Bonsoir,

comme tu ne précices pas le nom de la feuille pour range("C16"), la macro prend la valeur C16 de la feuille active.

Es-tu sur la bonne feuille (la feuille qui contient ta donnée en C16) lorsque tu lances ta macro ?

Merci pour vos réponse!

Je suis sur le bonne feuille. J'ai le code d'erreur '5' Argument d'appel ou de procédure incorrect

Bonjour,

peut-être le problème est-il dû au double "\" dans le nom du répertoire

remplace

S:\CONSULTING\2-Démonstration\2019\\Fiche technique\

par

S:\CONSULTING\2-Démonstration\2019\Fiche technique\

j'ai mal recopié le path, voici celui que j'utilise:

S:\CONSULTING\0-Collection\2019\WIP\ChocBear\

j'ai trouvé un article mais je ne comprends pas tout car c'est assez complexe:

https://stackoverflow.com/questions/18063224/excel-vba-fso-getfolderfolderpath-working-in-2007-but-not-2010

j'en ai marre j'ai d'autre codes qui bugent! Est ce que ça vaut vraiment la peine de passer sur 2016?

Je suis très bien sous office 2010.

Qu'en pensez vous?

est ce que vous continuer à utiliser office 2010 sans vous sentir obliger d'updater?

Rechercher des sujets similaires à "bug createobject"