Discussion :

[the-geut]

Bonjour je souhaite creer une macro qui extrait une feuille d'un fichier excel ouvert pour la stocker dans un nouveau classeur.

J'ai trouver une solution cependant elle ne me convient pas car j'ai une copie qui apparait et je perd du temp à la supprimer, et quand je veut modifier le code en enlvant la copy ça ne marche plus

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub CommandButton1_Click()
Dim fichier As String
Sheets("Feuil2").Copy
fichier = "fait par gautier le " & Format(Date, "dd mm yy") & ".xls"
ActiveWorkbook.SaveCopyAs Filename:="E:\Dir MCA\ASS\Accès libre\TABLEAUX DE BORD\Projet\trace\" & fichier
End Sub

Merci de votre aide

[DeaD78]

Bonjour,

L'enregistreur de macros est ton ami, il faut toujours penser à lui !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sheets("test").Select
    Sheets("test").Move Before:=Workbooks("Classeur2").Sheets(1)
    Windows("Classeur1").Activate
    ActiveWindow.WindowState = xlNormal
    Windows("Classeur2").Activate
    ActiveWindow.WindowState = xlNormal

Bon, je te laisse simplifier, enlever ces infâmes Select et tout ce qui est de trop.

Tu vois donc que tu peux "copy" une sheet mais que tu peux aussi la "move" (pas de copie de faite donc). Tu peux déplacer ta feuille avant ou après une autre dans le nouveau classeur. Je te propose simplement de ré-enregistrer ta macro dans son intégralité en ne cochant pas la case "Créer une copie" lorsque tu fais clic droit sur ta feuille puis "Déplacer ou copier".

A toi d'adapter pour la mettre dans un classeur qui n'est pas ouvert.

Bonne chance pour la suite.

[the-geut]

Je deteste le générateur auto de Excel

En fait la feuille qui doit être extraite ne doit pas se loger dans un nouveau classeur mais être un nouveau classeur!

[aalex_38]

J'ai trouver une solution cependant elle ne me convient pas car j'ai une copie qui apparait et je perd du temp à la supprimer, et quand je veut modifier le code en enlvant la copy ça ne marche plus

Il te suffit de remplacer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.SaveCopyAs Filename:="E:\Dir MCA\ASS\Accès libre\TABLEAUX DE BORD\Projet\trace\" & fichier

Par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.SaveAs Filename:="E:\Dir MCA\ASS\Accès libre\TABLEAUX DE BORD\Projet\trace\" & fichier

Et ca devrait marcher.

Je deteste le générateur auto de Excel

C'est pourtant tellement pratique pour connaitre certaines commandes, a mon sens il faut l'utiliser pour cela pour ensuite coder soit même.


Edit1: Bonjour Ormonth je crois que l'on a répondu en même temps

[Didier Gonard]

bonjour,

Je deteste le générateur auto de Excel

Tu as peut-être tort , il ne s'agit d'ailleurs pas d'aimer, mais d'utiliser à bon escient.

En fait la feuille qui doit être extraite ne doit pas se loger dans un nouveau classeur mais être un nouveau classeur!

Dans le cas présent, il te donne la solution en 2 lignes dont une seule est utile... pas trop mal

Sinon, une feuille ne peut pas être un classeur, mais un classeur peut ne contenir qu'une feuille (il ne s'agit pas d'ergoter, mais c'est cette approche qui te donne la bonne conceptualisation de ton code )

Donc après avoir appliqué la ligne donnée par l'enregistreur, tu fais un saveas en donnant le chemin et le nom voulu...


cordialement,

Didier

[the-geut]

SaveCopyAs Je n'avait même pas remarquer. Merci à tous pour votre précieuse aide!
Pour le générateur je vais peut être l'utiliser comme exemple pour des procédure un peu complexe.
Merci @+