XL 2010 exporter onglet dans classeur fermé

[mix770]

re bonjour,

je recommence à zéro.

j'ai la macro suivante qui fonctionne quand les 2 classeurs sont ouverts, cela copie l'onglet.

Sub Copie_feuille_resultats_janvier()
Sheets("resultats_janvier").Select
Sheets("resultats_janvier").Copy After:=Workbooks("collecte_AA").Sheets(1)
End Sub

j'essaie modifier pour qu'il fasse la même chose sans ouvrir le classeur et cela bloque sur:

Workbooks("D:\Applis\Bordereau présence Exploitation\Collecte_Résultats_Exploitation\collecte_AA.xlsx").Activate

je tourne en rond depuis hier et cela me rend GRRRR


Sub Copie_feuille_resultats_janvier()
Sheets("resultats_janvier").Select
Workbooks("D:\Applis\Bordereau présence Exploitation\Collecte_Résultats_Exploitation\collecte_AA.xlsx").Activate
Sheets("resultats_janvier").Copy After:=Workbooks("collecte_AA").Sheets(1)
ActiveWindow.Close
ThisWorkbook.Activate: Range("A1").Select
End Sub

si quelqu'un a une idée

merci à vous

 

[youky(BJ)]

Je viens de voir que si le fichier était ouvert il me fallait faire quelques modifs pour que ca marche
J'ai même été obligé de tester et c'est bon
Voici la macro il n'y a que les 2 MP à modifier.
Bruno

Sub Copie_feuille_Active()
On Error Resume Next 'gère l'error
fichier = ThisWorkbook.Name
onglet = ActiveSheet.Name
If MsgBox("Envoyer " & onglet & " dans Consolidation_Exploitation ?", vbYesNo + vbExclamation, "COPIER L'ONGLET") = vbNo Then Exit Sub
Application.ScreenUpdating = False
Workbooks("Consolidation_Exploitation.xls").Activate
If Err > 0 Then
Err.Clear
chemfich = "D:\Applis\Bordereau présence Exploitation\Collecte_Résultats_Exploitation\Consolidation_Exploitation.xls"
Workbooks.Open chemfich
If Err <> 0 Then MsgBox "fichier non trouvé": Exit Sub
End If
On Error GoTo 0
With Workbooks("Consolidation_Exploitation.xls")
Workbooks(fichier).Sheets(onglet).Copy After:=Workbooks("Consolidation_Exploitation.xls").Sheets(1)
.Sheets(2).Unprotect "AAA"
.Sheets(2).UsedRange.Value = .Sheets(2).UsedRange.Value
.Sheets(2).Protect "AAA"
.Save
.Close
End With
ThisWorkbook.Activate: Range("A1").Select
Application.ScreenUpdating = True
MsgBox onglet & " a été copié dans Consolidation_Exploitation !"
End Sub

 

[mix770]

bonjour Youky,
merci je teste
j'ai un autre problème j'ai généré un mail qui envoie un mail, cela fonctionne chez moi mais les utilisateurs ont outlook web OWA
ce qui fait que cela bloque, il faut que j'ouvre une nouvelle discussion je pense ?

 

[youky(BJ)]

Oui pose un autre message mais fait des recherches car il y a plein de sujet sur [envoie de mail]
Bruno