[VBA-E] Enregistrement Fichier

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour à tous :)
J'ai un petit problème qui est le suivant : J'ai un fichier nommé "VENTES_AAAA_MM" avec plusieurs feuilles vendeurs. Dans ces feuilles vendeurs il y en a rempli et d'autres non. Celles qui sont remplies comportent une année et un mois (le mois étant en lettres"). Avec ceci il faut que je récupère dans les cellules non vide le mois (devant être avec deux chiffres) et l'année et enregistrer le fichier sous un autre nom ex: "VENTES_2006_12" et il faut que je puisse supprimer le fichier "VENTES_2005_12". Pour ceci voilà où j'en suis
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 sub() Dim VENTES_AAAA_MM As Excel.Workbooks Dim VENDEUR1, VENDEUR2, VENDEUR3 As Excel.Sheets Dim ANNEE As String Dim MOIS As String NomFichier = "VENTES_" NomFichier2 = "_" Chemin = "C:\" Sheets(Array("VENDEUR1", "VENDEUR2", "VENDEUR3",)).Select ANNEE = Range("G3").Value MOIS = Range("G4").Value Workbooks("VENTES_AAAA_MM").Activate ActiveWorkbook.SaveAs Chemin + NomFichier + ANNEE + MOIS + NomFichier2 end sub
et avec ceci cela enregistre juste sous le nom "VENTES__" et ne prend pas en compte année ni mois
Merci d'avance pour l'aide que vous m'apporterez:)

05/04/2007, 14h42
ouskel'n'or

Sans aller plus loin, essaie avec

Code:

ActiveWorkbook.SaveAs Chemin & NomFichier & ANNEE & MOIS & NomFichier2
05/04/2007, 14h45
LAETIAZ

Cela fonctionne pareil mais je pense que c'est plutot du côté de la récupération de l'année et du mois mais je ne vois pas où :roll:
05/04/2007, 15h05
helios77
Pourquoi sélectionnestu les 3 feuilles ??
En faisant ainsi, il ne récupère la case G3 de la feuille 1 (VENDEUR1) uniquement ==> si cette feuille n'est pas renseigné alors anne et mois ne sont pas renseignées

Tu sélectionnes les 3 car tu ne sais pas laquelle est vide ou pleine ???
Essaie çà
Code:

1 2 3 4 5 6 7 8 9 dim i as integer i=1 while ANNEE = "" Sheets("VENDEUR" & i)).Select ANNEE = Range("G3").Value MOIS = Range("G4").Value i=i+1 Wend
Ainsi, il regardera tes 3 feuilles l'une après l'autre et dès qu'il en trouve une remplit, il sort ==> ton anne et mois seront alimentés

J'ai rien fait pour vérifier que la feuille existe, ce code suppose que tes feuilles VENDEUR existe et surtout qu'au moins une de tes feuilles vendeurs contiennent quelque chose sinon y a rique de plantage
05/04/2007, 15h12
LAETIAZ

Je comprends ton code mais esct ce que tu crois que ça va marcher si les feuilles des vendeurs sont nommées par leur nomcomme MARCEL, SIMON...?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
sub()
Dim VENTE_AAAA_MM As Excel.Workbooks
Dim Marcel, Simon, Valerie As Excel.Sheets
Dim ANNEE As String
Dim MOIS As String
NomFichier = "VENTES_"
NomFichier2 = "_"
Chemin = "C:\"
dim i as integer
 
While ANNEE = Range("G3") = ""
Sheets("Marcel" & i).Select
ANNEE = Range("G3").Value
MOIS = Range("G4").Value
i = 1 + i
Wend
Windows("VENTES_AAAA_MM").Activate
ActiveWorkbook.SaveAs Chemin + NomFichier + ANNEE + MOIS + NomFichier2
end sub

Voilà encore ce que j'ai essayé mais toujours rien :cry: comment faire?
merci encore pour ceux qui m'aide :)

si la feuille existe pas, çà peut par amrcher

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
sub()
Dim VENTE_AAAA_MM As Excel.Workbooks
Dim Marcel, Simon, Valerie As Excel.Sheets
Dim ANNEE,MOIS As String
NomFichier = "VENTES_"
NomFichier2 = "_"
Chemin = "C:\"
dim i as integer
i=0
dim tabFeuille(0 to 2) as string
tabFeuille(0) = "Marcel"
tabFeuille(1) = "Simon"
tabFeuille(2) = "Valerie" 
 
While i<Ubound(tabFeuille)
    ANNEE = Sheets(tabFeuille(i)).Cells(3,7).value
    MOIS = Sheets(tabFeuille(i)).Cells(4,7).value
    i = i + 1
    if(ANNEE <> "")  Then i = Ubound(tabFeuille) + 1
