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

[Yves]

Désolé, avec mon grand age; j'ai les neurones qui coincent un peu.

Je n'arrive pas à faire ce truc:
J'ai même tenté une variable "String" !!! C'est dire…!

ActiveWorkbook.SaveAs Workbooks("VALEURS").Sheets("PRIX").Range("B2").Value

Ca, ça marche… Mais…:

'ActiveWorkbook.SaveAs Filename:= _
"C:\EFFICACE\DEVIS 2004\(Le nom récupéré en "B2" ci-dessus).xls"

J'hésite à continuer à chercher comment marche une variable,
ou me consacrer définitivement au jardinage!
Si c'est grave, faut pas hésité à me le dire.

Yves

 

[Yves]

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

 

[Yves]

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

 

[@+Thierry]

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

 

[Yves]

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

 

[@+Thierry]

Re Salut Yves

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

Bonne Nuit
@+Thierry