enregistrement d'un nouveau fichier dans le repertoire d'origine ?

enregistrement d'un nouveau fichier dans le repertoire d'origine ? - VB/VBA/VBS - Programmation

Marsh Posté le 31-05-2007 à 10:46:55    

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 !

Reply

Marsh Posté le 31-05-2007 à 10:46:55   

Reply

Marsh Posté le 31-05-2007 à 12:57:34    

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


Message édité par seniorpapou le 31-05-2007 à 13:03:41
Reply

Marsh Posté le 06-06-2007 à 12:05:46    

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

Reply

Marsh Posté le 06-06-2007 à 12:07:08    

quelle erreur sort du chapeau ?

Reply

Marsh Posté le 06-06-2007 à 12:16:58    

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

Reply

Marsh Posté le 06-06-2007 à 12:19:26    

tu as mis .path a la place de .saveas :)

Reply

Marsh Posté le 06-06-2007 à 12:27:27    

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(

Reply

Marsh Posté le 06-06-2007 à 12:37:24    

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

Reply

Marsh Posté le 06-06-2007 à 12:39:30    

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 !

Reply

Marsh Posté le 06-06-2007 à 12:43:31    

        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.

Reply

Marsh Posté le 06-06-2007 à 12:43:31   

Reply

Marsh Posté le 06-06-2007 à 13:23:58    

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

Reply

Marsh Posté le 06-06-2007 à 13:38:19    

Range("D32" )

Reply

Marsh Posté le 06-06-2007 à 14:11:36    

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

Reply

Marsh Posté le 06-06-2007 à 14:24:31    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed