Discussion :

[argal]

Bonjour et bon Lundi,

je fait une importation d'un fichier XLS vers un autre via VBA avec un simple copier-coller

sur mon PC tout est impec mais sur les autre PC il y a un BUG sue la dernière ligne du code
Workbooks("planning").Close

je ne comprend pas le pourquoi alors que j'ai d'autres code qui utilise la même commande et qui ne bug pas

d'avance merci

[zandru]

Bonjour,

Quel est exactement le problème,
Cela plante avec un message d'erreur ? (si oui lequel ?)
ou :
cela ne plante pas mais ne fonctionne pas ?

[argal]

tous le code se passe tres bien mais j'ai le message debug

runtime error 9

subcsipt out of range


voici le code complet

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
33
Sub import()
Set fdata = ActiveWorkbook.Worksheets("data")
Set fwor = ActiveWorkbook.Worksheets("wor")
Dim i, j As Integer
fdata.Activate
Range("A1").Select
i = ActiveCell.CurrentRegion.Rows.Count - 1
Range("w2") = i
Range("A:AC").Select
Selection.ClearContents
Range("A:AC").Select
Workbooks.Open "P:\REN\planning\template\New\planning", ReadOnly:=True
Range("a:AC").Copy
fdata.Activate
Range("a:AC").PasteSpecial
Application.CutCopyMode = False
 
i = ActiveCell.CurrentRegion.Rows.Count - 1
Range("AD2").Select
For j = 1 To i
If ActiveCell.Cells(j, 1) = "" Then
ActiveCell.Cells(j, 1) = ("=WEEKNUM(RC[-25])")
ActiveCell.Cells(j, 2) = ("=left(RC[-28],3)")
ActiveCell.Cells(j, 3) = "=SUM(RC[-18]:RC[-15])"
ActiveCell.Cells(j, 4) = "=weekday(RC[-28])"
ActiveCell.Cells(j, 5) = "=RC[-31]"
End If
Next
 
 
Workbooks("planning").Close
fwor.Activate
End Sub

merci

[zandru]

En utilisant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks

tu fait référence à tout tes classeurs ouverts (même si normalement cela devrait marcher) , utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Windows("planning.xls").Activate
ActiveWorkbook.Close

qui devrait fermer uniquement un classeur.


N'oubli pas le .xls lors de l'ouverture, c'est plus clair :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks.Open "P:\REN\planning\template\New\planning.xls", ReadOnly:=True

[argal]

Merci beacoup ça marche correctement

(erreur de débutant

[fring]

En utilisant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks

tu fait référence à tout tes classeurs ouverts

Tu es certain de ce que tu avances ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks("planning.xls").Close '<-- il faut donner le nom complet y compris le .xls

Ne fait référence qu'à UN classeur et il n'est pas besoin de d'abord l'activer avant de le fermer.

[zandru]

Tu es certain de ce que tu avances ?

C'est marqué comme ça dans l'aide même si, comme je l'ai écrit précédemment, cela devrait marcher quand même.
La solution que je donne fait contourner le problème.

j'ai vu le ".xls" manquant dans le open et pas dans le close faut que je prenne rendez-vous avec mon ophtalmo...