Activation d'un fichier après enregistrement automatique
Bonjour
J'enregistre, avec une macro, un fichier "FICHIER "avec la date du jour
ActiveWorkbook.SaveAs Filename : = "\FICHIER " & Format(Date, "yyyy-mm-dd")qui s'appelle alors aujourd'hui " FICHIER 2011-08-15"
Lorsque que je veux activer ensuite ce fichier avec le code suivant
Windows ("FICHIER " & Format(Date, "yyyy-mm-dd")j'ai le message "L'indice n'appartient pas à la sélection"
Je dois avoir une erreur de " ou de () dans mon code
Merci de votre aide
Cdt
Bertrand
Bonsoir
A quel moment tu utilises ?
Windows ("FICHIER " & Format(Date, "yyyy-mm-dd")).Activate Bien que cela soit inutile car après la sauvegarde c'est toujours ce fichier qui est actif
Joins un fichier avec le problème rencontré
Bonne soirée
Bonsoir,
Avec la même observation sur l'utilité...
Le nom du classeur comme celui de la fenêtre est toujours blabla.xls ou ...xlsm
A+
Bonsoir
J'ai plusieurs fichiers de travail ouverts en même temps et à un moment c'est un autre fichier qui est actif et j'ai besoin d'aller coller des données du fichier actif sur le fichier en question (FICHIER 2011-08-15) et donc de l'activer avant.
Est-ce plus clair ?
Merci
Cdt
Bertrand
Bonsoir
Pas plus clair
Pas besoin d'activer le classeur pour copier
tu peux faire un truc du style
<Données_à_copier>.copy ThisWorkbook.Sheets("La_Bonne_Feuille").Range("Au_Bon_Endroit")ou
<Données_à_copier>.copy Workbooks.("FICHIER " & Format(Date, "yyyy-mm-dd")).("La_Bonne_Feuille").Range("Au_Bon_Endroit")Je répète
Bonsoir Banzaï64 et merci de ton aide ... une fois de plus.
J'ai bien vu ta 1° demande, mais je suis incapable de joindre un (ou plusieurs) fichier(s).
Les 6 que j'utilise font tous plus de 10 Mo.
Les réduire, y mettre des données non confidentielles et expliquer ce que fait la macro entre tous ces fichiers me prendrait beaucoup de temps.
En fait je travaille avec 6 fichiers. 5 de ces fichiers ont un nom invariable. Le 6° varie avec la date du jour.
N'étant malheureusement pas un pro de VBA, j'active les fichiers au moment où j'en ai besoin pour y mettre des formules y faire des tris ou des recherches, dont je copie les résultats pour les coller dans d'autres fichiers..
Activer les 5 premiers est facile. Je met leur nom fixe dans la macro.
Je n'arrive pas à activer le 6°dont le nom varie avec la date du jour. Je pensais que ce serai faisable étant donné que je peux l'enregistrer avec le code suivant :
ActiveWorkbook.SaveAs Filename : = "\FICHIER " & Format(Date, "yyyy-mm-dd")comme je le dit dans mon 1° post.
Est-ce qu'un
copy ThisWorkbook.Sheets("Feuil1").Range("A1:F15")
paste Workbooks.("FICHIER " & Format(Date, "yyyy-mm-dd")).("Feuil1").Range("A1")résoudrait mon problème ?
Merci
Bertrand
Bonjour
Fait plutôt un
ThisWorkbook.Sheets("Feuil1").Range("A1:F15").copy Workbooks.("FICHIER " & Format(Date, "yyyy-mm-dd")).("Feuil1").Range("A1")Cela devrait fonctionner
Pas trop l'habitude avec Paste
Bonjour,
2ème édition !
Le nom d'un classeur ou d'une Windows se termine nécessairement par ".xls" ou ".xlsx" ou ".xlsm"
Dans :
ActiveWorkbook.SaveAs Filename : = "\FICHIER " & Format(Date, "yyyy-mm-dd")...ce n'est pas indispensable car SaveAs rajoute automatiquement la bonne extension.
Dans tous les autres cas c'est nécessaire :
Windows ("FICHIER " & Format(Date, "yyyy-mm-dd") & ".xls").Activate
ou
Workbooks ("FICHIER " & Format(Date, "yyyy-mm-dd") & ".xls").Activate
ou
Windows ("FICHIER " & Format(Date, "yyyy-mm-dd") & ".xlsx").Activate
ou
Workbooks ("FICHIER " & Format(Date, "yyyy-mm-dd") & ".xlsx").Activate
ou
Windows ("FICHIER " & Format(Date, "yyyy-mm-dd") & ".xlsm").Activate
ou
Workbooks ("FICHIER " & Format(Date, "yyyy-mm-dd") & ".xlsm").Activate
Il en va de même pour faire un "Copy" :
ThisWorkbook.Sheets("Feuil1").Range("A1:F15").copy Workbooks.("FICHIER " & Format(Date, "yyyy-mm-dd") & ".xls").("Feuil1").Range("A1")
A+
Bonjour
Bien vu Galopin01
Pas pensé à cette extension
Moi non plus :
C'est OK maintenant
Un grand merci à tous les deux
Bertrand