Wend
Windows("VENTES_AAAA_MM").Activate
ActiveWorkbook.SaveAs Chemin + NomFichier + ANNEE + MOIS + NomFichier2
end sub

05/04/2007, 16h14
LAETIAZ

Merci pour ta réponse mais cela me met un bug à la ligne ANNEE=....
05/04/2007, 16h16
helios77

quel est le message ?
05/04/2007, 16h17
LAETIAZ

L'indice n'appartient pas à la sélection
05/04/2007, 16h18
helios77

t'es sûre du nomde tes feuilles ?????

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub a()
Dim ANNEE, MOIS, NomFichier, NomFichier2, Chemin As String
Dim tabFeuille() As String
Dim i As Integer
 
NomFichier = "VENTES_"
NomFichier2 = "_"
Chemin = "C:\"
i = 0
 
ReDim tabFeuille(0 To Sheets.Count - 1)
 
While i < Sheets.Count
    tabFeuille(i) = Sheets(i + 1).Name
    i = i + 1
Wend
 
i = 0
 
While i < UBound(tabFeuille)
    ANNEE = Sheets(tabFeuille(i)).Cells(3, 7).Value
    MOIS = Sheets(tabFeuille(i)).Cells(4, 7).Value
    i = i + 1
    If (ANNEE <> "") Then i = UBound(tabFeuille) + 1
Wend
Windows("VENTES_AAAA_MM").Activate
ActiveWorkbook.SaveAs Chemin + NomFichier + ANNEE + MOIS + NomFichier2
End Sub

05/04/2007, 16h34
LAETIAZ

Merci beaucoup ca marche nickel encore un dernier tout petit renseignement jsui débutante en vba et je voulais savoir ce que voulais dire Ubound et tabfeuille et aussi comment changer le format de la date de l'écrit en deux chiffres merci encore:)
05/04/2007, 16h41
helios77

Ubound() donne le nombre d'indice de mon tableau tabFeuille

Je ne comprends pas ce que tu veux faire avec le format de la date..donne moi un exemple
05/04/2007, 16h42
LAETIAZ

je veux que par exemple novembre devienne 11

tu rajoutes ceci après ton autre focntion
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Function numeroMois(m As String) As Integer Dim i As Integer Dim numMois As Integer i = 1 While i <= 12 If (LCase(m) = MonthName(i)) Then numMois = i i = 15 End If i = i + 1 Wend numeroMois = numMois End Function
et dans la première fonction, tu fais MOIS = numeroMois(MOIS)
Voilà c'est tout

Attention, ceci suppose que tse mois contiennent les Accents comme dans Février,Août et Décembre)
Sinon, faudrait faire autrement

Ca je n'arrive pas à le faire marcher et je peux faire un truc comme ca

Code:

1
2
3
4
5
6
7
8
9
10
11
12
...
While i < UBound(tabFeuille)
    ANNEE = Sheets(tabFeuille(i)).Cells(3, 7).Value
    MOIS = Sheets(tabFeuille(i)).Cells(4, 7).Value
    Format(MOIS, "mmmm") = Format(MOIS, "mm")
    i = i + 1
    If (ANNEE <> "") Then i = UBound(tabFeuille) + 1
Wend
Windows("VENTE_AAAA_MM").Activate
ActiveWorkbook.SaveAs Chemin + NomFichier + ANNEE + NomFichier2 + MOIS
end sub

non

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
...
While i < UBound(tabFeuille)
    ANNEE = Sheets(tabFeuille(i)).Cells(3, 7).Value
    MOIS = Sheets(tabFeuille(i)).Cells(4, 7).Value
    i = i + 1
    If (ANNEE <> "") Then i = UBound(tabFeuille) + 1
Wend
Windows("PRIME_AAAA_MM").Activate
MOIS = numeroMois(MOIS)
ActiveWorkbook.SaveAs Chemin + NomFichier + ANNEE + NomFichier2 + MOIS
end sub
 
 
Function numeroMois(m As String) As Integer
Dim i As Integer
Dim numMois As Integer
i = 1
 
While i <= 12
    If (LCase(m) = MonthName(i)) Then
        numMois = i
        i = 15
    End If
    i = i + 1
Wend
 
numeroMois = numMois
 
End Function

05/04/2007, 17h32
LAETIAZ

Cela ne marche pas ca me met 0 au lieu de 11 :cry:
05/04/2007, 18h00
ouskel'n'or
Ça dépend ;)
Sous quelle forme est ta date ? Tu as le mois seul ?
Si tu as toute la date alors le mieux c'est
Code:

1 2 LaDate = "12 novembre 2006" MsgBox Month(CDate(LaDate))
Si tu n'as que le mois, tu dis

ou mieux
Code:

1 2 3 Dim LaDate As Date LaDate = "12 novembre 2006" MsgBox Month(LaDate)

Voir 40 message(s) de cette discussion en une page