Récupération propriété title - .xla ?

[starz]

Bonjour,
Je dois mettre à jour le titre d'une centaine de document excel.
Ce titre est présent dans la cellule i4 de la feuil1.

Pourriez vous m'aider sans ouvrir chaque document (si possible j'espère) à concevoir une macro (xla peut être) ou autre, afin de parvenir à mes modifications le plus rapidement et le plus simplement possible.

merci de votre aide

voici un bout de macro que j'avais récupérer ici mais ça m'oblige à l'intégrer à chaque document :

Private Sub Workbook_Before_Close(Cancel As Boolean)
ThisWorkbook.BuiltinDocumentProperties("Title").Value = Sheets("Feuil1").Range("i4").Value 
End Sub

 

[vbacrumble]

Re : Récupération propriété title - .xla ?

Bonjour


Test OK sur Excel 2000

Sub renommetitre()
Dim WB As Workbook, Chemin$, nfich$, Titre$
Chemin = "C:\temp\"[COLOR="Green"] 'changer le nom du dossier selon vos besoins[/COLOR]
Titre = Sheets(1).Range("I4").Text
nfich = Dir(Chemin & "*.xls")
Do While nfich <> ""
    Workbooks.Open Filename:=Chemin & nfich
    Workbooks(nfich).BuiltinDocumentProperties("Title").Value = Titre
    Workbooks(nfich).Close True
nfich = Dir
Loop
End Sub

 

[starz]

Re : Récupération propriété title - .xla ?

Merci
J'ai essayé ça fonctionne à moitié (par défaut j'avais un titre là j'ai plus rien).
De plus mais mes fichiers sont sur le réseau info.
Mon idée créer un fichier excel avec la macro et un gors bouton et le mettre dans le même dossier que mes fichiers excel mais ...
quel est le chemin à saisir ?

Chemin = "" 'changer le nom du dossier selon vos besoins

merci

PS : EXCEL 2003

 

[Gael]

Re : Récupération propriété title - .xla ?

Bonjour Starz, VBACrumble,

Si tout est dans le même dossier, tu peux essayer:

Chemin=Thisworkbook.path

@+

Gael

 

[starz]

Re : Récupération propriété title - .xla ?

Je suis désolé mais ça ne fonctionne toujours pas !
j'ai bo cherché sur la toile je ne trouve rien de mon côté

 

[mromain]

Re : Récupération propriété title - .xla ?

bonjour le fil,

peut-être en écrivant
Chemin = Thisworkbook.path & "\"

a+

 

[Bernard_XLD]

Re : Récupération propriété title - .xla ?

Salut Starz

c'est parce qu'il faut ajouter un \ entre path et le nom de ton fichier

Thisworkbook.Path & "\nomfichier.xls"

@+

 

[Bernard_XLD]

Re : Récupération propriété title - .xla ?

scusi Mromain, je t'avais pas vu!

@+

 

[starz]

Re : Récupération propriété title - .xla ?

ok merci,
la seule chose qui ne fonctionne pas maintenant c'est la fonction copie de la cellule I4 vers la case "Title" (propriété du fichier)

merci de votre aide à tous les 4

 

[starz]

Re : Récupération propriété title - .xla ?

une idée 😕

 

[starz]

Re : Récupération propriété title - .xla ?

toujours pas ?

 

[JNP]

Re : Récupération propriété title - .xla ?

Bonjour le fil 🙂,
Hé, c'est la fête du travail... Tu veux vraiment qu'on bosse 😀!
Plus sérieusement, je ne sais pas exactement ce que tu as changé dans le code de VBACrumble, mais si je le reprends, je vois que la valeur de Title est définie avant la boucle au lieu de dans la boucle...

Sub renommetitre()
Dim WB As Workbook, Chemin$, nfich$, Titre$
Chemin = "C:\temp\"[COLOR=green] 'changer le nom du dossier selon vos besoins[/COLOR]
nfich = Dir(Chemin & "*.xls")
Do While nfich <> ""
    Workbooks.Open Filename:=Chemin & nfich
    [COLOR=red][B]Titre = Sheets(1).Range("I4").Text[/B][/COLOR]
    Workbooks(nfich).BuiltinDocumentProperties("Title").Value = Titre
    Workbooks(nfich).Close True
nfich = Dir
Loop
End Sub

devrait faire ce que tu souhaites.
Bonne journée 😎

 

[vbacrumble]

Re : Récupération propriété title - .xla ?

Bonjour à tous, JNP

Private Sub Workbook_Before_Close(Cancel As Boolean)
ThisWorkbook.BuiltinDocumentProperties("Title").Value = Sheets("Feuil1").Range("i4").Value
End Sub

Donc si chaque classeur possède déjà ce code
C'est la cellule Sheets(1).Range("I4").Text
de chaque classeur à ouvrir qu'il faut changer ?


Moi j'avais compris qu'à partir d'un classeur actif contenant la macro
on modifiait la cellule I4 de la feuille 1 de ce classeur
ensuite on lançait la macro
et tous les classeursouverts par cette macro prenait le nouveau titre
qu'on venait de renseigner en I4 du classeur contenant la macro

 

[JNP]

Re : Récupération propriété title - .xla ?

Re 🙂,
VBACrumble : c'est bien comme tu l'a écrit que j'avais compris la question aussi, mais en lisant

J'ai essayé ça fonctionne à moitié (par défaut j'avais un titre là j'ai plus rien).

, j'en ai déduit qu'il avait le Title de chaque fichier dans la cellule "I4" de chaque classeur, et non un Title identique pour chaque. Mais je me trompe peut-être.
Bonne journée 😎

 

[vbacrumble]

Re : Récupération propriété title - .xla ?

Re

j'en ai déduit qu'il avait le Title de chaque fichier dans la cellule "I4" de chaque classeur

Dans ce cas ni ton code ni le mien ne font le job 😉

Mais celui-ci oui 😉 (aie la crampe )

Sub renommetitre2()
Dim WB As Workbook, Chemin$, nfich$, Titre$
Chemin = "C:\temp\" 'changer le nom du dossier selon vos besoins
nfich = Dir(Chemin & "*.xls")
Do While nfich <> ""
    Workbooks.Open Filename:=Chemin & nfich
    Sheets(1).Range("I4") = InputBox("Donnez moi mon nouveau titre svp", nfich, Sheets(1).Range("I4"))
    Titre = Sheets(1).Range("I4").Text
    Workbooks(nfich).BuiltinDocumentProperties("Title").Value = Titre
    Workbooks(nfich).Close True
nfich = Dir
Loop
End Sub