Microsoft 365 changer chemin d'accès d'un classeur excel ?

[miroma]

Bonjour à tous
je suis Miroma, et je cherche comment changer l'accès d'un classeur ( qui est sur le bureau , et que je voudrais mettre dans un dossier dans mes documents
avec un code qui est existant ) mais classeur sur bureau
ci-joint un code

 

[soan]

Bonjour miroma,

bienvenue sur le site XLD !

ton fichier en retour ; attention : lis attentivement
tous les commentaires mis dans le code VBA !

---

code VBA :

Option Explicit

Sub Lecture()
  Dim Chemin$, Fichier$, lig&, k&: Application.ScreenUpdating = 0
 
  'Chemin = le dossier où tu as mis ce fichier Excel,
  'par exemple : C:\Users\miroma\Documents\
  Chemin = ThisWorkbook.Path & "\"
 
  'OU si tu préfères utiliser un sous-dossier, par exemple "Comptabilité",
  'tu auras : C:\Users\miroma\Documents\Comptabilité\
  'Chemin = ThisWorkbook.Path & "\Comptabilité\"
 
  Fichier = "Comptes.xlsm"
 
  For lig = 3 To 62
    k = lig + 148
    With Cells(lig, "BJ")
      .Value = ExecuteExcel4Macro("'" & Chemin & "[" & Fichier & "]cpt '!R" & k & "C2")
      .Offset(, 1) = ExecuteExcel4Macro("'" & Chemin & "[" & Fichier & "]cpt '!R" & k & "C3")
      .Offset(, 2) = ExecuteExcel4Macro("'" & Chemin & "[" & Fichier & "]cpt '!R" & k & "C4")
      .Offset(, 3) = ExecuteExcel4Macro("'" & Chemin & "[" & Fichier & "]cpt '!R" & k & "C5")
    End With
  Next lig
 
  [K1] = ExecuteExcel4Macro("'" & Chemin & "[" & Fichier & "]Vos comptes'!R4C3")
  [AY39] = ExecuteExcel4Macro("'" & Chemin & "[" & Fichier & "]Vos comptes'!R1C1")
End Sub

soan

 

[miroma]

Bonjour,
merci de m'avoir répondu c'est gentil !
je met ( C:\Users\miroma\Documents\Comptabilité\ ) comme ça ? ou après le slache ( \ )
Chemin = ThisWorkbook.Path & "\" C:\Users\miroma\Documents\Comptabilité\
tu a changer le code plus bas c'est peut etre mieux !

 

[soan]

Bonsoir miroma,

je viens de lire ton post #3 ; tu as écrit :

Chemin = ThisWorkbook.Path & "\" C:\Users\miroma\Documents\Comptabilité\

oh la, non ! c'est pas comme ça !!!

si ThisWorkbook.Path retourne "C:\Users\miroma\Documents", alors :

Chemin = ThisWorkbook.Path & "\Comptabilité\"

OU sans utiliser ThisWorkbook.Path, il faut mettre le chemin complet :

Chemin = "C:\Users\miroma\Documents\Comptabilité\"

bien sûr, tu devras remplacer sur ton PC « miroma »
par ton vrai nom d'utilisateur !

soan

 

[soan]

@miroma

je viens de télécharger tes 2 fichiers ; mais comme je n'ai pas encore eu le temps de manger, je vais d'abord faire une longue pause repas ! puis je les regarderai ensuite. ​

soan

 

[miroma]

@miroma

je viens de télécharger tes 2 fichiers ; mais comme je n'ai pas encore eu le temps de manger, je vais d'abord faire une longue pause repas ! puis je les regarderai ensuite. ​

soan

bien sur prend ton temps bon appétit !

 

[miroma]

bien sur prend ton temps bon appétit !

ça fonctionne super ne tiens pas compte de ce que j'ai envoyé, j'ai supprimé.
tout fontionne avec le bon code direct comme tu vient de le dire,
merci encore !

 

[soan]

génial ! bonne nouvelle !!!