Pb Workbooks à initialiser à partir d'un chemin!

Bonjour,

j'aurais souhaité initialiser un Workbooks, en s'aidant du chemin d'accès, sans ouvrir le classeur.

Voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub testModif() Dim Wbk As Workbook, NomProc$, NomModule$, LiModif&, TxtModif$ Dim Fichier As String 'Set Wbk = ThisWorkbook 'Set Wbk = Workbooks("Matrice des répertoires DDAF v4") Set Wbk = Workbooks("D:\Utilisateurs\97733a\Mes documents\Matrice des répertoires DDAF v4") NomProc = "LectMatMig" NomModule = "LectMat" LiModif = 4 TxtModif = " Dim i, k, longueur As Integer" 'modifie la ligne 3 de la macro "MacroAModifier" ModifMacro Wbk, NomProc, NomModule, LiModif, TxtModif   End Sub

---

Avec juste le nom du classeur dans le Workbooks, si on ouvre celui-ci, cela se passe bien. Maintenant, si j'essaye la même chose avec le chemin complet sans ouvrir le classeur, cela ne fonctionne plus.

Avez-vous une solution?

Merci d'avance.

mumu27

Bonjour,
tes explications ne sont pas claires. En tous cas, je ne comprend rien à ce que tu cherches à faire, et le code suivant, au moins, est manquant pour pouvoir t'aider :

Code:

---

ModifMacro Wbk, NomProc, NomModule, LiModif, TxtModif

---

Bonne journée.

juste pour bien comprendre ce que tu demandes. Tu as un code qui modifie le code d'une macro dans un workbook.
Tu aimerais que les modifications se fassent sans ouvrir le workbook
Set Wbk = Workbooks("D:\Utilisateurs\97733a\Mes documents\Matrice des répertoires DDAF v4")
, Est ce bien ça ton probleme ?

Si oui, pour connaitre le code dans le workbook tu es obligé de l'ouvrir et le lire...
De plus je ne vois pas en quoi le fait d'ouvrir un fichier soit un probleme en soi... Sauf si ce fichier est tres volumineux et/ou qu'il possède du code qui se lance au démarrage...

Bon courage pour la suite.

Essaye ça :

Code:

---

1 2 3 4 5

'Permet de changer de lecteur (G:/, S:/, ...) afin d'ouvrir les fichiers ChDrive Left(tonChemin, 1)   'Permet de changer de répertoire actuel ChDir tonChemin

---