Discussion :

[neigerome]

Bonjour,

Je souhaite sélectionner & copier le contenu d'une cellule (= nom d'une commune) dans un fichier excel.
Ceci afin de pouvoir renommer le fichier excel contenant le nom de la commune avec le nom copié.

Débutant, j'ai essayé d'utiliser l'enregistrement mais sans succès.
Merci

Je viens apporter quelques précisions afin d'être le plus clair possible (enfin je l'espère)


en mode enregistrement, voilà ce que ça donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub nom()
'
 
    Range("D5").Select
    Selection.Copy
    Application.CutCopyMode = False
    ChDir "D:\6 minutes entrantes\2009"
    Selection.Copy
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "VOREPPE"
    ActiveWorkbook.SaveAs Filename:="D:\6 minutes entrantes\2009\VOREPPE.XLS", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

le contenu de la cellule (D5) de ce fichier est "VOREPPE".
Comment faire pour que le fichier soit nommé de façon automatique lorsque j'ouvrirais un autre fichier dans lequel le contenu de la cellule de référence sera différent ("MOIRANS" ou "MEYLAN"....)
Merci

[JPierreM]

N'en sachant pas plus, une première réponse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub sc()
Dim a As Workbook
        Set a = ActiveWorkbook
        a.SaveAs Filename:=[a1]
        ActiveWorkbook.Save
        ActiveWorkbook.Close
End Sub

Faut-il supprimer le fichier appelant, doit on récupérer le code dans le nouveau fichier etc..

[neigerome]

Merci pour cette réponse qui répond tout à fait à ma problèmatique.
j'ai juste adapté pour que cela corresponde à ma feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Set a = ActiveWorkbook                           
    a.SaveAs Filename:=Cells(5, 5).Text