Bonjour,
Quelqu’un peut m’aider SVP de résoudre cette Tache avec le Macro
Il s’agit de supprimer les entêtes et le premier tableau dénommé récapitulatif (coloré en vert dont le nombre des lignes pour chaque tableau sont variables) et deux colonnes (colorés en jaune),
Entre le premier tableau récapitulatif (à effacer) et le bon tableau (second), il y a toujours deux lignes vides qu’il faut effacer aussi.
Et d’enregistrer, par la suite, le résultat sous un format Excel 97-2003 ; j’aimerais automatiser cette opération. Fichier en annexe
_Relevé.xls (32,5 Ko)
_
Bonjour,
A mettre dans le développer en Feuil1(Releve), et lancer la macro
Sub Modif()
Dim NoLigne%
Range("A19").Select
'Recherche le mot "COMPTE" dans les lignes 3 fois
Cells.Find(What:="Compte", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True, SearchFormat:=False).Activate
Cells.FindNext(After:=ActiveCell).Activate
Cells.FindNext(After:=ActiveCell).Activate
NoLigne = ActiveCell.Row 'Attribue le N° de la ligne
Rows("1:" & NoLigne - 1).Select 'Sélection ligne 1 à NoLigne -1
Selection.Delete Shift:=xlUp 'Supprime la sélection vers le haut
Columns("M:M").Delete Shift:=xlToLeft 'supprime la colonne M
Columns("K:K").Delete Shift:=xlToLeft ''supprime la colonne K
Range("A1").Select
'Enregistre le nouveau fichier modifié
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Relevé Modifié.xls", FileFormat:=xlExcel8
End Sub
Mimimathy Merci beaucoup ça marche. Mais est que vous pourriez m’ aider un peu plus sur le choix du dossier d’ emplacement du fichier " relevé modifié". Ex :D:\releve Modif
car ce résultat revient, par défaut, dans le dossier ou se trouve le fichier source.
Merci infiniment
Re,
A la demande
Faudrait peut-être expliciter la demande avec un exemple concret
Je voudrais enregistrer le fichier “relevé modifié excel 97-2003” dans un emplacement spécifique
Exemple:Il est enregistré dans Ordinateur:\D:\Dossier modif quelque soit l’ emplacement du fichier source
Merci encore pour votre reponse,
Re
Il suffit de remplacer par cette ligne
ActiveWorkbook.SaveAs Filename:="D:\Dossier modif\Relevé Modifié.xls", FileFormat:=xlExcel8
merci Beaucoup Mimimathy , ça marche tres bien