Consequences d une macro de sauvegarde

[ninanani]

Bonjour,

J ai la macro suivante:
Sub Save_Sheet()

Dim strNom As Variant

strNom = Application.GetSaveAsFilename(Name & Range("B16") & Format(Range("G16"), " yyyy-mm-dd"), "Invoices (*.xls),*.xls")

If strNom <> False Then
ActiveSheet.Copy
ActiveWorkbook.SaveAs strNom
ActiveWorkbook.Close
End If

End Sub

J aimerais qu une fois la sauvegarde effectuee, les cellules :B16, G19 et A25
redevienne blanche.
Quelle code faut il rajouter a cette macros?

merci

 

[Pierrot93]

Re : Consequences d une macro de sauvegarde

Bonjour nina

si tu entends par blanche, que le contenu soit effacé, essaye le code ci dessous :

Range("A25,B16, G19").ClearContents

bonne journée
@+

 

[ninanani]

Re : Consequences d une macro de sauvegarde

Re,

Merci c est exactement ce que je souhaitais.
En revanche, je ne sais pas ou placer ce code, j ai essaye entre "end if" et "end sub", mais lorsque je sauvegarde un message d erreur s affiche..

Peut etre l ais je mal place?

Merci

 

[Pierrot93]

Re : Consequences d une macro de sauvegarde

Re

Comme tu disais :

J aimerais qu une fois la sauvegarde effectuee, les cellules :B16, G19 et A25
redevienne blanche.

je pense qu'il faut le placer après la sauvegarde et avant la fermeture du classeur... Mais dans ce cas si tu ne fais pas d'autre sauvegarde, sous un autre nom par exemple, à l'ouverture du classeur les cellules seront renseignées...

 

[ninanani]

Re : Consequences d une macro de sauvegarde

Re,

Voil la macro que j ai faite, en y inserant ta modification:
Sub Save_Sheet()

Dim strNom As Variant

strNom = Application.GetSaveAsFilename(Name & Range("B11") & Format(Range("G11"), " yyyy-mm-dd"), "Invoices (*.xls),*.xls")

If strNom <> False Then
ActiveSheet.Copy
ActiveWorkbook.SaveAs strNom
Range("A25,B16, G19").ClearContents
ActiveWorkbook.Close
End If

End Sub

Seulement lorsque je sauvegarde, il me signale toujours l erreur N:1004.
J aimerais que des que ma sauvegarde a ete effectue, les cases citees precedement se vide de leur contenue.

Merci de ton aide

 

[Pierrot93]

Re : Consequences d une macro de sauvegarde

Re

quelle ligne pose problème ? en jaune lors du débogage... Atention dans ton code tu utilises "Name", pour toi à quoi correspond t il. Ce ne peut pas être une variable étant un mot réservé vba...

@+

 

[ninanani]

Re : Consequences d une macro de sauvegarde

La ligne qui pose probleme est la ligne que je rajoute pour faire que les cases se revident, c est a dire:
Range("A25,B16, G19").ClearContents

Pourrais tu me montrer precisement ou tu la mettrait, toi?

Sinon le mot "name" ne pose pas de probleme, c est juste que lorsque j enregistre je veux que un titre se mette automatiquement, cela fonctionne..
Ca pourrait cela le probleme?

Merci

 

[Pierrot93]

Re : Consequences d une macro de sauvegarde

Re

cette ligne fonctionne bien chez moi sur la feuille active... L'une de ces cellules ne serait elle pas fusionnée des fois ?

 

[ninanani]

Re : Consequences d une macro de sauvegarde

Re,

Heu oui, deux de ces cellules sont fusionnees avec d autres, je savais pas que cela pouvait changer quelque chose..

C est donc cela le probleme....

Dans ma macro, comment faut il que je represente les cellules fusionnees?

Merci

 

[Pierrot93]

Re : Consequences d une macro de sauvegarde

Re

il faut considérer la plage fusionnée, comme ceci (adresse des cellules concernées à adapter) :

Range("A25:A26,B16:C16,G19").ClearContents

 

[ninanani]

Re : Consequences d une macro de sauvegarde

OUHAAAA!

Merci ca marche! I am happy.

Bonne journee!