Discussion :

[mumu27]

Bonjour,

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

Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Godzestla]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 ModifMacro Wbk, NomProc, NomModule, LiModif, TxtModif

Bonne journée.

[EvaristeGaloisBis]

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.

[Guillaume_1]

Essaye ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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