VBA pour sauvegarde nom cellule sur excel

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : VBA pour sauvegarde nom cellule sur excel

jkm0032

Bonjour,

J'aimerais une aide s'il vous plaît je débute sur VBA et j'aimerais pouvoir sauvegarder a partir d'une msbox un fichier quand je le souhaite et les historiser dans un fichier
Jusqu'a présent mon code est celui ci

Sub sauvegarde()

Message = " Voulez-vous sauvegarder et historiser le reporting?"
stylebox = vbYesNo + vbInformation
réponse = MsgBox(Message, stylebox)
If réponse = vbYes Then
ActiveWorkbook.SaveAs Filename:="P:\xxxx\Portefeuilles\xxxx\xxxx\" & Range("b1" ).Value & "reporting.xls""" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Else

End If

End Sub

Je pense déja que je n'ai pas renseigner ma feuille pour range("b1" ) la cellul b1 contient simplement une formule de type =aujourdhui().

Je veux qu'en cliquant et bien je puisse obtenir datereportingx.xls dans le fichier cible.

Merci d'avance

Message édité par Elmoricq le 29-07-2010 à 13:52:36

Publicité

SuppotDeSaTante

Aka dje69r

Hello

Déjà, le titre ne se met pas en majuscules. Majuscules sur le net = crier
Donc tu utilises cette petite icone pour editer ton post et passer le titre en minuscule.

Ensuite, je dirais que c'est assez simple. Ta date contient (logique) des /
Or, sur Windows on ne peut pas mettre de / dans un nom de fichier.
Passe par un format.

Genre :

Code :

If réponse = vbYes Then
MaDate = Format(Range("b1" ).Value, "yyyy-mm-dd" )
ActiveWorkbook.SaveAs Filename:="P:\xxxx\Portefeuilles\xxxx\xxxx\" & MaDate & "reporting.xls""" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _

Je mets yyyy-mm-dd comme ca tu auras une date de ce genre : 2010-07-29
Mettre les dates dans ce format, surtout pour des noms de fichiers, c'est bien plus pratique si tu as besoin de trier tes fichiers dans l'explorateur.

Si tu as des fichiers comme ceci :
01-01-2010-reporting.xls (1er janvier 2010)
10-01-2010-reporting.xls (10 janvier 2010)
01-02-2010-reporting.xls (1er fevrier 2010)

Si tu les tries pas ordre alpha tu auras ceci :
01-01-2010-reporting.xls (1er janvier 2010)
01-02-2010-reporting.xls (1er fevrier 2010)
10-01-2010-reporting.xls (10 janvier 2010)

Or le 10/01/2010 devrait etre apres le 01/01/2010, mais par ordre alpha les 01 sont en premier, ce qui est logique.
Avec une date a l'anglaise, plus de souci pour trier.

Cordialement

Message édité par SuppotDeSaTante le 29-07-2010 à 13:06:51

---------------
Soyez malin, louez entre voisins !

jkm0032

Merci pour ce tuyau... mais j'ai tjr un probleme de débogage... visiblement je pense comme j'ai trois feuilles sur excel que je n'ai pas spécifié la page dans laquelle je voulais qu'il cherche b1 non?

Ou rien a voir...

SuppotDeSaTante

Aka dje69r

Oui tu peux lui preciser par Sheets("Nom de ta feuille" ).Range("B1" ).Value

Si tu ne specifies pas, il prend la page active.

Et n'oublie pas le titre, sinon la modération risque de passer...
Quoi que sont plus "cool" sur la cat dév

Message édité par SuppotDeSaTante le 29-07-2010 à 13:46:23

---------------
Soyez malin, louez entre voisins !

jkm0032

BOn visiblement ce n'est pas ça.... dsl mais le débogage me met en jeune la deuxieme partie de de la formule... et point readonlyrecommended:=false... etc

Comment puis-je mettre le mon titre en minuscule?

c'est la premiere fois que je poste quelque chose

Modération

Édition du titre : les titres tout en majuscules sont prohibés. Merci de lire les règles de la section.

jkm0032

Merci je l'apprends

