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

  • Initiateur de la discussion Initiateur de la discussion Phillip
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
235
  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
817
Réponses
3
Affichages
491
  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
447
Réponses
9
Affichages
580
Réponses
2
Affichages
809
Réponses
6
Affichages
626
Retour