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