SuppotDeSaTante

Aka dje69r

ton chemin est bon ?

---------------
Soyez malin, louez entre voisins !

jkm0032

Oui il est bon puisque je l'ai fait en macro enregistré et je suis allé le prendre après

SuppotDeSaTante

Aka dje69r

Aucun souci chez moi :

Code :

Sub sauvegarde()
Message = " Voulez-vous sauvegarder et historiser le reporting?"
stylebox = vbYesNo + vbInformation
réponse = MsgBox(Message, stylebox)
If réponse = vbYes Then
MaDate = Format(Range("b1" ).Value, "yyyy-mm-dd" )
ActiveWorkbook.SaveAs Filename:="C:\" & MaDate & "-reporting.xls"
Else
End If
End Sub

J'ai bien un fichier sous C: qui se nomme 2010-07-29-reporting.xls

Message édité par SuppotDeSaTante le 29-07-2010 à 15:24:31

---------------
Soyez malin, louez entre voisins !

Publicité

jkm0032

Ca fonctionne super merci bcp, par contre quand je vais historiser mon fichier... mon fichier conserve la date =aujourd'hui donc evolue alors que j'aimerais qu'il ne change plus de date comme il est historiser...

Heureusement que ce genre de forum existe parce que sinon....

Mille mercis

SuppotDeSaTante

Aka dje69r

Je ne suis pas sur de bien tout comprendre...

Mais, si j'ai réussi a traduire dans ma tite tete, ca devrait donner ceci : :whistle:

Code :

Sub sauvegarde()
Message = " Voulez-vous sauvegarder et historiser le reporting?"
stylebox = vbYesNo + vbInformation
réponse = MsgBox(Message, stylebox)
If réponse = vbYes Then
MaDate = Format(Range("b1" ).Value, "yyyy-mm-dd" )
Range("b1" ).Value=Date()
ActiveWorkbook.SaveAs Filename:="C:\" & MaDate & "-reporting.xls"
Else
End If
End Sub

Message édité par SuppotDeSaTante le 29-07-2010 à 16:00:50

---------------
Soyez malin, louez entre voisins !

jkm0032

Ta mécanique intellectuelle fonctionne très bien

Dernière chose après je voudrais défintivement te remercier parce que j'ai appris quelques trucs cette aprem lol

Comment puis rajouter l'heure à ma date?

pour avoir par exemple 2010-05-26 13h30-reporting

SuppotDeSaTante

Aka dje69r

Toujours en jouant sur les formats.

Si tu te positionnes sur Format, et que tu appuies sur F1, tu auras toute l'aide dont tu as besoin.
Je trouve que justement la suite Office, et notament pour vba, a une aide vraiment riche.

Pour repondre a ta question, un truc du genre devrait le faire :
MaDate = Format(Range("b1" ).Value, "yyyy-mm-dd" ) & "-" & Format(Time(), "hh""h""mm" )

Edit : toujours pareil, les ":" etant interdits dans les noms de fichier, on met un "h" pour palier au souci, puisque Time() renvoi hh:mm:ss

Message édité par SuppotDeSaTante le 29-07-2010 à 16:15:09

---------------
Soyez malin, louez entre voisins !

jkm0032

Merci pour tt,

Ca m'a bcp aidé,

Si je souhaite copier coller une valeur dans une autre feuille à une date déterminé,

par exemple dans la feuille "reporting2", la cellule "f39"
que je veux mettre dans la feuille "reporting" mais tout les 27 du mois par exemple... dans un tableau et je veux qu'il y ait un pas chaque mois au 27 qu'il continue dans la colonne pour correspondre au mois que je mettrais dans ma colonnne concomitante...

Si jamais tu es devant merci de m'aider.. tu es super sympa

SuppotDeSaTante

Aka dje69r

Oulalalalala va falloir me la refaire en moins cripsé... :ouch:

J'ai rien compris... [:transparency]

---------------
Soyez malin, louez entre voisins !

jkm0032

lol

Alors reprenons .... j'aimerais faire un copier coller valeur d'une cellule tout les 27 du mois dans un tableau:

