barry white
XLDnaute Junior
Bonjour,
Jai enfin bientôt fini avec ma macro. Mais... Il me reste une étape que je n'arrive pas à réaliser
Voilà mon pb.
Voila mon pb.
J'execute une macro sur un fichier xls (norme de nommage du fichier MIS_CHRONO_TATA_TOTO.Xls, MIS_CHRONO ne change jamais, TOTO et TATA change), qui traite divers operations et qui colle le resultat donner dans un nouveau fichier.
Nous voulouns que le nouveau fichier, s enregistre au meme endroit que le xls ouvert et qui aura pour norme nom de fichier MIS_CHRONO_TATA_TOTO_(Feuille!cellule du fichier excel executer) (en occurence MIS_CHRONO_TATA_TOTO.xls). Voici le code que j ai fais, mais je reste avec des interogations :
Dim nomfichier As String
Dim repertoire As String
repertoire = Application.ActiveWorkbook.Path
nomfichier = ActiveWorkbook.Name
Range("M1") = nomfichier
Range("M2") = repertoire (Je n'arrive pas recueprer le repertoire source)
Dim Nom As String
Dim Nom2 As String
DIM Nom3 As String
Dim Extension As String
Extension = ".xls"
Nom = "MIS_CHRONO_"
Nom2 = "???" (Je ne sais pas recuperer la valeur TATA_TOTO)
Nom3 = "???" (J'arriver a faire la manip mais qu'avec un nom de fichier fixe)
ActiveWorkbook.SaveAs Filename:= _
repertoire & Nom & Nom2 & Extension _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
J'ai fais ce code, mais si un autre code arrive a donner le resultat sa m irai aussi. Parce que j'ai pas mal chercher et je ne sais pas quoi faire. Encore merci de votre aide précieuse
Jai enfin bientôt fini avec ma macro. Mais... Il me reste une étape que je n'arrive pas à réaliser
Voilà mon pb.
Voila mon pb.
J'execute une macro sur un fichier xls (norme de nommage du fichier MIS_CHRONO_TATA_TOTO.Xls, MIS_CHRONO ne change jamais, TOTO et TATA change), qui traite divers operations et qui colle le resultat donner dans un nouveau fichier.
Nous voulouns que le nouveau fichier, s enregistre au meme endroit que le xls ouvert et qui aura pour norme nom de fichier MIS_CHRONO_TATA_TOTO_(Feuille!cellule du fichier excel executer) (en occurence MIS_CHRONO_TATA_TOTO.xls). Voici le code que j ai fais, mais je reste avec des interogations :
Dim nomfichier As String
Dim repertoire As String
repertoire = Application.ActiveWorkbook.Path
nomfichier = ActiveWorkbook.Name
Range("M1") = nomfichier
Range("M2") = repertoire (Je n'arrive pas recueprer le repertoire source)
Dim Nom As String
Dim Nom2 As String
DIM Nom3 As String
Dim Extension As String
Extension = ".xls"
Nom = "MIS_CHRONO_"
Nom2 = "???" (Je ne sais pas recuperer la valeur TATA_TOTO)
Nom3 = "???" (J'arriver a faire la manip mais qu'avec un nom de fichier fixe)
ActiveWorkbook.SaveAs Filename:= _
repertoire & Nom & Nom2 & Extension _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
J'ai fais ce code, mais si un autre code arrive a donner le resultat sa m irai aussi. Parce que j'ai pas mal chercher et je ne sais pas quoi faire. Encore merci de votre aide précieuse