VB Macro Importer des infos de tous mes docs excel dans un doc excel

VB Macro Importer des infos de tous mes docs excel dans un doc excel - VB/VBA/VBS - Programmation

Marsh Posté le 09-11-2011 à 12:41:18    

Bonjour a tous.
Je suis actuellement en stage a Londres et j'ai besoin de creer une macro et je vous avoue que j'y connais pas grand chose...
Mon probleme est assez complique, du moins pour moi...
J'aimerais creer une macro sur un document excel qui me renvoi la liste des valeurs de la cellule A1 de tous les fichiers excels qui se trouvent dans un dossier D1. Et lorsque j'ajoute un nouveau fichier excel au dossier, l'information arrive directement dans ma liste.
Si vous pouvez m'aider se serait vraiment cool, car je galere trop!
Merci

Reply

Marsh Posté le 09-11-2011 à 12:41:18   

Reply

Marsh Posté le 09-11-2011 à 13:03:53    

Salut, cela devrait t'aider http://forum.hardware.fr/hfr/Progr [...] 0232_1.htm , à adapter


Message édité par kiki29 le 09-11-2011 à 13:20:02

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html
Reply

Marsh Posté le 11-11-2011 à 11:40:10    

Dans ton code, je comprend pas ce qu'est 'ShImport' car losrque je lance la macro, elle me renvoi un message d'erreur comme quoi cette variable n'est pas definie?
Merci

Reply

Marsh Posté le 11-11-2011 à 12:45:10    

Salut, il s'agit du CodeName donné à la feuille recevant les données
voir http://www.developpez.net/forums/d [...] vba-bases/
pour comprendre l'intérêt de l'utilisation du CodeName au lieu du nom d'onglet
 
Sinon dans l'entête cela est précisé :
 
 Créer un classeur avec une feuille vierge que l'on nommera  
     Import ( Nom sans importance )    : propriété Name sous VBE  
     ShImport                          : propriété (Name) sous VBE


Message édité par kiki29 le 11-11-2011 à 13:06:48

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html
Reply

Marsh Posté le 11-11-2011 à 13:06:11    

Merci pour la rapidite de tes reponses.
Mais je ne comprend pas pourquoi la macro me demande de definir la variable s'il s'agit d'un CodeName...

Reply

Marsh Posté le 11-11-2011 à 13:11:47    

Salut,sous VBE dans la fenêtre propriétés de ce qui doit être chez toi Sheet1
remplacer dans (Name) Sheet1 par ShImport
voir 1er snapshot du post#2  http://www.developpez.net/forums/d [...] vba-bases/


Message édité par kiki29 le 11-11-2011 à 13:15:33

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html
Reply

Marsh Posté le 11-11-2011 à 17:24:01    

Voila ca fonctionne merci beaucoup. Pour adapter ton code a mon projet je souhaiterais ne pas afficher d'entete, ni le nom des fichiers, seulement les valeurs des cellules, mais ton code semble base sur le nom des fichiers?

Reply

Marsh Posté le 11-11-2011 à 18:25:45    

Re, pas forcément, dans ton cas utilise le macro recorder pour mettre en forme cette feuille puis incorpore l'appel au code généré par le macro recorder dans cette procédure à la procédure principale
 
Bref qqch comme

Private Sub Recadrage()
    With ShImport
        .Rows("1:3" ).Delete Shift:=xlUp
        .Columns("A:E" ).Delete Shift:=xlToLeft
        .Range("B1" ).Select
    End With
End Sub


Message édité par kiki29 le 12-11-2011 à 07:56:09

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html
Reply

Marsh Posté le 15-11-2011 à 12:01:44    

Merci beaucoup tu m'as vraiment beaucoup aide et ca fonctionne parfaitement avec mon cas! Maintenant j'aimerais aller encore lpus loin... Je souhaites n'ajouter que les nouveaux fichiers introduits dans le dossier et donc ne pas effacer les lignes dont les fichiers sont deja dans le dossier...

Reply

Marsh Posté le 16-11-2011 à 10:04:36    

Quelqu'un aurait une idee comment s'y prendre pour adapter le code?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed