sauvegarde en couleur

PascalXLD

XLDnaute Barbatruc

• 20 Janvier 2009

• #2

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"

 

Vote positif 0 Vote négatif

N

ninanani

XLDnaute Occasionnel

• 20 Janvier 2009

• #3

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?

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 20 Janvier 2009

• #4

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 😱

 

Vote positif 0 Vote négatif

N

ninanani

XLDnaute Occasionnel

• 20 Janvier 2009

• #5

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 20 Janvier 2009

• #6

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

 

Vote positif 0 Vote négatif

N

ninanani

XLDnaute Occasionnel

• 20 Janvier 2009

• #7

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 20 Janvier 2009

• #8

Re : sauvegarde en couleur

re

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

 

Vote positif 0 Vote négatif

N

ninanani

XLDnaute Occasionnel

• 20 Janvier 2009

• #9

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!

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 20 Janvier 2009

• #10

Re : sauvegarde en couleur

RE

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

 

Vote positif 0 Vote négatif

N

ninanani

XLDnaute Occasionnel

• 20 Janvier 2009

• #11

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.

 

Vote positif 0 Vote négatif

N

ninanani

XLDnaute Occasionnel

• 20 Janvier 2009

• #12

Re : sauvegarde en couleur

Voili voilo ma feuille invoice.

Merci de ton aide

 

Pièces jointes

• Copy of customers.zip

  16 KB · Affichages: 13
• Copy of customers.zip

  16 KB · Affichages: 17
• Copy of customers.zip

  16 KB · Affichages: 14

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 20 Janvier 2009

• #13

Re : sauvegarde en couleur

re

modifies ainsi

Code:

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

 

Vote positif 0 Vote négatif

N

ninanani

XLDnaute Occasionnel

• 20 Janvier 2009

• #14

Re : sauvegarde en couleur

Re,

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

 

Vote positif 0 Vote négatif