Macro enrgistrer sous excel
Résolu
lebtibo33
-
Morgothal Messages postés 1236 Date d'inscription Statut Membre Dernière intervention -
Morgothal Messages postés 1236 Date d'inscription Statut Membre Dernière intervention -
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.
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.
A voir également:
- Macro enrgistrer sous excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
5 réponses
Salut,
Si j'ai bien saisi, ce code doit répondre à tes attentes :
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+
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+
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
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
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
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)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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