Macro de copie en tête fichier sur autre classeur : HS
Bjr,
Cette macro générée fonctionnait tant bien que mal ! Le PC a buggé et maintenant tout est foutu.
J’ai un fichier extrait d’une base HTML -->DA_Costs_Tariffs_Report_Modèle.xls -- avec titre de colonnes en ligne 8 et données en ligne 9
Je supprime les lignes 1 à 6
Je supprime la colonne A (vide)
J’ai un fichier -->MonPort_EnTete.xls--- créé (d’en_têtes des colonnes supplémentaires + ligne de formats + formules que je copie et tranfère dans le fichier DA_Costs_Tariffs_Report_Modèle.
1) Je copie les lignes 1+2 (En_têtes +Formats des colonnes (A>Z) sur l’autre fichier, à la place des 2 lignes existantes, et ceci jusqu’à la ligne 2000 (je ne sais pas adapter ‘der ‘ pour trouver la dernière ligne de données et copier les formats)
2) Je copie les cellules N2 :Z2 (mes formules) dans l’autre fichier avec recherche de la dernière ligne de données.
Je hide des colonnes et modifie les largeurs des autres
Je sauvegarde
Maintenant la recherche ‘der’ ne veut pas fonctionner correctement et il y a un décalage quelque part qui me supprime la 1ère colonne de données ( ?)
Merci de votre aide, j’ai épuisé mes compétences en VBA.
Voici mes fichiers en question et merci de toute aide.
Bonjour frayer,
Dans la dernière ligne de données de ton fichier complet, la colonne A est-elle vide?
Bjr vba_new
Sur le fichier qui est extrait de la base html, la colonne A est vide de la 1ere a la derniere ligne, c'est d'ailleurs pourquoi je la supprime en début de macro (avec les lignes 1 à 6 inutiles) - alors a ce moment là, la colonne A possède des données de A2 à Ax selon le nombre d'enregistrements.
Je recherche la fin de ce fichier pour :
1) copier les lignes A1:Z2 de mon fichier d'en-têtes à la place des 2 lignes existantes
2) copier/coller les cellules N2:Z2 du fichier d'en-têtes, jusqu'à la dernière ligne d'enregistrement.
Suis-je assez clair ?
Merci de l'aide et slts
J'ai re-génèrer une macro, mais elle bug sans arrêt.
Bonjour frayer, forum,
1. Est-ce qu'il y a un fichier qui s'appelle "DA_Costs_Tariffs_Report.xls"? Tu ne l'as pas joint?
2. Comme je n'ai pas vu de fichier "DA_Costs_Tariffs_Report.xls" j'ai testé la macro qui se trouve dans le fichier word avec le fichier "DA_Costs_Tariffs_Report_Modèle.xls". Il y a une petite erreur dans ta macro au niveau de 'Recherche dernière ligne d'enregistrement du file pour copier
Range("N2:Z2").Select
Application.CutCopyMode = False
der = Range("A65536").End(xlUp).Row
Selection.AutoFill Destination:=Range("N3:Z" & der), Type:=xlFillDefault
Change le N3 par N2.
Pas sûr que ce soit ça qui générait l'erreur, mais teste et redis-nous!