Discussion :

[Antho44]

Bonjour à tous, je solicite votre aide pour le problème suivant :

J'ai créé une base de données (plusieurs classeurs Excel contenant chacun plusieurs feuilles de données) : c'est un catalogue de chiffrage.

Voici un exemple de macro que je souhaite exécutée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub TUBEINOX316LDN200()
 
' TUBEINOX316LDN200 Macro
' Macro enregistrée le 16/01/2007 par AL
'
    ChDir "N:\ACHAT\Catalogue Chiffrage"
    Workbooks.Open Filename:="N:\ACHAT\Catalogue Chiffrage\TUBES.xls"
    Windows("TUBES.xls").Activate
    Sheets("TUBES").Select
    Range("A50:D50").Select
    Selection.Copy
    Windows("détail chiffrage.xls").Activate
    ActiveSheet.Paste
    Windows("TUBES.xls").Activate
    ActiveWindow.Close
End Sub

Mon problème est que cette macro ne peut être exécutée que dans le classeur "détail chiffrage.xls". Si je renomme le classeur je ne peux plus exécuter cette macro (ni des centaines d'autres car elles dépendent toutes du fameu "détail chiffrage.xls" !!).

Existe-t-il une fonction ou une variable qui permette d'exécuter la macro précédemment mentionnée dans n'importe quelle feuille Excel une fois cette dernière renommer ?

Merci beaucoup de votre aide par avance !

[illight]

pour le classeur tu peux utiliser la variable :

Code :

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

activeworkbook.name

et pour les feuilles pareil :

Code :

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

activesheet.name

Sinon pour les feuilles, tu peux aussi utiliser le "(name)" que tu vois quand tu vas dans la fenetre du VBA, dans les propriétés de la feuille, celui la ne bougera pas si tu change le nom de la feuille je sais pas si tu vois ce qu eje veux dire la


A c emoment sui tu utilise celui la, tu fera au lieu de

Code :

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

sheets("feuil1").range("A1")

(par exemple)

Code :

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

1
2
 
feuil1.range("A1")

[tonton fred]

Bonjour,

Un moyen tres simple meme: mettre le nom dans une variable.

Code :

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

1
2
3
4
5
Dim NomClasseur as String 'en debut de module, avant la premiere procedure pour que toutes les macros du module "voient" cette variable
NomClasseur = "détail chiffrage.xls"
 
'puis
Windows(NomClasseur).Activate

Comme ca une seule ligne a modifier en cas de renommage.

Pour remplacer "détail chiffrage.xls" par NomFichier utilise la fonction "remplacer" de l'editeur dans le menu edition. Coche bien "mot entier uniquement" pour eviter les problemes (remplacer ce qui ne devrait pas l'etre).

[Antho44]

Désolé illight mais je n'ai pas trop réussi à comprendre ta réponse (je suis un débutant en VBA) !
Par contre la réponse de tonton fred m'a simplifié la vie !
Merci à vous deux de votre aide et je reviendrai certainement grapillé 2 3 infos !
A bientôt