Enregistrement d'une copie dans un dossier

[teamtat]

Bonjour,
J'aimerai pouvoir enregistrer une copie de certaine feuille (nom de la feuille défini par la celulle C4) de mon classeur dans un dossier (nom du dossier défini par la celulle G4) .
Mon code pour l'instant enregistre mon classeur entier dans le chemin défini
que doit-je modifier pour réaliser ce que je veu ?

 Sub enregistrer()

Dim Repertoire As String
    Dim Fichier As String
    Dim Extension As String
    Repertoire = "C:\Documents and Settings\peyret\Mes documents\"
    Extension = ".xls"
    Fichier = Cells(4, 3).Value & Cells(4, 7).Value & "  " & Format(Now, "dd-mm-yy hh mm")
    ActiveWorkbook.SaveAs Filename:= _
        Repertoire & Fichier & Extension _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False


End Sub

 

[teamtat]

Re : Enregistrement d'une copie dans un dossier

Personne peut m'aider ?

 

[Pierrot93]

Re : Enregistrement d'une copie dans un dossier

Bonjour,

un peu de patience, ce forum est animé pas des bénévoles.... regarde le code ci-dessous si il peut t'aider, va chercher le nom de la feuille à copier et le chemin dans les cellules de la feuille active du classeur actif :

Dim chemin As String
chemin = Range("G4").Value
Sheets(Range("C4").Value).Copy
ActiveWorkbook.SaveAs chemin & "\NomNouveauclasseur.xls"

bon après midi
@+

 

[teamtat]

Re : Enregistrement d'une copie dans un dossier

Merci pour ta réponse
il me met une erreur a cette ligne

 Sheets(Range("C4").Value).Copy

 

[teamtat]

Re : Enregistrement d'une copie dans un dossier

J'ai trouvé ce code qui fonctionne mais cela ne crée pas de copie
comment faire ?

 Sub Test()
Dim Chemin$, Client$, Fichier$
Chemin = "C:\Documents and Settings\peyret\Mes documents\"
Client = Range("G4")
Fichier = Client & ".xls"
 
'Un fois que tu auras détecté que Client n'existe pas encore,
'c'est pas difficile de créer un dossier :
 
If Dir(Chemin & Client, 16) = "" Then MkDir Chemin & Client
ActiveWorkbook.SaveAs Chemin & Client & "\" & Fichier
End Sub

 

[teamtat]

Re : Enregistrement d'une copie dans un dossier

Sayé j'ai reussi a faire une copie
J'aimerai savoir comment pouvoir sélectionner les feuille a enregistrer et pas enregistrer tous le classeur
merci

 Sub Test()
Dim Chemin$, Affaire$, Fichier$
Chemin = "C:\Documents and Settings\peyret\Mes documents\camille\Affaire n°"
Affaire = Range("G4")
Fichier = Cells(4, 3).Value & Cells(4, 7).Value & "  " & Format(Now, "dd-mm-yy hh-mm") & ".xls"
 
'Un fois que tu auras détecté que Client n'existe pas encore,
'c'est pas difficile de créer un dossier :
 
If Dir(Chemin & Affaire, 16) = "" Then MkDir Chemin & Affaire
ActiveWorkbook.SaveCopyAs Chemin & Affaire & "\" & Fichier
End Sub

 

[Pierrot93]

Re : Enregistrement d'une copie dans un dossier

Re,

comprends pas trop, ce code fonctionne chez moi sans problème :

Sheets(Range("C4").Value).Copy

attention, il y a peut être lieu de préciser le nom des objets (feuille / classeur) si ils ne sont pas au premier plan....

 

[teamtat]

Re : Enregistrement d'une copie dans un dossier

Non il ne sont pas au 1er plan, comment faire pour préciser ?

 

[Pierrot93]

Re : Enregistrement d'une copie dans un dossier

Re,

regarde ceci :

Workbooks("classeur1").Sheets(Workbooks("classeur2").Sheets("NomFeuille").Range("C4").Value).Copy