copier une feuille vers un nouveau classeur

[danielw]

Bonjour,

j'aimerai copier une feuille nommée "Pour publipostage" d'un classeur ouvert vers un nouveau classeur, qui prendrait le nom "Pour publipostage.xls" et enregistré dans le même répertoire que celui du classeur ouvert.
Pour l'instant, j'ai utilisé ce code :

Sheets("Publipostage").Copy
ActiveWorkbook.SaveAs "Fichier pour publipostage" & ".xls"

Le problème, c'est que le fichier s'enregistre à la racine de "Mes documents" .
Il ne doit pas y avoir de chemin indiqué

Merci d'avance pour une solution?
Daniel

 

[Staple1600]

Re : copier une feuille vers un nouveau classeur

Bonjour

Voir du côté de ActiveWorkBook.Path et/ou ThisWorkBook.Path

EDITION: Bonjour Robert (finalement tu t'es bien acclimaté à l'orange 😉 )

 

[Robert]

Re : copier une feuille vers un nouveau classeur

Bonjour Danielw, bonjour le forum,

Essaie comme ça :

Dim chem As String 'déclare la variable chem (CHEMin d'accès)
chem = ThisWorkbook.Path & "\" 'définit la variable chem
Sheets("Publipostage").Copy
ActiveWorkbook.SaveAs chem & "Fichier pour publipostage.xls"

[Édition]
Bonjour JM on s'est croisé..

 

[nyko283]

Re : copier une feuille vers un nouveau classeur

Bonjour Daniel,

Pour modifier le chemin par defaut
soit tu utilise : CHDir thisworkbook.Path
soit tu précise le chemin du fichier : ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Classeur2.xls"

 

[Staple1600]

Re : copier une feuille vers un nouveau classeur

Re

On peut aussi utiliser :
ThisWorkbook.FullName

 

[danielw]

Re : copier une feuille vers un nouveau classeur

C'est parfait.
Les deux codes fonctionnent
Merci à vous
Daniel

 

[Robert]

Re : copier une feuille vers un nouveau classeur

Bonjour le fil, bonjour le forum,

Re

On peut aussi utiliser :
ThisWorkbook.FullName

Oui mais après il faudrait supprimer le nom du classeur... Je pense que ThisWorkbook.Path est plus approprié dans ce cas.

 

[Staple1600]

Re : copier une feuille vers un nouveau classeur

Re

Mon Robert, je t'accorde que tu as raison

Mais j'ajoute dans le cas présent que l'on peut aussi ne pas utiliser ceci :

Sub Et_Paf()
MsgBox Application.DefaultFilePath
End Sub

 

[danielw]

Re : copier une feuille vers un nouveau classeur

Bonsoir,
je reviens dans la discussion. Mon projet a évolué.
En fin de compte, j'ai utilisé

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Classeur2.xls"

J'ai voulu en profiter pour créer un classeur3, dans lequel je veux copier une autre feuille du classeur1.
Le problème, c'est comment revenir au classeur1.
J'imagine qu'il faut fermer le classeur2, copier la 2eme feuille du classeur1 dans un classeur3 que j'enregistre.
Je suis sur la bonne voie?

 

[danielw]

Re : copier une feuille vers un nouveau classeur

C'était la bonne voie.
Merci à tous.

 

[danielw]

Re : copier une feuille vers un nouveau classeur

J'ai quand même un problème.
L'ouverture des fichiers enregistrés avec le code

    Sheets("Publipostage").Copy
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\ECE-SVT pour publipostage.xls"
    Workbooks("ECE-SVT pour publipostage.xls").Close False

entraîne un message :
"Le format de fichier que vous tentez d'ouvrir est différent de celui spécifié par l'extension. Assurez vous ..."
Comment éviter ce message?

 

[Pierrot93]

Re : copier une feuille vers un nouveau classeur

Bonjour à tous,

dans l'objet de ton post, je vois que tu as excel 2010, pourquoi alors enregistrer ce classeur en ".xls", essaye plutôt en ".xlsx" ou en ".xlsm" (prenant en charge les macros)...

bonne journée
@+

 

[danielw]

Re : copier une feuille vers un nouveau classeur

Bonjour,
Les fichiers extraits sont destinés à des collègues qui n'ont pas tous excel 2007 ou 2010.
C'est pourquoi je les mets en xls
Pour l'instant, ma solution est d'enregistrer en xlsm, puis j'ouvre les classeurs 2 et 3 pour les enregistrer en xls.
Daniel