copie vers classeru fermé (débutant ... déoslé)

Staple1600

XLDnaute Barbatruc

• 10 Février 2013

• #2

Re : copie vers classeru fermé (débutant ... déoslé)

Bonjour


Comme ceci cela fonctionne sur mon PC
Code VBA:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wbA As Workbook, wbB As Workbook
Set wbA = ThisWorkbook
Set wbB = Workbooks.Open("F:\Direction\test.xlsx")
wbA.Sheets("Commandes").Range("A6:A20").Copy wbB.Sheets("Feuil1").Range("A1")
wbB.Close True
End Sub

 

Vote positif 0 Vote négatif

F

Fouding

Guest

• 10 Février 2013

• #3

Re : copie vers classeru fermé (débutant ... déoslé)

Impec merci beaucoup staple

 

Vote positif 0 Vote négatif

F

Fouding

Guest

• 10 Février 2013

• #4

Re : copie vers classeru fermé (débutant ... déoslé)

Re bonjour à tous
Question subsidiaire SVP . Je voudrais apporter une fonction supplémentaire au code de staple1600 :

Si le classeur "test.xlsx" est fermé, pas de problème. Mais s'il est ouvert (par un autre user par exemple) ça le ferme.

Comment faire pour qu'il reste fermé s'il l'était, et qu'il reste ouvert s'il était aussi ?
Merci pur votre aide.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Février 2013

• #5

Re : copie vers classeru fermé (débutant ... déoslé)

Re

Fouding
Fais une petite recherche sur le forum (dans ses archives), tu devrais trouver de quoi t'aider
Exemple de mot-clé: tester fichier ouvert
Et tu tomberas en lisant bien sur par exemple sur ceci (je salue au passage BrunoM45 😉 )

Tu vois comment utiliser ces exemples?

 

Dernière édition: 10 Février 2013

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Février 2013

• #6

Re : copie vers classeru fermé (débutant ... déoslé)

Re

A la réflexion , autant faire plus simple avec cette fonction retrouvée dans mes archives

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wbA As Workbook, wbB As Workbook, Fichier As String
Fichier="F:\Direction\test.xlsx"
Set wbA = ThisWorkbook
If Ouvert(Fichier) Then
Set wbB = Workbooks("test.xlsx")
Else
Set wbB = Workbooks.Open(Fichier)
End If
wbA.Sheets("Commandes").Range("A6:A20").Copy wbB.Sheets("Feuil1").Range("A1")
wbB.Close True
End Sub

Code:

Private Function Ouvert(WBK As String) As Boolean
On Error Resume Next
Ouvert = Not Workbooks(WBK) Is Nothing
Err.Clear
End Function

PS: Test OK sur mon PC.

 

Vote positif 0 Vote négatif

F

Fouding

Guest

• 10 Février 2013

• #7

Re : copie vers classeru fermé (débutant ... déoslé)

Merci. Je teste

 

Vote positif 0 Vote négatif

F

Fouding

Guest

• 10 Février 2013

• #8

Re : copie vers classeru fermé (débutant ... déoslé)

En lisant le code, je crains que dans tout les cas, le fichier "test.xlsx" soit refermé à la fin de la macro (wbB.Close True)

 

Vote positif 0 Vote négatif