Nommer classeur excel d'après cellule

Version imprimable

09/01/2023, 16h02
psikhopat

Nommer classeur excel d'après cellule

Salut,

Je débute (vraiment) en VBA et je bloque sur un problème :

J'ai plusieurs classeurs Excel dans un dossier, un premier classeur principal qui sert de référence appelé disons "référence", puis d'autres classeurs secondaires appelés pour le moment "classeur1" , "classeur2", etc...

J'aimerais que les "classeur1", "classeurs2", etc....soient renommés automatiquement en fonction du contenus de diverses cellules du classeur "référence".

En clair j'aimerais que quand j'ouvre mon classeur "référence" et que je tape "machin" dans la cellule 1, cela renomme immédiatement le "classeur1" en "machin", et ainsi de suite avec les autres cellules.

C'est possible je suppose mais je n'y arrive pas...
Quelqu'un a une idée ?

1 pièce(s) jointe(s)

Bonjour,

Une façon de faire, le code étant placé dans la feuille de départ:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Option Explicit
 
Dim sOldName As String
Dim sNewName As String
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim kR As Long, sOldPath As String, sNewPath As String
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 1 Then Exit Sub
    If Target = "" Then Exit Sub
    kR = Target.Row
    sNewName = Target
    If sOldName = "" Then
        sOldName = "Classeur" & kR
    End If
    sOldPath = ThisWorkbook.Path & "\" & sOldName & ".xlsx"
    If Dir(sOldPath) = "" Then
        MsgBox "Annulé: pas trouvé de fichier nommé " & sOldPath, vbExclamation, "Anomalie"
        Application.EnableEvents = False
        Target = sOldName
    Else
        sNewPath = ThisWorkbook.Path & "\" & sNewName & ".xlsx"
        If MsgBox("Changer le nom de ce fichier" & vbLf & _
                  "de " & sOldPath & vbLf & _
                  "en " & sNewPath, _
                  vbYesNo, "Oui/Non") = vbYes Then
            Name sOldPath As sNewPath
        Else
            Application.EnableEvents = False
            Target = sOldName
        End If
    End If
    Application.EnableEvents = True
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 1 Then
        sOldName = Target
    End If
End Sub

Cordialement.

11/01/2023, 18h18
psikhopat

Salut et merci pour ce code,

Comme je vous disais je débute vraiment donc je suppose que je n'ai pas dû le placer où il faut car il ne fait strictement rien chez moi 😋

Je l'ai placé dans le fichier "référence" mais j'ai eu des doutes au moment de choisir à gauche de la fenetre vba entre thisworkbook et feuil1, et ensuite si je devais choisir general ou workbook dans le menu deroulant...

Donc je continue a creuser, je teste mais en tout cas je commence a mieux piger comment vba fonctionne, merci 😉
11/01/2023, 19h31
psikhopat

Tant que j'y suis, pouvez vous me préciser où apparaissent dans ce code les cellule dans lesquelle il va chercher les nouveaux noms a donner aux fichiers ? Car du coup je ne sais pas dans quelles cellules du ficier référence je dois mettre les noms (j'ai essayé la 1ere ou d'autres mais ca 'ne change rien)
12/01/2023, 00h18
EricDgn

Le code est à placer dans "Feuil1". Les noms des fichiers sont ensuite à entrer dans les cellules A1 (classeur1), A2 (classeur2), A3 (classeur3), ... de cette Feuil1 (cela sans mentionner l'extension .xlsx).

Cordialement.
12/01/2023, 04h48
psikhopat

Super, merci

Je teste ça en debauchant 👍
12/01/2023, 07h26
psikhopat

Salut,

Je viens de tester au boulot,
Ca ne produit aucun effet, peut etre ais-je mal affecté le code.

Voici ce que j'ai fait:

J'ai ouvert mon fichier excel "reference", j'ai cliqué sur developpeur, puis sur visual basic, puis 2 fois sur feuil1, ca m'a ouvert une fenetre avec par defaut "general" dans le menu deroulant en haut a gauche et "declaration" dans le menu deroulant de droite, ensuite j'ai tapé le code (aucune erreur).
Puis j'ai cliqué sur la disquette pour enregistrer, et j'ai fermé la fenetre visual basic.
De retour sur mon fichier excel je tape des noms dans les cellules A1, A2,A3...je sauvegarde mon fichier en xlsm, je le ferme et je le ré ouvre et rien de plus ne se passe. Les autres fichiers excel n'ont pas été renommés.

Je suppose que j'ai mal fait quelque chose mais je n'ai pas encore assez de connaissances pour trouver où.
12/01/2023, 11h32
EricDgn

1 pièce(s) jointe(s)

Un fichier exemple en attaché, à placer dans le même dossier que celui où se trouvent les fichiers à renommer.
Cordialement.
16/01/2023, 18h56
psikhopat

Merci beaucoup,

Désolé pour le délai mais je sors juste du covid et je suis complètement à plat.

Dès que je récupère des forces je m'y remets, en tout cas merci de votre aide, rien qu'en étudiant votre code je progresse en vba 😉