Discussion :

[241P17]

bonsoir @ tous

voila bien trop longtemps que je n'ai pas codé et je m'adresse à vous pour un coup de pouce.

j'ai un tableau excel qui me permet de répertorier mes photos. tableau reprenant sur les colonnes les diverses qualités de la photo (lieu date etc).
la dernière colonne est une concaténation des premières (formant ainsi le nom futur du cliché), l'avant dernière reprend le nom actuel du cliché (pictnum001...xxx).

question je souhaite ajouter une action permettant de renommer le fichier pictnum001.jpg par la valeur de la dernière cellule.

une idée ? merci d'avance.

[Heureux-oli]

Je vais te donner un peu de lecture.

http://warin.developpez.com/access/fichiers/

[241P17]

re

merci du lien

après lecture cela me semble plus complexe que je ne l'imaginais

en fait l'usage de : name "anciennom" as "nouveaunom" me semblait idéal.
le souci se trouve : comment récupérer les valeur des cellules (ex pictimg001 etc)

@+

[Heureux-oli]

Alors, il reste ceci

http://excel.developpez.com/faq/inde...RenommeFichier

[241P17]

yop yop

ok alors je sais renommer

maintenant il ne reste plus qu'à :

* récupérer les valeurs des cellules "anciennom" et "nouveaunom"
* trouver le moyen de mettre un bouton "renommer" en bout de chaque ligne 'une ligne = un cliché)

merci @ toi

[Dereck07]

je sais pas si ca peut t'aider, voila un bout de code de ce que je suis en train de faire...
J'enregitre un fichier excel avec un nom dont un bout est contenu dans A1 de la feuille 1

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim WkbVierge As Workbook
Dim InitialFileName As String, FileOpenName As String, SousLot As String
'...
 
'enregistrer import fini
SousLot = WkbVierge.Sheets(1).Cells(1, 1)
InitialFileName = "fichier - " & SousLot & " - New"
fileSaveName = Application.GetSaveAsFilename(InitialFileName, fileFilter:="Excel Files (*.xls), *.xls")
WkbVierge.SaveAs (fileSaveName)