Je veux copier ma cellule "F39" de la feuille "reporting2"
F39 correspond en faite à une performance mensuelle genre -22%

dans la cellule "A1" de la feuille "reporting" ou se trouve un tableau
du type

janvier
fevrier
mars
avril
mai
juin
etc

et je veux que le 29 de chaque mois il reporte la cellule F39 mois apres mois (je crois qu'on appelle ça un pas???)

Evidemment je pense qu'il faut indiquer a la macro qu'il copie ca le 29 du mois.

Ai-je été plus clair, je l'espère en tout cas lol

SuppotDeSaTante

Aka dje69r

Avec Excel tu ne peux pas automatiser comme ca sur une date.
Si le fichier n'est pas ouvert, Excel ne lance pas de macro, donc niet.

Ensuite il faut gerer les exceptions. Si on est le 30, et que le 27 n'a pas été fait parceque week end, congés, pc eteind etc. il faut le prendre en compte.

Mais pour ca, je pense qu'un script vbs est plus approprié. Ou, si tu es vraiment sur d'ouvrir ton fichier Excel chaque jour ou presque ca peut se faire.

---------------
Soyez malin, louez entre voisins !

jkm0032

En tout cas il est sur que je l'ouvrirai avant la fin du mois sinon je peux créer un bouton pour qu'il me fasse la manipulation quand je le souhaite et pas a une date figée...
Mais que vais-je mettre derrière le bouton

SuppotDeSaTante

Aka dje69r

Et bien le code qui dit :

- Ouvrir le fichier dans lequel copier la cellule
- Copier la cellule du fichier initial
- Coller la valeur de la cellule dans le fichier final
- fermer le fichier final en le sauvegardant

---------------
Soyez malin, louez entre voisins !

jkm0032

Oui merci, j'arrive quand même a penser ça

Pour l'instant j'ai

sheets("feuil2" ).range("h35" ).copy
sheets("feuil3" ).cells(65535, 13).end(xlup) (2). paste special

Et si je veux reproduire la même opération mais à l'horizontal dans un tableau ("b15:m16" ) qui représente les mois de l'année

janvier fevrier mars avril etc...

mais j'aimerais qu'il reviens a janvier quand il a complété décembre...

SuppotDeSaTante

Aka dje69r

Faudrait surtout expliquer point pas point, en explicitant d'ou viennent tes données où doivent elles aller...
Tu parles de feuilles nommées "reporting2" et la dns ton exemple de code tu as "Feuille3"...

On a pas le classeur sous les yeux, donc difficile d'extrapoler autant...

---------------
Soyez malin, louez entre voisins !

jkm0032

Comment charger le fichier? il est deja prêt je peux te l'envoyer par email ou message privé?

l'explication avant le fichier

Chaque fin de mois en cliquant sur un bouton une valeur va s'ajouter M20, M21 DE LA FEUILLE suivi des perf

j'aimerais que ce tableau verticale soit reporter sur mon tableau horizontal en respectant ("b15:m16" ) pour les premieres années mais si tu sais comment le faire pour qu'il me fasse ca indéfinimement sans s'arreter a decembre 2010 ca serait super.

Message cité 2 fois

SuppotDeSaTante

Aka dje69r

jkm0032 a écrit :

Ca ne devrait pas etre trop compliqué... J'attends ton mail. Je partagerais les infos et l'avancement ici parcontre.

Message édité par SuppotDeSaTante le 04-08-2010 à 11:31:33

---------------
Soyez malin, louez entre voisins !

jkm0032

c'est fait sur ton email... merci a toi

SuppotDeSaTante

Aka dje69r

Désolé, ton mail etait dans mes spams je ne l'avais pas vu...

jkm0032 a écrit :

j'aimerais que ce tableau verticale soit reporter sur mon tableau horizontal en respectant ("b15:m16" ) pour les premieres années mais si tu sais comment le faire pour qu'il me fasse ca indéfinimement sans s'arreter a decembre 2010 ca serait super.

Voici le code, normalement j'ai tout bien expliqué en commentaire, mais si tu as besoin de plus d'info n'hesite pas.
J'ai fait un essai de tirer tes colonnes vers le bas, donc jusqu'en 2025, le traitement dure environ 2sc avec mon pc virtuel...

Code :

Sub Jkm()
'****************************************************************************************************
'Définition des parametres si jamais ton fichier change de formen de nom de feuille etc. *
'ICI TU PEUX MODIFIER LES VARIABLES POUR LES ADAPTER A TON TABLEAU
NomFeuilPerf = "Suivi des performances" 'Nom de la feuille qui actuellement _
se nomme "Suivi des performances"
ColPerf = "M" 'Colonne ou se situe tes lignes d'evolution _
de la feuille "Suivi des performances"
ColDatePerf = "G" 'Colonne ou se situe les dates des lignes d'evolution _
de la feuille "Suivi des performances"
LignePerf = 9 'Numéro de la ligne où commence le tableau des evolutions _
sur la feuille "Suivi des performances"
NomFeuilReport = "Reporting 3" 'Nom de la feuille qui actuellement _
se nomme "Reporting 3"
LigneReport = 15 'Numéro de la ligne où tu veux coller les valeurs _
sur la feuille "Reporting 3"
ColReport = "A" '1ere Colonne de ton tableau de la feuille "Reporting 3"
' *
'****************************************************************************************************
'On enleve le fait de voir Excel travailler, on gagne en ressource
Application.ScreenUpdating = False
'Informations transformées de colonne "A" en numéro donc 1 avec la fonction de dessous xlColumnValue
ColReportNb = CInt(xlColumnValue(CStr(ColReport)))
'On regarde la derniere ligne renseignée de la feuille "Suivi des performances", ici de la colonne M
Sheets(NomFeuilPerf).Select
Range(ColPerf & "65536" ).Select
Selection.End(xlUp).Select
DerLignePerf = ActiveCell.Row
'On se place sur la premiere ligne du tableau
Range(ColPerf & LignePerf).Select
'On boucle sur le tableau pour aller coller les valeurs dans "Reporting 3"
LigneReportInc = LigneReport
For x = LignePerf To DerLignePerf
Sheets(NomFeuilPerf).Select 'on selectionne la feuille "Suivi des performances"
Annee = Year(Range(ColDatePerf & x).Value) 'on regarde l'année de la ligne
Mois = Month(Range(ColDatePerf & x).Value) 'on regarde le mois. Le mois va nous permettre, en fonction _
de la 1ere colonne du tableau de calculer dans quelle _
colonne le mettre directement
NbLigne = Selection.Rows.Count 'on compte le nb de ligne selectionné(es)
If Annee = Year(Range(ColDatePerf & x + 1).Value) And Range(ColPerf & x + 1).Value <> "" Then 'Si l'année de la _
ligne en cours _
est differente de l'annee _
de la ligne suivante alors :
Selection.Resize(NbLigne + 1).Select 'On selectionne la cellule du dessous en plus
Else 'sinon
Sheets(NomFeuilReport).Select 'on selectionne la feuille "Reporting 3"
Range(ColReport & LigneReportInc).Select 'On selectionne A15 (où en fait A est defini _
par la variable ColReport et 15 est defini par _
la variable LigneReport et s'increment a _
chaque changement de date de "Suivi des performances"
Selection.Value = Annee 'On met l'annee dans cette cellule
Range(Cells(LigneReportInc, ColReportNb + 1), Cells(LigneReportInc, ColReportNb + 12)).Select 'On selectionne tous les mois _
donc de B15:M15 _
(en sachant que _
le 15 s'incremente tout seul)
Selection.ClearContents 'on efface le contenu
Sheets(NomFeuilPerf).Select 'on selectionne la feuille "Suivi des performances"
Selection.Copy 'on copy ce qui etait selectionné precedemment, c'est a dire notre plage de valeur pour une année donnée
Sheets(NomFeuilReport).Select 'on revient sur "Reporting 3"
Cells(LigneReportInc, (Mois - NbLigne) + (ColReportNb + 1)).Select 'on se positionne sur la cellule calculée en _
fonction du 1er mois selectionné dans la plage
Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True 'on colle avec transposition : _
tableau vertical devient horizontal
Sheets(NomFeuilPerf).Select 'On selection la feuille "Suivi des performances"
Range(ColPerf & x + 1).Select 'on selectionne la cellule suivant pour repartir a selectionner pour la meme année
LigneReportInc = LigneReportInc + 1 'on increment notre variable LigneReport pour passer aux lignes suivant la ligne 15
End If
Next x
Application.CutCopyMode = False 'on enleve le fait que les cellules soient en mode "copier"
'On va mettre en forme la feuille "Reporting 3"
'On regarde la dernier ligne utilisée
Sheets(NomFeuilReport).Select
Range(ColReport & "65536" ).Select
Selection.End(xlUp).Select
DerLigneReport = ActiveCell.Row
'Mis en forme de la colonne A
Range(ColReport & LigneReport).Select
Selection.Copy
Range(Cells(LigneReport + 1, ColReportNb), Cells(DerLigneReport, ColReportNb)).Select
Selection.PasteSpecial Paste:=xlPasteFormats
'Mis een forme de la colonne N qui contient le total
Cells(LigneReport, ColReportNb + 13).Select
Selection.Copy
Range(Cells(LigneReport + 1, ColReportNb + 13), Cells(DerLigneReport, ColReportNb + 13)).Select
Selection.PasteSpecial Paste:=xlPasteFormulas
Selection.PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False 'on enleve le fait que les cellules soient en mode "copier"
'On remet le fait de voir Excel travailler
Application.ScreenUpdating = True
End Sub
Function xlColumnValue(strColumnIndex As String) As String
strColumnIndex = UCase(strColumnIndex)
Select Case Asc(strColumnIndex)
Case 36
xlColumnValue = xlColumnValue(Mid(strColumnIndex, 2, _
InStr(2, strColumnIndex, "$" ) - 2))
Case 48
MsgBox "The number 0 is invalid.", vbExclamation, "Null Denied"
Case 49 To 57
If strColumnIndex < 27 Then
xlColumnValue = Chr(strColumnIndex + 65 - 1)
Else
If strColumnIndex Mod 26 <> 0 Then
xlColumnValue = Chr(strColumnIndex \ 26 + 65 - 1) + _
Chr(strColumnIndex Mod 26 + 65 - 1)
Else
xlColumnValue = Chr(strColumnIndex \ 26 + 65 - 2) + _
Chr(90)
End If
End If
Case 65 To 90
xlColumnValue = Asc(strColumnIndex) - 65 + 1
If Len(strColumnIndex) > 1 Then
xlColumnValue = xlColumnValue * 26 + Asc(Right(strColumnIndex, 1)) - 65 + 1
End If
End Select
End Function

En image :

Message édité par SuppotDeSaTante le 05-08-2010 à 13:12:56

---------------
Soyez malin, louez entre voisins !

SuppotDeSaTante

Aka dje69r

Fin des Edit

---------------
Soyez malin, louez entre voisins !

jkm0032

Yo,

Dsl j'ai été viré entre temps

Donc je viens de voir la réponse merci bcp a toi c'est gentil.

jkm0032

Faut vraiment que je me mette serieusement a VBA, j'ouvre un livre que je plonge deux minutes après

Publicité

FORUM HardWare.fr

Programmation

VB/VBA/VBS

VBA pour sauvegarde nom cellule sur excel

Sujets relatifs
VBA : Erreur d'exécution '-2147417848 (80010108)	insérer formule dans une cellule ac référence à d'autre feuille
VBA Incrémentation automatique selon une variable	macro excel copier rajouter
[Qt] retourner les indice d'une cellule d'un QTableWidget	Afficher liste paramètres Fonction VBA
Envoyer un mail via Excel	Problème pour appelé une feuille & extraire des données sous excel
VBA / Définir taille graphique à sa création	VBA tcd \| problème avec un filtre
Plus de sujets relatifs à : VBA pour sauvegarde nom cellule sur excel

Page générée en 0.153 secondes