macro enrgistrer sous excel Résolu/Fermé

Question

Bonjour, 

j'ai un fichier excel avec en feuille2

 case A1 une année
 case A2 un code adhérent

et je souhaiterais à partir d'une macro pouvoir l'enregistrer dans un dossier étant le code adhérent et le  nom du fichier serait le code adhérent + l'année
en espérant avoir été claire
en cas de questionnement n'hésiter pas je reste à votre disposition.
 
Configuration: Windows XP / Firefox 5.0.1

Morgothal · Answer

Salut,

Si j'ai bien saisi, ce code doit répondre à tes attentes :

Sub ecriture_dans_txt()
Dim Fichier, CheminFichier As String

Fichier = Cells(1, 2) & "-" & Cells(1, 1)
MkDir ("c:\" & Cells(1, 2) & "\")
CheminFichier = "c:\" & Cells(1, 2) & "\" & Fichier & ".txt"

    fnum = FreeFile()
    Open CheminFichier For Append As fnum
    Print #fnum, "Si tu veux écrire quelque chose dans ton fichier, c'est ici"
    Close #fnum
End Sub

Il créé un fichier dont le nom est en A2 et A1, le place dans un répertoire nommé par la cellule A2.

Chez moi ce code fonctionne, n'hésite pas à faire un retour si ce n'est pas le cas chez toi !

A+

lebtibo33 · Answer

en fait g réussi à le faire!!! il faut mettre cela

Sub sauve()
Dim chemin As String
chemin = "C:\Dossiers Clients\"
ActiveWorkbook.SaveAs Filename:=chemin & Worksheets("Sommaire").[A2] & "\" & [A1] & [A2] & ".xls"
End Sub

merci de ta réponse mais je l'ai vu après avoir réussi celle ci
je ne doute pas du bon fonctionnement de ton code 
encore merci

Morgothal · Answer

Moi aussi je suis sous 2003...

Quelle est l'erreur ?

Morgothal · Answer

C'est peut-être de ma faute, je crois avoir utilisé 
case A1 une année  
case B1 un code adhérent  
Au lieu de A1 et A2 

Dans le code, il faudrait changer toutes les 
Cells (1,2)par 
Cells (2,1)

Morgothal · Answer

Pour qu'il n'essaie pas de le créer s'il existe déjà, et qu'il utilise l'existant si existant il y a, il faudrait tester le contenu de ton répertoire final (la ou il y a le dossier nommé avec le code adhérent :

repertoire = "C:\"
nf = Dir(repertoire & "*.*")   ' premier fichier
Do While nf <> ""
If nf = cells(2,1) Then
exit sub
End If

'Ici toute la macro

nf = Dir                         ' fichier suivant
Loop

Macro enrgistrer sous excel

5 réponses

Discussions similaires