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

3xceln4ute · 27 Avril 2018

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:

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 · 27 Avril 2018

Bonsoir le fil, le forum

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

VB:

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 · 28 Avril 2018

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 · 28 Avril 2018

Bonjour le fil, le forum

@subirubi

Staple1600 à dit:
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 · 28 Avril 2018

Bonjour,

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

J'ai essayé de modifier le code:

VB:

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 · 28 Avril 2018

Re

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

VB:

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 · 30 Avril 2018

Bonjour le fil, Staple1600,

Merci pour ton aide, ça marche super.

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

3xceln4ute

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

3xceln4ute

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

3xceln4ute

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

3xceln4ute

XLDnaute Occasionnel

Discussions similaires

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

3xceln4ute

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

3xceln4ute

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

3xceln4ute

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

3xceln4ute

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency