Dim.Reichart
XLDnaute Occasionnel
Bonjour,
Encore une fois, je ne sais pas ce que je fais de travers, mais je n'arrive pas au résultat souhaité.
Je veux copier la feuille active (Dossier) vers le fichier Archives.xlsb (puis effacer la feuille Dossier, mais j'ai mis en commentaire pour l'instant)
Le fichier Archives.xlsb s'ouvre, mais reste vide et ne se ferme pas, je n'ai aucune erreur qui remonte lorsque je lance la macro.
Il n'y a pas de mot de passe ou de verrou sur le fichier Archives.xlsb, les modifications y sont autorisées.
Aussi, je ne sais pas pourquoi, mais After ne se met pas en majuscule, ainsi que savechanges.
Si je modifie "thisworkbook" par workbooks("suivi global.xlsb"), j'ai "erreur définie par l'application ou par l'objet".
Bref, c'est surement un truc tout bête, comme souvent, mais je ne le vois pas.
Merci d'avance.
Encore une fois, je ne sais pas ce que je fais de travers, mais je n'arrive pas au résultat souhaité.
Je veux copier la feuille active (Dossier) vers le fichier Archives.xlsb (puis effacer la feuille Dossier, mais j'ai mis en commentaire pour l'instant)
VB:
Option Explicit
Sub test()
Dim Dossier As String
Dossier = ActiveSheet.Name
Workbooks.Open Filename:=ThisWorkbook.Path & "\Archives\Archives.xlsb"
ThisWorkbook.Worksheets(Dossier).Copy after:=Workbooks(ThisWorkbook.Path & "\Archives\Archives.xlsb").Worksheets(1)
Workbooks("Achives.xlsb").Close savechanges:=True
'Worksheets(Dossier).Delete
End Sub
Il n'y a pas de mot de passe ou de verrou sur le fichier Archives.xlsb, les modifications y sont autorisées.
Aussi, je ne sais pas pourquoi, mais After ne se met pas en majuscule, ainsi que savechanges.
Si je modifie "thisworkbook" par workbooks("suivi global.xlsb"), j'ai "erreur définie par l'application ou par l'objet".
Bref, c'est surement un truc tout bête, comme souvent, mais je ne le vois pas.
Merci d'avance.