Bonjour,
 
Dans une feuille Excel, j'aimerais encregitrer un nouveau fichier dans le repertoire du fichier d'origine. J'ai tout essayé, mais je dois avouer que je sèche...
 
     Sheets("Feuil1" ).Activate
     
         ActiveWorkbook.SaveAs Filename:=CurDir = "nom du fichier" & range (A1) & ".xls", _
         FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
       ReadOnlyRecommended:=False, CreateBackup:=False
 
Quelqu'un pourrait il m'aider ?
 
De plus, connaitriez vous un site interessant a me recommander pour débuter dans le macro ou avec des exmples d'expressions ?
Merciiii !

Bonjour,
A essayer:  
 ActiveWorkbook.Path
 pour récupérer le chemin du classeur actif.
 
Filename:=ActiveWorkbook.Path & "\" & "nom du fichier" & range (A1) & ".xls"
 
 
Cordialement

Merci pour l'info. Je pense effectivement que c'est la bonne formule, mais je n'arrive pas a la faire fonctionner. je pense qu'il me manque sans dout une petite lettre ou un petit signe. j'ai enlever le "range (A1)" pour faire plus simple pour l'instant.
Merci pour votre aide.
cdlt.
 
--------------------------------------------------------------------------------------------
 
Sub Macro6()  
         
     ActiveWorkbook.Path Filename:=ActiveWorkbook.Path & "\" & "Nom du fichier.xls"
 
    Sheets(Array(.....

quelle erreur sort du chapeau ?

Alors, lorsque je lance la macro, elle s'arrete sur .Path avec un message :
 
Erreur de compilation
utilisation incorrecte de la propriété.

tu as mis .path a la place de .saveas

J'ai essayé ton idée, mais ca me l'enregistre sur D:, et non pas dans le dossier ou j'ai le fichier initiale. je pense qu'il me manque un truc apres le saveas.
 
 
   Sheets("Covers" ).Activate
    ThisWorkbook.SaveAs "\" & "nom du fichier.xls"
 
    Sheets(Array(

Bonjour,
Jpcheck (que je salue) a voulu dire:  
ThisWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & "Nom du fichier.xls"  
Cordialement

Ok, j'ai réussi grace a vous...
 
ThisWorkbook.SaveAs (ThisWorkbook.Path & "\" & "nom du fichier .." )
 
Par contre, maintenant, j'essaye le truc du range pour rapporté le nom d'une cellule et ca plante.. j'y retourne !

        Sheets("Covers" ).Activate
       ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "Nom du fichier - " & Range(D32) & ".xls"
 
a savoir, la case D32 est située sur la feuille "Covers" et cela fait référence a une formule excel qui représente la date du mois en cours.

la date avec des //?
fais msgbox range(d32) pour voir comment il se présente.

Range("D32" )

merci a tous, ca marche super !
bonne fin de journée !

Merci Paul Hood
et en plus j'ai répété l'erreur à chaque réponse
Cordialement