Changement nom de fichier Application.Run

[golzag]

Bonjour

J'ai quelque souci pour faire tourner des macros à partir d'une macro principal.

J'ai plusieurs fichiers avec des noms différents cependant les macros restent les memes, mais pour faire tourner la macro principal , il faut que je change le nom de fichier à chaque fois. Donc je voudrais mettre le nom du fichier dans une variable voici le code d'origine

Sub G_total()
'
' G_total Macro
' Macro enregistrée le 25/03/2009 par jleb


' Application.Run "'Angers_Temp_janvier 3.1.xls'!G_auto_E04_2"
' Application.Run "'Angers_Temp_janvier 3.1.xls'!G_auto_E04_1"
endsub

Voila ce que j'essaie de faire , c'est surement plus parlant que mes explications du début.

Dim Nom_fichier, extension As String

Nom_fichier = "Angers_Temp_janvier 3.1"
extension = ".xls"


Application.Run Nom_fichier & extension & !G_auto_E04_2

Il me marque erreur de compilation


Merci d'avance pour votre aide

 

[James007]

Re : Changement nom de fichier Application.Run

Bonjour,

Tu es tout près ...

Application.Run Nom_fichier & extension & [B][COLOR="Red"]"[/COLOR][/B]!G_auto_E04_2[B][COLOR="red"]"[/COLOR][/B]

A +

 

[Papou-net]

Re : Changement nom de fichier Application.Run

Bonjour golzag,

Tu as oublié les guillemets :

Application.Run Nom_fichier & extension & "!G_auto_E04_2"

Espérant t'avoir été utile.

Cordialement.

 

[golzag]

Re : Changement nom de fichier Application.Run

Merci pour votre aide .

Mais ca ne marche pas . J'ai rajouté les ""

IMessage d'erreur '1004'

Il n'arrive pas a trouver la macro 'Angers_Temp_janvier 3.1.xls'!G_auto_E04_2'

 

[James007]

Re : Changement nom de fichier Application.Run

Bonjour,


Les guillemets ne servent qu'à permettre la concaténation de tes strings ...

Ils ne pourront rien si la macro n'existe pas ou plus précisément si son nom exact est ... même légèrement différent ...

A vérifier ...

A +

 

[pierrejean]

Re : Changement nom de fichier Application.Run

bonjour à tous

il semble qu'il manque ' ici

Nom_fichier = "'Angers_Temp_janvier 3.1"
extension = ".xls'"

 

[golzag]

Re : Changement nom de fichier Application.Run

CA marche merci beaucoup pierre jean, quel oeil !

Merci à un modérateur de noter [résolu] en titre je n'arrive pas à le changer

Bonne journée à tous