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 moi j'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