macro excelRésolu

Question

Bonjour

j'ai une s&#233;rie de classeurs excel (150) (ce sont des factures), j'aimerai copier dans un nouveau classeur un certain nombre de cellules de chaque feuille (raison sociale adresse etc....) fin de cr&#233;er une base de donn&#233;es.

Manuellement c'est facile mais un peu long, est-ce qu'une macro ferait le travail pour moi, les classeurs sont sur le m^me format c'est &#224; dire que le cellule D4 par exemple contient le m^me type de donn&#233;es sur toutes les feuilles.

Merci pour votre aide.

Fred

BasicInstinct · Accepted Answer

y'en a pas assez sur le site ? 

http://www.vbfrance.com/forum.v2.aspx?id=34147

 BasicInstinct

jrivet · Answer

Salut,

Et Joyeux noel a tous.

Est ce que ce sont 150 .xls ou 150 feuilles dans un seuil Classeurs (je pense que tu l'a dit (150 classeurs) mais c est juste pour verification.

As tu deja fait des macros?

@+

cs_phBil · Answer

oui est ou sont tes classeurs ... sous un m&#234;me r&#233;pertoire ..? il ont le m&#234;me nom ..? -( tu peu utiliser la commande Dir , pour les "lister.."..

Phbil

fredtaverny · Answer

Merci pour le contact

ce sont 150.xsl class&#233; dans un m^me dossier, les factures ne portent pas le m^me nom, il y a par exemple mb001 mb002 mb 003 ect....
J'ai d&#233;j&#224; fait des macros mais celle ci je n'y arrive pas, j'en ai faite une avec une facture et lorsqeu je veux la r&#233;p&#233;ter sur une facture qui ne porte pas le m^me nom &#231;a ne marche pas (erreur nom de fichier)

merci est bon no&#235;l

jrivet · Answer

Re,

Si toutes tes factures sont dans le meme repertoire, et que le nom du fichier t'importe peu, tu peux utiliser le Dir comme le dit phBil, ou alors utiliser le FileSystem object (mais le dir suffit emplement) 


Mais sinon dis nous exactement ou est ce que tu coince.

@+
Julien

fredtaverny · Answer

c'est super sympa mais je ne connais pas la commande dir, tu peux m'expliquer en deux mots

Merci encore

fred

BasicInstinct · Answer

Directement sortie de l'aide d'excel.

Sub AfficheListeFichier(specdossier)
    Dim fs, f, f1, fc, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(specdossier)
    Set fc = f.Files
    For Each f1 in fc
        s = s & f1.name 
        s = s &  vbCrLf
    Next
    MsgBox s
End Sub



 BasicInstinct

fredtaverny · Answer

Je ne m'en sort pas, tu n'as pas un exemple concret sous le main de commande dir?

merci

fredtaverny · Answer

merci

BasicInstinct · Answer

Bah de rien, on est tous pass&#233; par la 

 BasicInstinct

Macro excel

10 réponses

Discussions similaires