Renommer un fichier

[nino63]

* Bonjour, *

A la suite d'opérations en vba, j'aimerais enregistrer le fichier avec les composants de plusieurs cellules (on va dire 2 pour le moment, ensuite je répèterais l'opération si nécessaire).

Ex :
A1 : Pierre
A2 : Dupont

Nom du fichier à enregistrer (renommer) : "Pierre Dupont.xlsx"

Par avance merci.

PS : j'ai fait un tour ici => http://vb.developpez.com/faq/?page=Fichiers, mais je n'ai rien trouver (sauf erreur)

[kiki29]

Salut, voir par exemple qqch comme ceci

Code :

1
2
3
4
5
6
7
8
Option Explicit
 
Sub Tst()
Dim OldName As String, NewName As String
    OldName = "C:\Essai\Essai.xls"
    NewName = "C:\Test\Test.xls"
    Name OldName As NewName
End Sub

[bbil]

Bonjour,

s'il s'agit du classeur contenant ton code ... un truc du genre :

Code :

1
2
3
4
5
6
7
 
Dim stName as string 
 
stName = ThisWorkbook.sheets("Feuil1").range("A1") & " " & ThisWorkbook.sheets("Feuil1").range("A2")  & " .xlsm"
 
 
ThisWorkbook.SaveAs stNAme

[nino63]

Un grand merci à vous deux.

J'ai testé la méthode de kiki29, mais malheureusement j'ai une "erreur d’exécution 75 erreur d'accès chemin/fichier" au niveau de la ligne suivante => "Name OldName As NewName"

Pourtant je suis "presque" sûr de ne pas m'être trompé de chemin.

Peut-être ai-je omis de vous donner une info.

Je suis sous excel et le fichier à renommer est sous word, créer à partir d'un publipostage.
Peut-être que çà change tout?

PS : je n'ai pas copier le "Option explicit" dans mon code. Est-ce grave? D'ailleurs à quoi çà sert?

[kiki29]

Salut, pour Option Explicit voir http://silkyroad.developpez.com/VBA/LesVariables/#LIII
cela fait partie, entre autres, des bases VBA à connaitre et appliquer systématiquement

Pourtant je suis "presque" sûr de ne pas m'être trompé de chemin

La réponse est dans la question

[patricktoulon]

Envoyé par nino63

Un grand merci à vous deux.

J'ai testé la méthode de kiki29, mais malheureusement j'ai une "erreur d’exécution 75 erreur d'accès chemin/fichier" au niveau de la ligne suivante => "Name OldName As NewName"

Code :

1
2
3
OldName = "C:\Essai\Essai.xls"
    NewName = "C:\Test\Test.xls"

peut etre parceque le dossier test n'existe pas ???

au plaisir

[nino63]

Bon j'ai trainé car je développais une autre partie du projet.

Je reviens donc sur mon problème de renommage.

Je ne vous ai pas donné toutes les infos :

Je suis sous excel et je voudrais enregistrer un document word créé après publipostage.

Autrement dit, je voudrais enregistrer le fichier "Lettres types1.docx" qui est créé lorsque l'on fusionne le publipostage. (ce fichier n'est pas encore enregistré, puisqu'il vient juste d'être généré).

Enfin, cerise sur le gâteau, l'enregistrement du fichier "Lettres types1.docx" doit se faire avec un nom du type "cellule A1" espace "cellule A2" d'une feuille excel.

Je vous joint des petits fichiers pour exemple de ce que j'ai fait mais çà bug sur l'enregistrement et le renommage.
Je n'ai même pas été plus loin pour la récupération des cellules XL pour mettre dans le nom vu que je n'arrive déjà pas à enregistrer.

Par avance, un GRAND MERCI.