Coup de main sur chemin d'accès

Bonjour les pros de la macro.

j'aurais besoin d'un coup de main concernant les chemins d'accès pour l'import de données.

Pour mon projet j'utilise deux logiciels qui ont accès à un dossier sur le réseau. Séparément les deux fonctionnent très bien par contre des que les deux sont ouverts en même temps Excel me garde le chemin d'accès en mémoire et l'autre logiciel ne peut pas faire l'export de ses données car il a besoin de supprimer et refaire le dossier existant.

Cependant comme le chemin d'accès et bloqué par excel il ne peut pas faire la suppression.

Savez vous comment je peux dire à Excel de ne pas garder ce chemin d'accès en mémoire afin de ne pas avoir besoin de le fermer à chaque fois, utiliser l'autre logiciel et réouvrir excel.

Voici le code que j'utilise pour l'import de mes données et qui garde en mémoire le chemin d'accès

chemin_tempo = ActiveWorkbook.Path
chemin = Left(chemin_tempo, InStrRev(chemin_tempo, "\"))
ChDir chemin & "02-CSV\"
 a = Application.GetOpenFilename("fichier CSV (*.csv), *.csv", _
                                 , "Sélection du fichier", , True)

Auriez-vous une solution s'il vous plait?

Bonjour, Je pense que ce problème vient de windows pas de Excel.

Vous essayez de supprimer un répertoire qui est actuellement utilisé par votre second fichier. windows n'acceptera pas.

La solution serait d'ajouter dans votre macro la fermeture du second fichier en début de macro puis la réouverture du second fichier en fin de macro.

Non le problème viens bien d'excel.

Quand je ne l'ai pas utilisé (excel) l'autre logiciel fonctionne très bien.

Par contre une fois excel utilisait, il garde en mémoire le chemin d'accès et l'autre logiciel ne fonctionne plus.

Sauf si je ferme excel et la l'autre logiciel refonctionne correctement.

Bonjour,

Si jamais quelqu'un cherche une solution, j'ai trouvé celle-ci

chemin_tempo = ActiveWorkbook.Path
chemin = Left(chemin_tempo, InStrRev(chemin_tempo, "\"))
ChDir chemin & "02-CSV\"
    a = Application.GetOpenFilename("fichier CSV (*.csv), *.csv", _
                                    , "Sélection du fichier", , True)

Select Case TypeName(a)
 Case Is = "Boolean"
     Exit Sub
 Case Else
     For b = LBound(a) To UBound(a)
         Workbooks.Open a(b)
     Next
End Select

ChDir chemin