Au secour VBA Excel sauvegarde Ouverture
mister113
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
-
mister113 Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
mister113 Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je fais une gestion de formation mais je ne peux utiliser que Excel car l'entreprise pour laquel je travaille ne veux pas entendre parler de Access.
Je me demande comment on peux sauvegarder une feuille qui se trouve ds un classeur A dans un classeur B
Je voudrais donc enregistrer cette feuille dans un nouveau classeur B mais ayant pour repertoire, le dossier d'origine, l'annee, le moi puis le nom du classeur qui est l'identifiant du dossier.
j'ai donc essayer avec
dim moi as string
dim anne as string
moi=month(now)
annee = year(now)
fichier=feuil12.cells(12,14)
FichierNom=fichier & ".xls"
repertoire= thisworkbook.path
Sheets("Feuil1 (2)").Select
Sheets("Feuil1 (2)").Copy
ActiveWorkbook.SaveAs Filename = repertoire &\& anne & \ & moi & fichier
J'ai des messages d'erreur et rien ne marche
Par la suite mon but serai de pouvoir ouvrir cette feuille depuis le classeur A.
Comme je fais 8000 formations par an je ne peux donc pas tout classer dans un seul classeur.
Je fais une gestion de formation mais je ne peux utiliser que Excel car l'entreprise pour laquel je travaille ne veux pas entendre parler de Access.
Je me demande comment on peux sauvegarder une feuille qui se trouve ds un classeur A dans un classeur B
Je voudrais donc enregistrer cette feuille dans un nouveau classeur B mais ayant pour repertoire, le dossier d'origine, l'annee, le moi puis le nom du classeur qui est l'identifiant du dossier.
j'ai donc essayer avec
dim moi as string
dim anne as string
moi=month(now)
annee = year(now)
fichier=feuil12.cells(12,14)
FichierNom=fichier & ".xls"
repertoire= thisworkbook.path
Sheets("Feuil1 (2)").Select
Sheets("Feuil1 (2)").Copy
ActiveWorkbook.SaveAs Filename = repertoire &\& anne & \ & moi & fichier
J'ai des messages d'erreur et rien ne marche
Par la suite mon but serai de pouvoir ouvrir cette feuille depuis le classeur A.
Comme je fais 8000 formations par an je ne peux donc pas tout classer dans un seul classeur.
A voir également:
- Au secour VBA Excel sauvegarde Ouverture
- Logiciel de sauvegarde gratuit - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
1 réponse
Bonjour,
Exemple :
Sub Test()
Dim Mois As String
Dim Annee As Integer
Dim Fichier As String
Dim FichierNom As String
Dim Repertoire As String
Dim Chemin As String
Mois = Format(Month(Now), "mmmm")
Annee = Year(Now)
Fichier = Sheets("Feuil12").Cells(12, 14)
FichierNom = Fichier & ".xls"
Repertoire = ThisWorkbook.Path
Sheets("Feuil12").Select
ActiveSheet.Copy
Chemin = Repertoire & "\" & Annee & "-" & Mois & "-" & FichierNom
ActiveWorkbook.SaveAs Filename:=Chemin
End Sub
Lupin
~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~
Exemple :
Sub Test()
Dim Mois As String
Dim Annee As Integer
Dim Fichier As String
Dim FichierNom As String
Dim Repertoire As String
Dim Chemin As String
Mois = Format(Month(Now), "mmmm")
Annee = Year(Now)
Fichier = Sheets("Feuil12").Cells(12, 14)
FichierNom = Fichier & ".xls"
Repertoire = ThisWorkbook.Path
Sheets("Feuil12").Select
ActiveSheet.Copy
Chemin = Repertoire & "\" & Annee & "-" & Mois & "-" & FichierNom
ActiveWorkbook.SaveAs Filename:=Chemin
End Sub
Lupin
~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~
J'ai juste eu besoin de changer les - par des \
Je cree les dossier avant par contre vu que avec VBA je ne sais pas si on peux creer de nouveux dossier.
En tout cas je te remercie vraiment, ca fais une semaine que je me galere, et la ce matin en 15 min ca marche.
Si tu as des pb un jour j'essayerais de te rendre la pareil.