XL 2013 fermeture d'un fichier temporaire après copie

Phillip

XLDnaute Occasionnel
Bonjour,

J'ouvre un fichier excel dans un mail. Je copie un onglet dans un fichier de suivi que j'ai sur mon disque. . J'ai d'autres traitements sur mon fichier mis à jour. Mon problème, c'est qu'à la fin de mon traitement, (ou d'ailleurs avant si possible) je ferme sans sauvegarder mon fichier tempo (celui ouvert dans le mail).

Voici le code que j'ai écrit. Et j'ai une erreur lors de la ligne
Workbooks.fichier_tempo.Close Savechanges:=False (J'ai essayé de l'activer avant, mais ça ne marche pas non plus)

Des idées, suggestions ?


VB:
Sub suivi

Dim fichier_tempo As Workbook
Dim fichier_final  As Workbook
Dim onglet_donnees As Worksheet
Dim chemin_fichier_final As String
Dim dernier_onglet As Worksheet


Application.ActiveProtectedViewWindow.Edit
Application.ScreenUpdating = False
'chemin du fichier final
chemin_fichier_final = "C:\Users\Phillip_PrO\fichier_Voix.xlsm"

'identifier fichier et onglets
Set fichier_tempo = ActiveWorkbook
Set onglet_donnees = fichier_tempo.Worksheets(1)
Set fichier_final = Application.Workbooks.Open(chemin_fichier_final)
Set dernier_onglet = fichier_final.Worksheets(Worksheets.Count)

'copier coller l'onglet et supprimer fichier tempo
onglet_donnees.Copy after:=dernier_onglet

'Windows.fichier_tempo.Activate
'Workbooks.fichier_tempo.Close Savechanges:=False

Merci

Cordialement

Phillip
 

_Thierry

XLDnaute Barbatruc
Repose en paix
Re Phillip
Ce n'est pas qu'elle dit la même chose, c'est que tu as déjà fait le Set d'Object.
A ce moment là, VBA "sait" déjà que [fichier_tempo] est un WorkBook. Si on duplique l'instruction là il se fâche !
Bien à toi
@+Thierry
 

Discussions similaires

Réponses
2
Affichages
118
Réponses
2
Affichages
241

Statistiques des forums

Discussions
312 230
Messages
2 086 427
Membres
103 206
dernier inscrit
diambote