[VB]: Copie Feuill Classeur ouvert par macro
Résolu/Fermé
bthenault
Messages postés
55
Date d'inscription
mercredi 22 juillet 2009
Statut
Membre
Dernière intervention
8 juin 2011
-
22 juil. 2009 à 10:44
bthenault Messages postés 55 Date d'inscription mercredi 22 juillet 2009 Statut Membre Dernière intervention 8 juin 2011 - 22 juil. 2009 à 11:51
bthenault Messages postés 55 Date d'inscription mercredi 22 juillet 2009 Statut Membre Dernière intervention 8 juin 2011 - 22 juil. 2009 à 11:51
A voir également:
- [VB]: Copie Feuill Classeur ouvert par macro
- Vb cable - Télécharger - Audio & Musique
- Vb - Télécharger - Langages
- Vb editor - Télécharger - Langages
- Vb runtime - Télécharger - Divers Utilitaires
- Vb 2008 - Télécharger - Langages
1 réponse
bthenault
Messages postés
55
Date d'inscription
mercredi 22 juillet 2009
Statut
Membre
Dernière intervention
8 juin 2011
1
22 juil. 2009 à 11:51
22 juil. 2009 à 11:51
Après de multiples essais (j'ai quand même cherché avant de demandé ici, j'ai retourné la situation. J'ai imbrique des macros dans la macro de d'ouverture de fichiers.
Sub OuvFichierTrim2()
If Workbooks("Sage_Echeancier.xls").Sheets("Trim").Range("F4").Value = 2 Then Trim2copy
End Sub
Sub Trim2copy()
Workbooks.Open "\\******\2ème Trimestre 2009.xls"
Windows("Sage_Echeancier.xls").Activate
Sheets("BilanProvisoire").Select
Sheets("BilanProvisoire").Copy Before:=Workbooks( _
"2ème Trimestre 2009.xls").Sheets(1)
Windows("2ème Trimestre 2009.xls").Activate
Sheets("BilanProvisoire").Select
ActiveSheet.Name = Day(Now) & Month(Now) & Year(Now)
End Sub
Ce qui fait que la copie se fait dans le bon fichier...
Si la date correspond au trimestre 2, il 'mouvre ce fichier, et fait la copy, sinon je lance l'ouv3 qui dit que si lec le trim 3, il ouvre ce fichier, et fait la copie...e tc...
Sub OuvFichierTrim2()
If Workbooks("Sage_Echeancier.xls").Sheets("Trim").Range("F4").Value = 2 Then Trim2copy
End Sub
Sub Trim2copy()
Workbooks.Open "\\******\2ème Trimestre 2009.xls"
Windows("Sage_Echeancier.xls").Activate
Sheets("BilanProvisoire").Select
Sheets("BilanProvisoire").Copy Before:=Workbooks( _
"2ème Trimestre 2009.xls").Sheets(1)
Windows("2ème Trimestre 2009.xls").Activate
Sheets("BilanProvisoire").Select
ActiveSheet.Name = Day(Now) & Month(Now) & Year(Now)
End Sub
Ce qui fait que la copie se fait dans le bon fichier...
Si la date correspond au trimestre 2, il 'mouvre ce fichier, et fait la copy, sinon je lance l'ouv3 qui dit que si lec le trim 3, il ouvre ce fichier, et fait la copie...e tc...