Enregistrer dans un autre fichier Excel uniquement une parti

Bonjour,

Sur une feuille où il y a beaucoup d'information est-il possible d'enregistrer seulement une partie de la page par exemple des cellules de M1 à AA81 ?

Si oui pourriez-vous m'indiquer comment ?

Merci par avance.

Pour le moment j'utilise ceci qui me crée bien une nouvelle page (mais qqui ne prend pas le bon nom je ne sais pas pourquoi pour le moment) mais avec TOUT ce que je ne veux pas

Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
extension = ".xls"
chemin = "C:\Users\xxx\Desktop\test"
MsgBox ThisWorkbook.Path
nomfichier = ActiveSheet.nom & "-" & prenom & extension
With ActiveWorkbook
    .DrawingObjects(1).Delete
    .SaveAs Filename:=chemin & nomfichier
    .Close
End With

Actualisation de mon code cela fonctionne mais sur toute la feuille et non sur du range spécifique

Dim fichier As String

' Interrompt la mise à jour de l'écran. Ca accélère l'exécution du code
        Application.ScreenUpdating = False

' Copie la feuille active dans un nouveau fichier
        ActiveSheet.Copy

' Définition du path complet. Pourrait être remonté avec les autres définitions pour plus de lisibilité
        fichier = "C:\Users\xxx\Desktop\test\" & "Bulletin Annuel" & nom & "-" & prenom

' Enregistrement du fichier selon le path défini
        ActiveWorkbook.SaveAs fichier

' Fermeture du nouveau classeur sans confirmation (dans mon fichier initial, il était envoyé par mail, je voulais pouvoir revenir sur mon document d'origine directement)
        ActiveWorkbook.Close False

' Ré-actualisation de l'affichage.
Application.ScreenUpdating = True

Bon j'ai avancé

Cela fonctionne en copiant vers une autre "sheet" par contre mon paste ne me garde pas la mise en forme

Dim fichier As String

' Interrompt la mise à jour de l'écran. Ca accélère l'exécution du code
        Application.ScreenUpdating = False

' Copie le range de la feuille active dans une nouvelle feuille
    Range("M1:AA81").Select
    Selection.Copy
    Sheets("Tableau").Select
    ActiveSheet.Paste

    ' Interrompt la mise à jour de l'écran. Ca accélère l'exécution du code
           Application.ScreenUpdating = False

    ' Copie la feuille active dans un nouveau fichier
           ActiveSheet.Copy

    ' Définition du path complet. Pourrait être remonté avec les autres définitions pour plus de lisibilité
           fichier = "C:\Users\xxx\Desktop\test\" & "Bulletin Annuel" & nom & "-" & prenom

    ' Enregistrement du fichier selon le path défini
           ActiveWorkbook.SaveAs fichier

    ' Fermeture du nouveau classeur sans confirmation (dans mon fichier initial, il était envoyé par mail, je voulais pouvoir revenir sur mon document d'origine directement)
           ActiveWorkbook.Close False

    ' Ré-actualisation de l'affichage.
    Application.ScreenUpdating = True

petit up svp ?

Bonjour,

Juste une petite modification :

' Copie le range de la feuille active dans une nouvelle feuille
Range("M1:AA81").Copy
With Sheets("Tableau").Range("M1")
     .PasteSpecial xlPasteFormats
     .PasteSpecial xlPasteValues
End With

Merci de votre réponse.

J'avais essayé cette méthode met cela me met une erreur sur la ligne suivante :

.PasteSpecial xlPasteValues

krik34 a écrit :

Merci de votre réponse.

J'avais essayé cette méthode met cela me met une erreur sur la ligne suivante :

.PasteSpecial xlPasteValues

Assez étrange ...

Es-tu sûr d'avoir un onglet dont le nom est Tableau ...???

oui car sur les tests cela me copie la forme avec cette formule mais cela bloque sur less données.

Sur ma formule citez plus haut cela me copie bien mon tableau, les couleurs etc... mais pas la taille des cellules

mon fichier est en PJ

Merci en tout cas de votre aide

Re,

Dans l'ordre ...

1. Tu n'as pas joint de fichier ...

2. Maintenant ... tu dis que cela fonctionne ...

3. Mais pas la taille des cellules ... C'est quoi la taille des cellules pour toi ...??? (la police, la hauteur des lignes, la largeur des colonnes)

Pardon je m'exprime mal

Alors quand je lance mon prog cela commence à l'executer du coup cela copie couleur, image, largeur et longueur des cellules avec cette formule mais cela ne copie pas le contenu des cellules.

Si j'utilise ma formule que j'avais mis avant cela me copie les couleurs, contenu et tout mais pas la mise en forme : largeur, longueur des cellules

Merci encore

Re,

Impossible d'accéder à ton fichier ... grâce à Free ...

Je te suggère d'utiliser d'autres sites... comme cijoint ou monpartage.fr

Décidément

Merci

une petite idée ?

Merci encore

Re,

L'enfer des cellules fusionnées ...!!!

Elles sont à bannir pour l'éternité ... !!!

il y a quand même des solutions ?

krik34 a écrit :

il y a quand même des solutions ?

OUI ... !!!

Supprimer immédiatement toutes les cellules fusionnées de toutes tes feuilles ... car non seulement elles ne servent absolument à rien ...mais en plus elles foutent un b..... complet

J'ai défusionné tout le tableau que je souhaite copié mais même erreur

voila le nouveau fichier

krik34 a écrit :

J'ai défusionné tout le tableau que je souhaite copié mais même erreur

voila le nouveau fichier

Bravo ... tu as, en effet, supprimé toutes les cellules fusionnées de la Feuille Tableau ...

Mais ma remarque précédente était : ...

Supprimer immédiatement toutes les cellules fusionnées de toutes tes feuilles

Ta feuille source B1 ... en est encore truffée ... !!!

Oui mais comme je ne copie que le tableau dans la la feuille Liste_eleves vers la feuille tableau cela ne suffit pas ?

Voilà TOUT défusionné ^^

Mais pareil même erreur

krik34 a écrit :

Oui mais comme je ne copie que le tableau dans la la feuille Liste_eleves vers la feuille tableau cela ne suffit pas ?

Pardon ...

J'ai cru que ta source était la Feuille B1 ...

Maintenant que tu n'as plus aucune cellule fusionnée ... je vais regarder ton code ...