Copie de classeur sous VBA Est-ce possible ?

Bonjour à toutes et à tous,

La question est dans le titre. Par exemple pour sauvegarder le résultat d'une application à cycle mensuel.

Bonjour,

Un petite recherche sur le forum avec le mot "sauvegarde" te donne plein d'exemple à ce sujet.

en voici un --> https://www.excel-pratique.com/forum/viewtopic.php?t=8780

Amicalement

Dan

Merci Nad Dan,

j'ai lu le lien, je l'ai exploité et . . . . ça marche !

Je suis très très très content et reconnaissant.

Note : je n'avais pas remarqué la possibilité de "recherche" sur le forum.

Désormais, j'essaierai de l'exploiter avant de poser mes questions idiotes.

Au secours Nad Dan,

C'est vrai que la copie se fait mais dans un classeur qu'il appelle False.xls et à un endroir que je ne connais pas . . . !

Re,

Mets ton code en ligne car sans cela je ne peux comprendre ton souci

Amicalement

Dan

Pour Nad Dan,

j'ai mis le sujet "doublon" en RESOLU" et j'enlève le "RESOLU" sur celui-ci. Merci de ce tuyau.

Pour mon souci ;

J'écris :

ActiveWorkBook.Save As Filename:=ActiveWorkBook.Path & "\" & Range("P3") & "_" & Range("Q3")

P3 et Q3 sont dans la feuille active et contiennent MOIS et DATE qui dénommeront mon classeur copié qui s'appelera donc : Janvier_2009 (par exemple)

Bonsoir,

Si tu as mis un espace entre SAVE et AS, il n'en faut pas.

Mais je pense que ton souci ne vient pas de là.

Pourrais-tu nous joindre un extrait de ton fichier ?

Merci

Bonsoir,

Peut-être ainsi :

Dim LePath As String, LeNom As String
LePath = ActiveWorkbook.Path & "\"
LeNom = Range("P3").Value & "_" & Range("Q3").Value & ".xls"
ActiveWorkbook.SaveAs Filename:=LePath & LeNom

note le ".xls", en fin de code.....

Merci à tous ceux qui sont intervenus (Nad-Dan, readi, cousinhub)

Ca marche avec la solution de cousinhub.

Question subsidiaire sur un tout autre sujet :

machin = Application.InputBox(Prompt:=_

"blablablablablablablablabla", Type:=2)

Si je veux "aérer " mon "blablablablablablablablabla" pour qu'il apparaisse sur 2 ou 3 lignes, voire avec des interlignes . . . EST-CE POSSIBLE ? si ou, COMMENT ?

Re-,

ainsi?

machin = Application.InputBox(Prompt:= _
"blablablabla" & Chr(10) & "blablablablabla", Type:=2)

bonne soirée

Bonsoir,

Avec le code :

    Dim machin As String
    Dim message As String

    message = "blablabla" & Chr(13) & Chr(10) & "blablabla" & Chr(13) & Chr(10) & "blablabla"
    machin = Application.InputBox(Prompt:=message, Type:=2)

Merci à cousinhub et readi pour leur réponse à ma question :

InputBox avec des blablablablabla sur plusieurs lignes voire avec interlignes.

YATOUKIMARCH