Nommer un fichier par le contenu de deux cellules

encore bonjour ..

est il possible de nommer (enregistrer) un fichier grace au contenu de deux cellules contenues dans le fichier ,au pire le contenu d'une seule cellule suffira !

merci

jfmo

Bonjour,

voici un fichier ou le nom du classeur serat la valeur de la cellule B2

Macro trouvée sur le net et adapter.

dans la macro, remplace le chemin du fichier

ou active: "chemin = ThisWorkbook.Path" ça l'enregistreras dans le fichier source de ton fichier.

https://www.excel-pratique.com/~files/doc/essai_enregistrement.xls

cordialement

Bonjour

Adapter les adresses de cellules à ton fichier

Sub enregister_fichier_noms_cellules()
Dim Nom_I$, Nom_II$, NOMFICHIER$, m$
Nom_I = Range("A1").Text: Nom_II = Range("B1").Text
NOMFICHIER = Nom_I & "_" & Nom_II & ".xls"
If Not IsEmpty([A1]) And Not IsEmpty([B1]) Then
ThisWorkbook.SaveCopyAs NOMFICHIER
Else
m = "Nom de fichier invalide,"
m = m & "vérifier le contenu de A1 et B1"
MsgBox m, vbCritical, "ERREUR"
End If
End Sub

Salut Maguetlolo,

Salut xlZalUp et jfmo

Ton code génère une erreur: tu devrais modifier le chemin par ce que tu as dit: Thisworkbook.path....

A+

Souri84

Bonjour souris84

J'ai testé le code ant de le poster (sans erreur)

Test effectué sur un classeur déjà enregistré et la copie se fait dans le répertoire

du classeur actif.

Je modife quand même le code (le résulat est le même chez moi - Excel 2000)

Sub enregister_fichier_noms_cellulesBIS()
Dim Nom_I$, Nom_II$, NOMFICHIER$, Chemin$, m$
Nom_I = Range("A1").Text: Nom_II = Range("B1").Text
Chemin = ThisWorkbook.Path & "\"
NOMFICHIER = Nom_I & "_" & Nom_II & ".xls"
If Not IsEmpty([A1]) And Not IsEmpty([B1]) Then
ThisWorkbook.SaveCopyAs Chemin & NOMFICHIER
Else
m = "Nom de fichier invalide,"
m = m & "vérifier le contenu de A1 et B1"
MsgBox m, vbCritical, "ERREUR"
End If
End Sub