Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access renommer des sous-répertoires

renommer des sous-répertoires

2 réponses
Avatar
soniagaubert
Bonjour,
Me voil=E0 encore avec mes probl=E8mes de gestion de r=E9pertoires (eh oui
;o[)
Pour modifier le nom d'un sous-(sous)-r=E9pertoire, je fais :

Dim AncNomRepProj As String
Dim NomNouvRepProj As String
AncNomRepProj =3D Me![Refobjet].Column(1)
NomNouvRepProj =3D Me![AutreRefProjet]

Dim OldName, NewName
OldName =3D "I:\" & Me![Abreviation] & "\" & AncNomRepertoire
NewName =3D "I:\" & Me![Abreviation] & "\" &
NomNouvRepertoire
Name OldName As NewName

.=2E. mais =E7a marche pas du tout !!

Quelqu'un a une id=E9e ?
Par avance, merci,
SoniaG
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
mbfac
Bonsoir

et en faisant

dim a as string
a= curdir
chdir "I:" & Me![Abreviation] & ""
name AncNomRepertoire as NomNouvRepertoire
chdir a

ça le ferai pas ?

Bonne nuit

Michel
Avatar
soniagaubert
Merci Michel pour ta proposition :o)
En fait je m'en suis tirée avec le code initial en simplifiant
seulement l'accès au nom du premier répertoire :
AncNomRepProj = Me![Refobjet].Column(1)
... c'est cela qui clochait semble-t'il, le fait d'avoir à aller
chercher la référence dans une colonne...
Bon dimanche,
Sonia.