Le plus important n'est pas le chemin parcouru mais le but atteint.
Hello désolé, j'étais en cours@Etoto,
pour comprendre le problème de Léa, pourriez vous décompresser cette PJ sur votre bureau et lancer Compare2.xlsm, SVP ?
Il n'y a rien à toucher les chemins sont bons.
Vous devriez obtenir :
Regarde la pièce jointe 1122723
Re,Bonsoir,
Allons y doucement.
1- Vous créer un dossier sur votre bureau ( ou ailleurs )
2- Vous enregistrez dans ce dossier les trois PJ.
3- Vous ouvrez le fichier Compare V3.xlsm sans rien toucher
4- Vous appuyez sur le bouton, vous devriez obtenir :
Regarde la pièce jointe 1122877
Si ça ne marche pas, alors essayez de mettre les deux chemins complets et ré essayez.
NB: J'ai essayé de reconstruire un fichier Compta avec la même structure que précédemment, modifié les valeurs compatibles du fichier Trésor et introduit des erreurs.
Donnez moi le résultat.
Mais non tu abuses pas ! C'est toujours un plaisir de voir tes fichiersBonjour Etoto,
Je pense qu'il faut mettre les chemins complets pour que ça marche : "C:\...."
Ca marche quand il n'y a que le nom dans certains cas particuliers, piège dans lequel je suis tombé.
Si vous ouvrez XL puis faites ouvrir et choisissez le bon fichier, alors ça marche, car XL a mémorisé le chemin courant.
Dans cette PJ j'ai rajouté : ThisWorkbook.Path pour reconstruire le chemin complet, mais ça oblige à avoir les trois fichiers dans le même dossier.
Pouvez vous retestez avec ces trois fichiers ? ( Je sais j'abuse )
@Léa, testez aussi avec ces trois fichiers, n'utilisez pas la V3 sauf à y mettre les chemins complets.
Sub essai()
[B1] = ThisWorkbook.Path & "\" & ThisWorkbook.Name
[B2] = CurDir & "\" & ThisWorkbook.Name
End Sub
ThisWorkbook.Path | C:\Users\PC_PAPA\Desktop\Lea - V2\Essai.xlsm |
CurDir | C:\Users\PC_PAPA\Desktop\Lea - V2\Essai.xlsm |
Oui, c'est un serveur d'une organisation.Le chemin qui semble être utilisé chez vous commence par "\\" et le dossier est sur le bureau.
Oui mais je ne vais pas dire le chemin exact (je vais modifier les noms et lieus) que c'est une entreprise et que je dois respecter le RGPD. Il te suffira de me dire où dois-je placer ce chemin.
Je ne comprends plus.
Le chemin qui semble être utilisé chez vous commence par "\\" et le dossier est sur le bureau.
J'ai fait un essai avec :
Et j'obtiens bien :VB:Sub essai() [B1] = ThisWorkbook.Path & "\" & ThisWorkbook.Name [B2] = CurDir & "\" & ThisWorkbook.Name End Sub
sans ce "\\" au début.
ThisWorkbook.Path C:\Users\PC_PAPA\Desktop\Lea - V2\Essai.xlsm CurDir C:\Users\PC_PAPA\Desktop\Lea - V2\Essai.xlsm
Et ça correspond bien à ce que donne l'explorateur :
Regarde la pièce jointe 1122935
Pouvez vous mettre cette PJ dans le même dossier et me dire ce qu'il y a dans B1:B2 après avoir appuyé sur le bouton ?
En effets, surtout que la solution est nickel maintenant.Léa n'a pas donné de ses nouvelles, j'espère qu'elle n'a pas laisser tomber.
Compta = ThisWorkbook.Path & "\" & [E3]