Contenu récent par Alguiche

Re : combiner plusieus classeurs Une dernière tentative pour ce soir. Même chose, tu mets le classeur joint dans le répertoire où se trouvent tes classeurs c1 à c40, tu l'ouvres et tu cliques sur le bouton. Si tu vas voir dans ton répertoire, tu devrais avoir un classeur avec le nom de ton...

Re : combiner plusieus classeurs Anna 111 pourrais-tu être un peu plus explicite. Il ne se passe rien? ça bogue? si oui où? A+

Re : combiner plusieus classeurs Re salut Anna111 Une nouvelle tentative. Tu mets le classeur ci-joint dans ton répertoire "06_2010", tu l'ouvres et tu cliques sur le bouton. Une chose que je n'ai pas encore mis au point c'est récupérer le nom de ton répertoire pour donner le même nom...

Re : combiner plusieus classeurs Désolé j'avais fait des modifications sur mon post en direct et tu n'as pas la dernière version. Nouvelle essai: Tu dois remplacer les ? par le nom de la feuille après laquelle tu veux que les nouvelles feuilles se placent dans la ligne : Sheets("Feuil1").Copy...

Re : combiner plusieus classeurs ReSalut, Si la feuille source est nommée alors essaye cela Sheets(1).Copy After:=Workbooks("ClasseurDest.xls").Sheets("Feuil3") A+ Al

Re : combiner plusieus classeurs Si tu as bien remplacé le nom de ton fichier ça devrait marcher. Peux-tu m'envoyer ton fichier sans données confidentielles. A+ Al

Re : combiner plusieus classeurs Salut Anna111, et comme ça Sub OuvFer2() Dim FichSource As Variant Dim NbSh As Integer ChDir ("D:\rep1\") FichSource = Dir("*.xls") Do While FichSource <> "" If ThisWorkbook.Name = FichSource Then GoTo suite Workbooks.Open Filename:=FichSource...

Re : combiner plusieus classeurs Salut Anna111, Voilà un code qui devrait faire l'affaire. Il faut adapter le chemin du répertoire. Sub OuvFer2() Dim FichSource As Variant Dim NbSh As Integer Dim i As Integer ChDir ("D:\rep1\") FichSource = Dir("*.xls") i=0 Do While FichSource <> "" If...

Re : Mise à jour par VBA d'une liste déroulante Bonsoir Rounil et mth, La réponse dans la PJ Bonne soirée Al

Re : Gérer une base de données : Excel ou Access ? Salut Le Roger, En organisant tes données comme dans l'onglets "BDD" tu peux faire un Tableau Dynamique Croisé, onglet "TDC" qui te permet d'obtenir les tableaux que tu souhaites. Salutations Al

Re : Traiter Questionnaire ReSalut, Encore une chose. Dans ton code, chaque fois que tu vas ajouter les données d'un questionnaire dans ton fichier de synthèse elles vont s'inscrire sur les précédentes et en fin de compte tu n'auras dans ton dossier de synthèse que les données du dernier...

Re : Traiter Questionnaire Salut Gerson, Une petite précision. Fais attention quand tu utilises Activeworkbook que le fichier auquel tu veux faire référence est bien le fichier actif. Quand tu ouvres un fichier par exemple il devient de facto le ActiveWorkbook donc dès que que tu veux de...

Re : Traiter Questionnaire ReSalut, Oublie la première partie de mon post précédent. J'ai adapté ton code comme suit, à essayer Sub OuvFer() Dim n As Long ThisWorkbook.Activate Sheets("Feuil1").Select nbl = Range("E9").CurrentRegion.Rows.Count Range("E9:E" &...

Re : Traiter Questionnaire Salut Gerson, Remplace ActiveWorkBook.Close par Workbooks("Questionnaire" & n & ".xls").Close et donne moi des nouvelles. Sinon un autre code qui prend tous les fichiers d'un dossier donné quel que soit le nom. Attention donc à ce que ton fichier de...

Re : Traiter Questionnaire Salut Gerson, Voilà un code qui ouvre les fichiers les uns après les autres pour autant que leur numérotation soit continue. Sinon il faut gérer les erreurs. Sub OuvFer() Dim n As Long For n = 1 To 300 Workbooks.Open Filename:="D:\TestExcel\Fichier" &...