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 ?
Merci
Cordialement
Phillip
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