Discussion :

[dadaxte]

Bonjours,

J'ai créer un répertoire avec avec des classeurs contenant des macros.
Les macros me servent à ouvrir à partir de différents classeurs se trouvant dans le répertoire.
Mon problème est:
Quand je copie le répertoire dans un autre endroit, les macros restent figés avec le lien vers le répertoire et le fichier où ils ont été créer.

Avez-vous une solution à me proposer pour que quand je déplace le répertoire les chemins vers mes fichiers suivent et se modifient.

Bonne réception
Sincères salutations

[SMBeccaria]

Bonjour,

A mon avis la solution de ton problème est la propriété "path" du workbook.

Esssaie avec :

Code :

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

thisworkbook.path

[dadaxte]

Etant novice, peux-tu m'expliquer où insérer cette expression

[SMBeccaria]

Je ne vois pas ton code donc je ne peux pas te dire où associer cette expression.

J'imagine que ton problème vient du fait que tu spécifies les accès des répertoires en dur et que si tu les bouges le classeur, ton code ne fonctionne plus.

La solution est de passer par la propriété .path qui te donne le répertoire courant de ton classeur.

[dadaxte]

mon code ci-après

Code :

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

1
2
3
4
5
6
7
8
9
Sub avancement_montage()
'
' avancement_montage Macro
' Macro enregistrée le 04/02/2013 
'
 
'
    Workbooks.Open Filename:= _
        "D:\DLEROUX\Bureau\SUIVI ISO\avancement montage.xls"

[SMBeccaria]

Essaie cela pour voir si ça correspond à ton besoin:

Code :

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

1
2
3
4
5
6
7
8
9
sub testPath
 
dim myPath as string
 
mypath = thisworkbook.path
 
msgbox mypath
 
end sub

Si le chemin inscrit dans la popup de convient, il suffit de le récupérer dans un string et de modifier ton code par exemple de cette façon :

Code :

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

1
2
3
mypath = thisworkbook.path
Workbooks.Open Filename:= _
mypath & "\avancement montage.xls"