sauvegarde en couleur

[ninanani]

Re salut tout le monde!

Toujours avec ma macro de sauvegarde dune seule feuille d un classeur excel, serait-il possible d ecrire le titre de la sauvegarde en rouge si jamais il y a un chiffre different de "0" en G41-42 ou en H41-42 (- veut dire que les cellules sont fusionnees.

Voila ma macro:
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
ActiveWorkbook.Close
End If

Range("B11😀11,A23:B23,G14,G38,G39,G40,H38,H39,H40,F23").ClearContents

End Sub


Desole de vous harceler, mais je ny connais vraiment rien en macro.

Merci de vos reponses!😱

 

[PascalXLD]

Re : sauvegarde en couleur

Bonjour

excuses moi mais je ne comprends pas ce que tu veux dire par
"serait-il possible d ecrire le titre de la sauvegarde en rouge"

 

[ninanani]

Re : sauvegarde en couleur

Re,

desole je n ai pas etais tres claire.

Je voudrais que mon titre 🙁Name & Range("B11") & Format(Range("G11"), " yyyy-mm-dd"), soit ecrit en rouge.
C est a dire que dans mon fichier ensuite, j ai plusieur sous classeur excel avec des titres soit en noir, soit en rouge.

Est ce que cest plus clair?

 

[PascalXLD]

Re : sauvegarde en couleur

Re

Euh non

ce nom que tu veux en rouge il n'est pas dans une cellule c'est le nom d'enregistrement
Tu ne peux pas écrire le nom d'un classeur en rouge ou alors j'ai rien compris du tout 😱

 

[ninanani]

Re : sauvegarde en couleur

Re,

C etait ca que je voulais, ecrire le nom du classeur en rouge, mais si c est pas possible, pourrait on juste le mettre en majuscule?

Merci

 

[PascalXLD]

Re : sauvegarde en couleur

Re

Tu peux essayer d'ajouter après

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

if range("G41")=0 and range("H41)=0 then
strnom=Lcase(strnom)
else
strnom=ucase(strnom)
end if

Sinon ce que tu voulais tu avais déjà réussi à le faire à la main de mettre un nom de classeur en rouge ???

 

[ninanani]

Re : sauvegarde en couleur

Re,
merci pour ta reponse,
mais lorsque je rajoute ce que tu ma donne en plus, la phrase :if range("G41")=0 and range("H41)=0 then s affiche en rouge, suivi d un message derreur.

Pour le nom du classeur en rouge, non je n avais jamais reussi, je me demandais d ailleur si c etait possible...

 

[PascalXLD]

Re : sauvegarde en couleur

re

j'ai oublié un " après H41 😱

 

[ninanani]

Re : sauvegarde en couleur

Re,

j ai tout bien recopie, mais lors de ma sauvegarde, un autre message d erreur apparait et la meme phrase se retrouve surlignee en jaune.

Merci!

 

[PascalXLD]

Re : sauvegarde en couleur

RE

montre moi le fichier car là cela va être dur (sans données confidentielles)

 

[ninanani]

Re : sauvegarde en couleur

Re,

J ai essaye de modifie un peu la macro car mon message etait plutot du genre:
Si en G40-41 OU en H40-41, ce nest pas egal a 0, alors ecrire en majuscule.

J ai essaye d inserer un "or", dans la macro, mais cela ne fonctionne pas.

 

[ninanani]

Re : sauvegarde en couleur

Voili voilo ma feuille invoice.

Merci de ton aide

 

[PascalXLD]

Re : sauvegarde en couleur

re

modifies ainsi

Sub Save_Sheet()

Dim strNom As Variant

toto = Name & Range("B11") & Format(Range("G11"), " yyyy-mm-dd")
If Range("G41") = 0 And Range("H41") = 0 Then
toto = LCase(toto)
Else
toto = UCase(toto)
End If
strNom = Application.GetSaveAsFilename(toto, "Invoices (*.xls),*.xls")


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

Range("B11:D11,A23:B23,G14,G38,G39,G40,H38,H39,H40,F23").ClearContents

End Sub

 

[ninanani]

Re : sauvegarde en couleur

Re,

C est bon ca marche, merci bcp de ton aide!