Discussion :

[VBANoJutsu]

Hello tout le monde !

Je me permets de poster ici car j'aimerais créer une macro me permettant d'ajouter dans une cellule un texte (exemple en A1 = "Legende" ) , ceci dans plusieurs classeurs en meme temps.

En résumé, dans un dossier ou il y a plusieurs classeurs, j'aimerais ajouter dans une cellule le mot "Legende" sur tous les classeurs du dossier.

Je ne sais pas trop par ou commencer ? Déclarer des variables workbooks, worksheets,sheets ... ?

Je suis débutant et j'ai du mal.

Merci à tous pour votre aide !

[Invité]

Bonjour,

Vous avez une réponse d'Ysae68 qui peut servir de base à votre code dans la 3ème discussion située plus bas : recuperer-d-cellule-plusieurs-classeurs-identiques
Votre code pourrait être celui-là, en modifiant le cas échéant l'indice ou le nom de l'onglet :

Code :

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

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
 
Sub ModifierLesFichiersEnSerie()
 
' Adaptation du code d'Ysae68
' https://www.developpez.net/forums/d1251633/logiciels/microsoft-office/excel/macros-vba-excel/recuperer-d-cellule-plusieurs-classeurs-identiques/
 
Dim FileNameXls As Variant, I As Integer, Wb As Workbook
 
    FileNameXls = Application.GetOpenFilename(filefilter:="Excel Files, *.xl*", MultiSelect:=True)
    If Not IsArray(FileNameXls) Then Exit Sub
 
    Application.ScreenUpdating = False
 
    For I = LBound(FileNameXls) To UBound(FileNameXls)
 
        Set Wb = Workbooks.Open(FileNameXls(I))
        With Wb
             .Sheets(1).Range("A1") = "Légende"
             .Close SaveChanges:=True
        End With
        Set Wb = Nothing
 
    Next I
 
    Application.ScreenUpdating = True
 
End Sub

[VBANoJutsu]

Bonsoir, merci beaucoup pour ta réponse , j'ai testé et ca fonctionne !

Mais j'aimerais corriger quelque chose , avec cette macro je dois selectionner les classeurs, comment appliquer la même chose automatiquement à tous les classeurs du dossier ( j'ai réalisé un dossier specifique et je souhaiterais que tous les classeurs excel prennent la valeur "legende" en A1) ?

Encore merci

[Invité]

La ligne

Code :

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

 FileNameXls = Application.GetOpenFilename(filefilter:="Excel Files, *.xl*", MultiSelect:=True)

permet cette sélection multiple. Lorsque la boite de dialogue s'ouvre, vous sélectionnez un premier fichier puis Ctrl-A pour sélectionner le reste.

[VBANoJutsu]

Bonjour, merci encore de ta réponse ! Oui j'avais compris, quand je demande de l'aide mon but n'est pas juste de copier sans comprendre le code , j'essaie toujours de le dechiffrer aux maximum avec mon low level bien sur ... ce qui me permets de decouvrir de nouvelles fonctions, de nouvelles ecritures (...)

Par quoi remplacer cette ligne pour que la selection se fasse automatiquement sans que j'ai à selectionner ?

Il faudrait creer une boucle ouvrant tous les fichiers ayant un nom different de celui du fichier avec la macro ?

[Invité]

Regardez l'utilisation de DIR dans l'aide en ligne Excel.
Pour aller plus loin, regardez ce tuto Manipulation des fichiers en VBA de Chrsitophe WARIN. Si votre répertoire est connu, il n'est pas nécessaire de passer par la boite de dialogue GetOpenFileName.