Utiliser un modèle Excel 2003

Bonjour,

J'ai Excel 2003

Je fais souvent des extractions au format Excel et je voudrais m'éviter de refaire les formats, les polices ....

Je me demande si je peux utiliser un modèle car ces tableaux sont toujours les mêmes.

j'ai bien la fonction"Assistant modèle" mais j'ai l'impression qu'elle est utilie si on veut créer une base de données, qui pour moi est inutile.

J'ai créé un modèle que je joins. Et en dessous, je mets des chiffres que j'obtiens "bruts" de l'extraction. Mon objectif est de les mettre au format juste au-dessus.

ATTENTION : J'AI UN MESSAGE ME DISANT QUE L'EXTENSION XLT N'EST PAS AUTORISéE. jE DOIS DONC L'ENREGISTRER EN XLS ET SI VOUS VOULER M'AIDER IL VOUS FAUDRA LE SAUVEGARDER EN MODELE

Cordialement

merci de votre aide !

Bonsoir,

Dans un module

copie les données de la Feuil4 dans la Feuil1

Sub Copie()
Dim lg&, Cel As Range, f As Worksheet
    Application.ScreenUpdating = False

    Set f = Sheets("Feuil4")
    '--- conversion en numérique ---
    lg = f.Range("b" & Rows.Count).End(xlUp).Row
    For Each Cel In f.Range("b3:L" & lg)
        If Not IsEmpty(Cel) Then Cel = Trim(Cel) * 1
    Next Cel
    '--- 1ère ligne ---
    f.Range("b3:L3").Copy
        With Sheets("Feuil1")
            .Range("d6").PasteSpecial Paste:=xlPasteValues
        End With
    Application.CutCopyMode = False
    '--- ligne 5 à la dernière ---
    f.Range("b5:L" & lg).Copy
        With Sheets("Feuil1")
            .Range("d8").PasteSpecial Paste:=xlPasteValues
            Application.CutCopyMode = False
            Application.Goto .Range("a1"), Scroll:=True
        End With
End Sub

Amicalement

Claude

Salut le forum

PECHEURD'ISLANDE a écrit :

Bonjour,

J'ai Excel 2003

Il faut enregistrer ton fichier comme Modèle, regarde dans la liste avec Enregistrer sous.

Mytå

Super Claude Merci

Mytå, je n'ai pas renseigné "Excel 2007" sur mon profil. je ne sais pas comment cette info est arrivée là.

D'ailleurs, je ne sais pas non plus fermer le sujet. Cà fait 15 minutes que je cherche. Alors si quelqu'un pouvait me mettre le nez dessus car je suis sûr que c'est ultra simple.

Cordialement

Bonsoir,

Bonjour

Regarde en haut à droite des messages

Cordialement

Merci à tous les deux.

Cordialement

Bonjour

D'ailleurs, je ne sais pas non plus fermer le sujet. Cà fait 15 minutes que je cherche. Alors si quelqu'un pouvait me mettre le nez dessus car je suis sûr que c'est ultra simple

Claude et moi-même t'avons mis le nez sessus. Il ne te reste maintenant qu'à utiliser la main et cliquer dessus avec la souris. C'est en effet "ultra simple"!

Cordialement