[Réglé]Macro enregistrement auto selon critères

[3xceln4ute]

Bonjour,

Est-il possible de créer une macro qui enregistre le fichier selon les critères suivants:

Prendre une partie du contenu de la cellule 3 et lui ajouter au début: Tableau Admissibilité_VSMPE-18-VACA-792820-75234

Dans la cellule 3, prendre toujours le code qui suit le mot L'AFFICHAGE

Puis, enregistrer le fichier dans un endroit précis au format .xls

J'ai essayé d'enregistrer la macro, et voici le code:

Sub Enregistrement_fichierInfoRH()
'
' Enregistrement_fichierInfoRH Macro
'

'
    Range("A3:Q3").Select
    ActiveCell.FormulaR1C1 = _
        "GRILLE DES POSTULANTS POUR L'AFFICHAGE OUTR-18-VACA-792820-65091"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\uboud7t\Documents\Tableau admissibilité_OUTR-18-VACA-792820-65091.xls" _
        , FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

 

[Staple1600]

Bonsoir le fil, le forum

Je te laisse le nécessaire en t'inspirant avec ce petit exemple.

Sub oOo()
Const NomD As String = "Tableau Admissibilité_"
Dim PrefiX, NomFic$
PrefiX = Split("GRILLE DES POSTULANTS POUR L'AFFICHAGE OUTR-18-VACA-792820-65091", "AFFICHAGE")
NomFic = NomD & VBA.Trim(PrefiX(1)) & ".xlsx"
MsgBox NomFic
End Sub

 

[3xceln4ute]

Bonjour Staple1600,

Merci pour la réponse.

Dans le code proposé, il prend pas en compte le fait que le code d'affichage est changeant. La cellule de référence est A3

Ensuite, le chemin d'enregistrement n'est pas spécifié, sauf si je me trompe.

 

[Staple1600]

Bonjour le fil, le forum

@subirubi

Je te laisse le nécessaire en t'inspirant avec ce petit exemple

Il fallait donc comprendre:
En te basant sur cet exemple, tu modifies ton code existant...

NB: Indice: l'important ici c'est la ligne ou est employé Split

 

[3xceln4ute]

Bonjour,

C'est parfait, ça va m'aider à comprendre un peu le code.

J'ai essayé de modifier le code:

Sub oOo()
Const NomD As String = "Tableau Admissibilité_"
Dim Title As String
Dim PrefiX, NomFic$
Title = "$A$3"
PrefiX = Split(Title, "AFFICHAGE")
NomFic = NomD & VBA.Trim(PrefiX(1)) & ".xls"
ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\pc\Downloads"
MsgBox NomFic
End Sub

Par contre j'obtiens une erreur "Subscript out of range" au niveau de la ligne NomFic = NomD & VBA.Trim(PrefiX(1)) & ".xls"

Quelle est la signification de cette erreur ?

 

[Staple1600]

Re

Avec la bonne syntaxe, il n'y a pas d'erreur...

Sub oOoOo()
Const NomD As String = "Tableau Admissibilité_"
Dim strPath$
Dim Title As String
Dim PrefiX, NomFic$
strPath="C:\Users\pc\Downloads\"
Title = Range("A3").Text
PrefiX = Split(Title, "AFFICHAGE")
NomFic = NomD & VBA.Trim(PrefiX(1)) & ".xls"
ActiveWorkbook.SaveAs strPath & NomFic
End Sub

NB: Evidemment A3 ne doit pas être vide et le mot AFFICHAGE est présent dans la chaîne de caractère de son contenu.

 

[3xceln4ute]

Bonjour le fil, Staple1600,

Merci pour ton aide, ça marche super.