Comment creer un fichier par concatenation?

[Xavier]

y a -t-il moyen de creer un fichier en concatenant?

Donc voici la commande que j'aurais dans une cellule... en A3 se trouverait le nom du fichier que je veux creer

CONCATENER('C:\\Documents and Settings\\Xa\\Bureau\\xxx\\Dossier\\';A3;'.xls')

Est ce possible?

 

[Jacques87]

Bonsoir Xavier

Il me semble que tu expliques mal ta question
Si je comprends bien tu veux créer un chemin par concaténation, alors la aucun problème ta formule doit convenir
Maintenant si tu veux utiliser ce chemin pour sauvegarder ou ouvrir le fichier concerné, alors c'est autre chose

Bonne soirée

 

[_Thierry]

Bonsoir Xavier, le Forum

Oui c'est possible, mais uniquement par un Code VBA (Macro)

Voici un exemple à mettre dans un Module Standard (Module1 par exemple) et ensuite créer un bouton et y affecter cette Macro :

Const Chemin As String = 'C:\\\\\\\\Documents and Settings\\\\\\\\Thierry\\\\\\\\My Documents\\\\\\\\'

Sub FileGenerator()
Dim NomDuFichier As String

If Sheets('TaFeuille').Range('A3') = Empty Then
    MsgBox 'Pas Glop Pas Glop !!!, La Cellule A3 est Vide !!!', vbCritical
    Exit Sub
End If

NomDuFichier = Sheets('TaFeuille').Range('A3')

ThisWorkbook.SaveAs Chemin & NomDuFichier & '.xls'


End Sub

Bonne Soirée
[ol]@+Thierry[/ol]

EDITION !!!

Bonsoir Jacques, pas vu (pas pris lol)

Message édité par: _Thierry, à: 21/02/2006 19:12

 

[Jacques87]

Bonsoir Thierry

Comment cela : 'Pas Glop Pas Glop !!!, '
je comprends qu'avec de tels propos c'est 'vbCritical' et que tu t'empresses de 'Exit Sub'

salut Thierry et bonne soirée