CREER,NOMMER,ENREGISTRER (Suite), C'est dur!

Y

Yves

Guest

• 1 Février 2004

• #2

Même "Hésit(é)" !!! me file des doutes...

 

Vote positif 0 Vote négatif

Y

Yves

Guest

• 1 Février 2004

• #3

Hé, les mecs et Mesdames, pépé à trouvé! (Tout seul, et toc!)

Gardez vos forces pour mes questions idiotes à venir.

Bravo à tous pour votre compétence, et merci pour votre gentillesse.

Bougez-pas, j'vais bien encore me planter et revenir....!

Yves

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 1 Février 2004

• #4

Salut Yves et bravo pour ton humour

Juste pour essayer de t'orienter un peu...

Sub EnregistrerSous()
Dim Chemin As String
Dim NomFichier As String
Dim Question As Byte

Chemin = "C:\EFFICACE\DEVIS 2004\"

NomFichier = Workbooks("VALEURS.xls").Worksheets("PRIX").Range("B1").Value
NomFichier = NomFichier & ".xls" '< Si ta cellule ne contient pas déjà l'extention ".xls"

Question = MsgBox("Voulez vous sauver " & Chemin & NomFichier, vbQuestion + vbOKCancel)

If Question = vbOK Then
ActiveWorkbook.SaveAs Chemin & NomFichier
End If
End Sub

Bonne Programmation
@+Thierry

 

Vote positif 0 Vote négatif

Y

Yves

Guest

• 1 Février 2004

• #5

Bon, voilà! Encore un truc de nouveau !!!

"As byte"

Coté "Bike" j'en connais un bout (Tour de l'europe)
mais là je pense que cela doit servir à autre chose.

Merci Thierry.

Je soupçonne dans ce que tu me proposes; une façon de faire
plus logique et bien utile. Je vais tenter.

Laisser l'utilisateur un peu maître de revenir sur un "Clic" trop rapide
J'ai bien noté: "vbQuestion + vbOKCancel"

Sympa de ta part.

Bonne soirée à toi, si pas déjà dodo, boulot demain...

Yves

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 1 Février 2004

• #6

Re Salut Yves

Ici Guzziste (Calif) depuis une vingtaine d'années, pas mal de pneus usés en Europe aussi ;-)

Bonne Nuit
@+Thierry

 

Vote positif 0 Vote négatif