Salut tout le monde !
Vendredi j'ai réussi à faire ce que je voulais, le soucis c'est que j'ai fais une fausse manip et j'ai tout cassé
En fait j'ai 2 classeurs : Code.xls et basexls
Le fichier code va chercher et "agencer" le texte que contient un fichier word. Ça ça marche parfaitement.
Le soucis c'est que le fichier code doit sélectionner la ligne 2, ouvrir le classeur base.xls, insérer une ligne dans le fichier base.xls (a la ligne 2) et coller la ligne.
Alors vendredi comme je vous le disait tout marchait parfaitement, sauf que j'ai supprimé le mauvais module ... et au moment de quitter il m'a demandait si je voulais sauvegarder j'ai dis oui ....(sans commentaire).
Je vous remercie d'avance !
P.S : Autant pour moij'ai retrouver mon module : Le voici pour ceux que ça intéresse :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29 Function Ajout_Base() '============================================================================= '======================= Declaration des variables =========================== '============================================================================= Dim appExcel As Excel.Application 'Application Excel Dim wbExcel As Excel.Workbook 'Classeur Excel Dim wsExcel As Excel.Worksheet 'Feuille Excel '============================================================================= '===================== Ajout de la ligne dans Base.xls ======================= '============================================================================= 'Ouverture de l'application Set appExcel = CreateObject("Excel.Application") 'Ouverture d'un fichier Excel Set wbExcel = appExcel.Workbooks.Open("C:\ptc_config\config_perso_wf2\code_xls\base.xls") 'wsExcel correspond à la première feuille du fichier Set wsExcel = wbExcel.Worksheets(1) 'copier la ligne 2 sur fichier code.xls Workbooks("code.xls").Activate 'selectionne la ligne 2 Range("A2:F2").Copy 'Activation du classeur base.xls Workbooks("base.xls").Activate 'Insertion d'une ligne à la ligne 1 Rows("2:2").Select Selection.Insert Shift:=xlDown Range("A2:F2").EntireRow.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone
Partager