Macro fusion plusieurs fichiers excel

Bonjour GBinforme,

Par hasard, peux tu remettre le fichier sur Cjoint ? cela m'intéresserait :)
Je te remercie par avance.

Bonjour Donoob-,

Voici le lien : https://www.cjoint.com/c/DGqtmCnqEuE

Bonsoir gbinforme

Je voulais faire usage de votre fichier,mais vous l'avez enlever apperement (http://cjoint.com/?BCzxn3oc359) pouvez vous me le renvoyer si possibe?

Bonsoir gbinforme

Je viens de revoir le fichier. j'ai repris le nouveau lien que tu as transmis. le 16 juillet.

merci d'avance

Bonjour gbinforme,

Je dois creer une macro qui va pouvoir creer un fichier .CSV à partir de plusieurs fichiers excel. En plus, elle devra être fonctionnel avec excel 2003 et excel 2010.

J'ai un document portant le nom de la date du mois, par exemple, "2014-08 ". à chaque mois je change de document, donc pour septembre le nom serait "2014-09".
Ce document contient environ 250 fichiers excel ayant tous un noms différents ( un nom par projet par exemple "QRYNF.xls", "QRYNG.xls" , etc. ).


i = 1 to nbr_de_projets
OTP = WB_GP.Sheets(i).Range ("A1")
nom des fichiers suit la régle : OTP.xls

Chaque fichier excel contient deux onglets, un onglet "GP" et un onglet "Couts".

En premier, je dois avoir un bouton qui me permettra d'effectuer la macro, puisque je dois seulement transférer les données 1 fois par mois.

Ce bouton devra créer dans le document du mois courant un fichier nommé "Commentaires.csv"

Je dois copier dans le fichier "Commentaires.csv" seulement une partie de l'onglet "GP" de chaque fichiers excel. Cette partie ne commence pas à une ligne fixes et ne se termine pas à une ligne fixe, par contre le nombre de colonnes reste le même pour chaque projet. J'utilise déjà une variable pour debut du tableau commentaire et la fin du tableau commentaire dans chaque fichier excel : "Zone_Commentaires"

En plus, il faut avoir une colonne supplémentaire, ayant le nom du projet "A1" d'où viennent les commentaires.

Pouvez vous m'aider à personnaliser votre code pour que cela fonctionne, s'il vous plait ! J'apprécierais grandement.

Merci Beaucoup.

Bonjour derobeames,

Apparement ce qui est fait avant marcherai dans mon cas

C'est-à-dire ? Je ne vois pas bien le sens ?

Est-il possible de me faire une copie ici du code de la macro

La macro est dans le classeur, à l'open, non cachée et totalement accessible : il te suffit de regarder. Si tu n'arrives pas à la trouver tu auras peut-être du souci pour la modifier.

Bonjour Adou,

La macro est dans le classeur même en 2010 et elle se lance à l'ouverture donc tu devrais la voir.

Bonjour gbinforme,

Oui j'ai vu qu'elle se lançait à l'ouverture mais lorsque je vais dans "Affichage / Macro / Afficher les macros", il n'y a rien...

Qu'est-ce que vous voulez dire par "dans le classeur même"?

l'éditeur de macro te serait plus utile si tu veux la modifier ;-)

Ah oui effectivement... Merci

En revanche, je n'arrive pas à corriger pour mon besoin. Je voudrais pouvoir choisir moi-même, au lancement de la macro, le répertoire dans lequel récuperer les fichiers !

Une idée? Sachant que sur une autre requête, j'utilisais :

ndp = FindWindow32("XLMAIN", Application.Caption)
rep = rech_rep(ndp, "Choisissez le répertoire à regrouper")

Bonjour,

les instructions que tu donnes ne peuvent pas fonctionner seules, comme ceci :

    With Application.FileDialog(msoFileDialogFolderPicker)
        .Show
        If .SelectedItems.Count > 0 Then
            rep = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With

à placer en début de macro que tu peux déplacer ailleurs.

Bonjour boston2001 et bienvenue

j'essaye de mettre "*.xls" ... cela ne fonctionne pas.

Aucune raison que cela ne fonctionne pas mais si tu as des classeurs 2007/2010, il faut mettre "*.xl*)

la même chose avec des fichiers .csv

C'est possible mais le fonctionnement est différent pour obtenir les cellules séparées.

Est ce possible... les incrémenter au fichiers destination

Tout est possible mais la fonction n'a rien à voir : celle qui était demandée récupère les fichiers à un instant et si tu la refais 3 jours plus tard tu auras le nouvel état avec les nouveaux fichiers et sans ceux qui ont été supprimés.

Si tu veux faire un historique, il faut d'abord un cahier des charges exhaustif car les variantes sont infinies.

Bonjour foufy59,

Voici le classeur de regroupement qui copie chaque classeur du répertoire dans un onglet différent nommé à l'identique :

https://www.cjoint.com/c/CHiwNfvIhuQ

Le premier onglet fait la liste des classeurs regroupés avec lien sur l'onglet concerné. Attention au nom des classeurs car les noms d'onglets sont limités en longueur avec certains caractères non autorisés.

Bon tests.

Bonjour,

Tu as changé de nom ? ... pas facile à suivre !

Tout est toujours possible mais quel est l'intérêt d'avoir l'ensemble des données en double ?

Est souligné ce que j'ai ajouté.

J'aimerais pouvoir encore inclure en macro une suppression de doublon, sachant que chaque ligne comprend des caractères de A à P. Peux-tu m'aider?

bonjour kikounet ,

la macro en fichier joins ne marche, plus.

Qu'entends-tu par là ?
Je viens de la télécharger et elle fonctionne si tu as des classeurs dans ton dossier.

quand j'ai voulu la chargé sur ci-joins, elle marquait fichier enlevé.

mais ça à marché se matin.

Je vais essayer ça.

Merci

après essai,

cela me met erreur dépassement de capacité.

Une idée?

après avoir continué, j'ai réussi faire avancé le Schmilblick mais pas bien loin.

J'ai essayer dans un dossier contenant 2 fichier excel avec chacun 5 onglet et dans chaque onglet 20 colonne de 65000 ligne chacun.

La macro me trouve qu'un seul onglet et 10 ligne pour un fichier.

Encore un problème

ça marche à merveille, sauf que ça se limite à 5 fichiers
est-il possible de l'étendre à n fichiers?
ça va me rendre la vie plus facile
Merci

sauf que ça se limite à 5 fichiers

Absolument pas, la macro regroupe tous les fichiers qui sont sélectionnés par "C?.xls" selon la demande.

Si tu veux regrouper tous les classeurs du répertoire tu remplaces par "*.x*" et cela fonctionne.

C'est vrai ça marche avec Excel 2003
sinon avec Excel2007 non

C'est-à-dire ?
Le code fonctionne avec 2002, 2007, 2010 et probablement avec 97 que je n'ai plus.

Tu peux préciser ce qui ne va pas ?

Bonjour gbinforme,

Pourriez-vous m'aider à personnaliser le fichier final avec mes propres noms de fichiers Excel et leurs emplacements?
J'ai des dossiers par année/mois/jour où le fichier s'appelle 01012012.csv/02012012.csv/03012012.csv etc...
Que dois-je modifier et où?
Je suis novice en macro.

Merci.
Manu