Discussion :

[jacques64]

Bonjour,

J'execute le code ci-dessous sur 2 PC distincts mais avec les mêmes versions de windows et office.

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

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.

[Invité]

Bonjour,

êtes-vous certain :

1) que le répertoire "essai" existe bien sous C: ?
2) que le fichier 1.xls n'existe pas déjà dans le répertoire ?

[jacques64]

oui je suis certain de ces deux points.

merci