Excel Fonction Workbook.Add
Bonjour,
J'execute le code ci-dessous sur 2 PC distincts mais avec les mêmes versions de windows et office.
Code:
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 |
Sur l'un des PC le code s'execute bien . Sur l'autre apparait le message : erreur 1004 la fonction Workbook.add a échoué.
Pouvez-vous m'indiquer pourquoi?
Merci d'avance.
