VBA Fermetur du fichier

[jmarichal]

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

 

[PascalXLD]

Re : VBA Fermetur du fichier

Bonjour

es-tu sûr d'avoir un classeur "Planning" qui s'ouvre avant de le fermer ?

 

[jmarichal]

Re : VBA Fermetur du fichier

oui je fichier s'ouvre en debut de code (ça marche sur ma machine🙂)

voici le code complet
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

 

[PascalXLD]

Re : VBA Fermetur du fichier

RE

cela m'étonne que cela fonctionne sur ton pc

essaies

Workbooks("planning.xls").Close

 

[jmarichal]

Re : VBA Fermetur du fichier

exact ça fnctionne sur toute les machine

merci

 

[jmarichal]

Re : VBA Fermetur du fichier

ceci explique celà

Merci pour l'info