Discussion :

[LAETIAZ]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

Sans aller plus loin, essaie avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.SaveAs Chemin & NomFichier & ANNEE & MOIS & NomFichier2

[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ù

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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...?

[LAETIAZ]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 comment faire?
merci encore pour ceux qui m'aide

[LAETIAZ]

En fait c'est pour le titre de mon fichier qui est VENTE_AAAA_MM. J'ai réussi avec l'aide du forum à le mettre en prenant des valeurs venant des cellules VENTE_2006_NOVEMBRE mais je voudrais que le NOVEMBRE devienne 11

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim LaDate
LaDate = Split("VENTE_2006_NOVEMBRE", "_")
MsgBox Month(CDate(LaDate(1) & " " & LaDate(2)))

Testé

[LAETIAZ]

mais je voudrais que si un jour ca devienne janvier quand j'enregistre automatiquement que ca le fasse aussi

[ouskel'n'or]

Tu te moques ?
Si ce que tu récupères est "VENTE_2006_JANVIER", tu auras 1

[LAETIAZ]

en fait le code que tu m'a conseillé me met une boite de dialogue avec 11 moi il faut que le titre de mon fichier soit VENTE_2006_11 et non VENTE_2006_NOVEMBRE pour quelque soit le mois récupéré dans une cellule