[RESOLU]renommer une image ".jpg" dans un dossier

[néné06]

Bonjour le Forum

J'ai un dossier nommé ("Photos") qui contient des photos .JPG dans la même racine qu'une feuille excel (sur le bureau).
Mon programme Excel prend des photos dans le dossier et les affiches dans un USF.
Je suis amené a renommer certaines photos, mais je bute sur ce problème.

Voici ma routine pour afficher une image, qui fonctionne.
nom_image = Cells(CB1.ListIndex + 2, 3).Value
Img.Picture = LoadPicture(ActiveWorkbook.Path & "\Photos" & "\" & nom_image & ".jpg")

et voici mon problème


Private Sub LB7_Click()
If CB1.Value <> "" Then
ancien = CB1.Value
newnom = Application.InputBox(prompt:="Entrez le nouveau NOM")
If newnom = "Faux" Or newnom = "" Then Exit Sub
newprenom = Application.InputBox(prompt:="Entrez le nouveau Prénom")
If newprenom = "Faux" Or newprenom = "" Or newnom = "" Then Exit Sub
nbcar = Len(newprenom)
newnom = UCase(newnom)
newprenom = UCase(Left(newprenom, 1)) & LCase(Right(newprenom, nbcar - 1))
newnomprenom = UCase(newnom) + " " + newprenom
Set Ftn = Sheets("Feuil2").Range("C2:C50").Find(newnomprenom, LookIn:=xlValues, lookat:=xlWhole)
If Ftn Is Nothing Then
Cells(CB1.ListIndex + 2, 1).Value = newnom
Cells(CB1.ListIndex + 2, 2).Value = newprenom
Cells(CB1.ListIndex + 2, 3).Value = newnomprenom

'****************************************************************

'renommer photo dans dossier ("Photos")
' variable ancien doit être renommé par variable newnomprenom


'*********************************************************************


Else
reponse = MsgBox("NOM et PRENOM déja présent")
Unload Me
Exit Sub
End If
tri_noms
active_CB1
CB1.Value = newnomprenom
ecrire_excel_sur_USF
End If
End Sub


D'avance Merci !!

 

[Dranreb]

Re : renommer une image ".jpg" dans un dossier

Bonjour
Instruction Name

[h=1]Name, instruction[/h]
Renomme un fichier, un répertoire ou un dossier sur un disque.
Syntaxe
Name oldpathname As newpathname
La syntaxe de l'instruction Name comprend les éléments suivants :

Élément	Description
oldpathname	Expression de chaîne indiquant le nom et le chemin du fichier. Cet argument peut contenir le répertoire ou dossier et le lecteur.
newpathname	Expression de chaîne indiquant les nouveaux nom et chemin du fichier. Cet argument peut préciser le répertoire ou le dossier et le lecteur. Le nom de fichier indiqué dans l'argument newpathname ne peut pas correspondre à un fichier existant.

Remarques
L'instruction Name renomme un fichier et le déplace le cas échéant vers un nouveau répertoire ou dossier. Elle permet aussi de déplacer un fichier d'un lecteur à un autre, mais elle ne peut renommer un dossier existant que si les arguments newpathname et oldpathname concernent le même lecteur. L'instruction Name ne permet pas de créer un nouveau fichier ou dossier.
Si vous appliquez Name à un fichier ouvert, vous provoquez une erreur. Les fichiers ouverts ne peuvent être renommés avant d'avoir été fermés. Les arguments de Name ne peuvent comporter de caractères génériques (* : multicaractères, ? : caractère unique).

Cordialement.

 

[néné06]

Re : renommer une image ".jpg" dans un dossier

Bonjour Dranreb

Un grand merci pour cette réponse et je me rend compte que dans mes essais, j,occultais le "As".
Je vais tester chez moi car actuellement ,je suis sur mon téléphone

Encore Merci!!!
À+

 

[néné06]

Re :[RESOLU]: renommer une image ".jpg" dans un dossier

Bonsoir à tous.


J'ai donc écrit ceci, pour mes chemins d'accés, et cela fonctionne impec!!!!

Name (ActiveWorkbook.Path & "\Photos" & "\" & ancien & ".jpg") As (ActiveWorkbook.Path & "\Photos" & "\" & newnomprenom & ".jpg")


Encore Merci à Dranreb

A+