Renommer classeur fermer depuis un autre classeur avec valeur cellule

Bonjour à tous,

j'ai encore un problème que je n'arrive pas a résoudre .

Je souhaiterais renommer un classeur ( qui est fermé) depuis un autre classeur (qui lui est ouvert) avec la valeur de la cellule A18 du classeur ouvert.

les deux classeurs dans tous les deux dans le même dossier.

Auriez-vous une piste de travail SVP ?

Cdt

Bonjour,

Regarde du côté de l'instruction "Name"

Bonne journée

Bonjour,

Bah juste pour saluer le retour de Cousinhb29 !!! un revenant !!
Dis donc cela faisait longtemps tout de même pour ne pas être mentionné

Merci Cousinhb29

Avec le code ci-dessous cela ne fonction pas

ou est ce que j'ai fait une erreur ??

Hi,

Merci Dan

Et Julien, désolé de polluer ton fil... (Ps, j'ai essayé d'insérer un lien vers le site de µSoft sur cette instruction, mais comme je suis un peu rouillé...), le voici :

https://docs.microsoft.com/fr-fr/office/vba/language/reference/user-interface-help/name-statement?f1...

Re-,

Le code tel que, chez moi, cela fonctionne, le nom est bien changé... (Attention toutefois à l'espace après le S1 dans le nom de ton fichier)

Cependant, tu ne peux pas modifier l'extension ainsi, il faut d'abord le convertir (xls -> xlsx)

Peut-être?

@Julienp91 : Pour poster un code, veillez à utiliser les balises de code en cliquant sur l'icone </> disponible dans la barre de menu et en collant le code dans la fenêtre.

@Cousinhb29 : Pour mettre un lien, il y a l'icône juste à droite des crochets [ ] dans la barre de menu

@ Dan, j'ai bien essayé, en sélectionnant "Name", puis clic sur cette icône, et insertion du lien dans la fenêtre du haut, mais... :(

@ Dan, j'ai bien essayé, en sélectionnant "Name", puis clic sur cette icône, et insertion du lien dans la fenêtre du haut, mais... :(

Il faut sélectionner l'icône lien ou Link si tu es en Anglais

Désolé pour la mauvaise utilisation pour les codes j 'espère que cela va comme ca ?

Pour redevenir sur mon problème avec le code ci-dessous cela bloc au niveau "Name AncienNom As NouveauNom"

désolé d'insister

Sub RenommeFichier()
Dim AncienNom As String, NouveauNom As String

AncienNom = ThisWorkbook.Path & "\" & "S1.xlsx"

NouveauNom = ThisWorkbook.Path & "\" & "N° " & Range("G15") & ".xlsx"

'Vérifie si le fichier à renommer existe.
If Dir(AncienNom) = "" Then Exit Sub
'Renomme le fichier
Name AncienNom As NouveauNom
End Sub

Edit modo : Il faut utiliser l'icone </> et coller le code dans la fenêtre

Re-,

Quelle est la valeur de la cellule G15 (certains caractères sont interdits dans le nommage de fichier....)

RE-

dans G15 j'ai une formule qui définie le N° de la semaine.

Est ce que cela peut être le problème ?

Re-,

Si le numéro de semaine est effectivement du type 12/22 (comportant donc un /), il y aura ce problème...

Du type 12_22, ça passerait...

Re-

je n'ai qu'un chiffre dans la cellule mais qui est le résultat d'une formule :

=O1&" "&(ENT((I2-SOMME(MOD(DATE(ANNEE(I2-MOD(I2-2;7)+3);1;2);{1E+99;7})*{1;-1})+5)/7))

logiquement la formule ne devrait pas avoir d'incidence normalement ?

Re-,

Que contient la cellule O1 (en début de formule...)?

La cellule I2 contient la date du jour, je pense...

Quelle erreur est remontée?

Ou juste, le fichier ne change pas de nom? Il est bien fermé?

Sinon, pour abréger, joint ton fichier, allégé, et sans données persos...

Bonjour à tous

Au lieu de

'Renomme le fichier
Name AncienNom As NouveauNom

Je verrai bien

'Renomme le fichier
Name Chr(34) & AncienNom & Chr(34) As Chr(34) & NouveauNom & Chr(34)
'Pour vérifier dans la fenetre d'exécution du débugueur Visual Basic VBE
Debug.Print "<" & Chr(34) & AncienNom & Chr(34) & ">"
Debug.Print "<" & Chr(34) & NouveauNom & Chr(34) & ">"
Debug.Print "AncienNom existe t'il? " & Dir(Chr(34) & AncienNom & Chr(34))

En Espérant que cela permette de déchiffrer d'où vient le problème

Re-

Désolé j'ai été un peu pris cette après-midi.....

Voici le fichier test ( simplifié)

Et encore merci pour votre patience

Re-,

Peux-tu enlever ton fichier, stp?

- On évite de mettre des codes dans le Workbook.Open lorsqu'on joint un fichier

- On évite des données personnelles (même si on masque l'onglet, et les colonnes....)

Et enfin, tu n'as pas suivi mes recommandations dans ton code... (tu mets .xls sans les guillemets....)

Bref, à revoir