Bonjour,

j'exécute le code ci-dessous sur deux PC identiques . Ca marche sur l'un par sur l'autre en mettant : erreur 1004 la fonction workbook.add a échoué.

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
30
31
32
 
Sub Deroulement()
Dim Pointeur As Integer
Dim NbLignes As Integer
Dim NbLignesFeuille As Integer
 
' on compte le nombre de lignes sur lesquelles on va appliquer la boucle d'extraction
NbLignesFeuille = ActiveSheet.UsedRange.Rows.Count
 
'on initialise le pointeur
Pointeur = 1
 
Workbooks.Open Filename:="C:\essai\1.xls", ReadOnly:=True
Workbooks.Add
 
' on calcule le nombre de lignes de la plage en cours
Workbooks("essaiLine.xls").Activate
 
 
 
Do While Pointeur <= NbLignesFeuille
 
Cells(Pointeur, 1).Activate
ActiveCell.CurrentRegion.Copy (Workbooks("1.xls").Worksheets(1).Cells(Pointeur, 1))
NbLignes = ActiveCell.CurrentRegion.Rows.Count
Pointeur = Pointeur + NbLignes + 1
MsgBox Pointeur
 
Loop
 
 
End Sub
Merci, d'avance