EXCEL

bonjour

je cherche un petit prog pour pouvoir enregistrer un fichier à un emplacement voulu et avec comme nom de fichier une donnée d'une céllule du meme fichier

est-ce possible ???

merci d'avance...

Bonjour,
? As tu essayé en enregistrement de macro puis remplacement du path et nom de fichier par des variables dont l'une contiendrait le contenu dune cellule en tant que nom de fichier
Voire même demander à l'utilisateur de saisr le path dans un inpubox

Cliquons "Réponse Acceptée" quand c'est le cas
JML. Partageons notre savoir et nos acquis

hello

j'ai effectivement enregistrer une macro mais j'aimerai que le programme cherche le nom du fichier dans une cellule spécifique...

c'est possible ??

merci d'avance

Salut, j'avais trouvé ça il y a quelques temps sur le site:

Sub ecritureFichier()
Const ForReading = 1, ForWriting = 2, ForAppending = 3
'création d'un objet FileSystemObject et ouverture du fichier dans lequel écrire
Dim objetfile, fichier
Set objetfile = CreateObject("Scripting.FileSystemObject")
Set fichier = objetfile.OpenTextFile("C:\ecrire.txt", ForWriting)
'on se place en A1 de la feuille EcritureFichier
Worksheets("EcritureFichier").Activate
Range("A1").Activate
'on boucle pour écrire ligne par ligne ce qu'il y a dans la colonne A
Do While ActiveCell.Value <> ""
    fichier.WriteLine (ActiveCell.Value)
    ActiveCell.Offset(1, 0).Activate
Loop
fichier.Close
End Sub

Je n'ai pas testé pour ton cas mais il me semble que si tu remplaces "C:\ecrire.txt" par une variable dans laquelle tu auras préalablement chargé le chemin inscit dans ta cellule, ça devrait fonctionner.

IMPORTANT: Le fichier doit exister au préalable.

@+

Tubafat  
Avant d'imprimer, pensez à l'environnement

il me faut etre plus précis

le fichier que j'ouvre est un model EXCEL avec des données provenant d'une autre feuille

le programme dois prendre comme designation, le texte dans une cellule spécifique et l'enregistrer à l'emplacement que je prevoirai et le fermer...


mais ton prog. ne marche pas

Salut,
Le text contenu dans la cellule représente quoi comme type de fichier????

@+: Ju£i€n
Pensez: Réponse acceptée

la cellule comporte du texte du style

DC_07_001

reference qui vient d'une autre feuille


l'enregistrement doit aller chercher ces infos dans cette cellule car le N° change...
l'enregister à un emplacement specifique.

le fichier qui sert à l'enregistrement est un fichier model XLT

Re,
Oui mais le FIchier destination à sauvegarder doit être de quel type car, on ne fera pas la meme chose si c'est un .txt ou si c'et un .Xls. Tu vois ce que je  veux dire?

@+: Ju£i€n
Pensez: Réponse acceptée

MonFichier= Cells(NUmLigne,NumColonne)
MonRepertoire = "Chaine A Définir"
Activeworkbooks.SaveAs "C:\" & MonRepertoire & "\" & Monchier

Cliquons "Réponse Acceptée" quand c'est le cas
JML. Partageons notre savoir et nos acquis

MonFichier= Cells(NUmLigne,NumColonne) & ".xls"

Cliquons "Réponse Acceptée" quand c'est le cas
JML. Partageons notre savoir et nos acquis