Changement nom de fichier Application.Run

golzag · 27 Mars 2009

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 · 27 Mars 2009

Re : Changement nom de fichier Application.Run

Bonjour,

Tu es tout près ...

Code:

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

A +

Papou-net · 27 Mars 2009

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 · 27 Mars 2009

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 · 27 Mars 2009

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 · 27 Mars 2009

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 · 27 Mars 2009

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

Changement nom de fichier Application.Run

golzag

XLDnaute Nouveau

James007

XLDnaute Barbatruc

Papou-net

XLDnaute Barbatruc

golzag

XLDnaute Nouveau

James007

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

golzag

XLDnaute Nouveau

Discussions similaires