activer mon fichier d'origine

[satwaf]

Bonjour a tous,

j'ai besoin d'un petit bout de code pour pouvoir finaliser une macro, voila le but est qu'a partir d'un fichier X , je copie une feuille de ce classeur dans un nouveau classeur, et que je puisse revenir sur le classeur X et ainsi supprimer la feuille que je viens de copier dans le nouveau classeur.

il ne me manque plus que ce bout de code ..

 

[Pierrot93]

Re : activer mon fichier d'origine

Bonjour,

manque un peu de détails tout ca.... tu bloques où dans ton code, montre nous peut être ce que tu as déjà commencé...

bonne journée
@+

 

[Pierrot93]

Re : activer mon fichier d'origine

Re,

si l'on s'en tient à ce que tu as indiqué dans l'objet :

ThisWorkbook.Activate

 

[satwaf]

Re : activer mon fichier d'origine

voila la fin du code

'deplacer New_test dans un nouveau classeur

Sheets("New_test").Select
Sheets("New_test").Copy
Sheets("New_test").Unprotect Password:="bpe2010"
Dim Link As Variant
For Each Link In ActiveWorkbook.LinkSources
ActiveWorkbook.BreakLink Name:=Link, Type:=1
Next
Application.DisplayAlerts = False
Sheets("New_test").Protect Password:="bpe2010"
Windows("Copie de 005 Formulation Donzére.xlsm").Activate

Sheets("New_test").Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = False
Sheets("Essai").Select
End Sub

 

[satwaf]

Re : activer mon fichier d'origine

en fait j'aimerai garder le nom de fichier "copie de 005 formulation donzère.xlsm" dans un coin pour l'activer a nouveau au moment venu, etant donné que ce fichier peut etre different.

 

[Pierrot93]

Re : activer mon fichier d'origine

Re,

le code est placé dans ce même classeur ?

 

[satwaf]

Re : activer mon fichier d'origine

voila le code complet du fichier copie de 005 formulation...

Sub creation_nouvel_essai()
' creation_nouvel_essai Macro
'
Dim Dwo As Object
'Application.ScreenUpdating = False
'duplicata de la feuille essai
Sheets("Essai").Copy Before:=Sheets(1)
Sheets("Essai (2)").Unprotect Password:="bpe2010"
'renommer la copie de la feuille essai
Sheets("Essai (2)").Name = "New_test"
Sheets("new_test").DrawingObjects.Delete
'copie et collage special des valeurs pour les cellules
'en liaison avec la feuille formulation
Sheets("new_test").Range("E7:H7").Copy
Sheets("new_test").Range("E7:H7").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("E9:N9").Copy
Sheets("new_test").Range("E9:N9").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("C13:e23").Copy
Sheets("new_test").Range("C13:e23").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("C24:d27").Copy
Sheets("new_test").Range("C24:d27").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("C28:e30").Copy
Sheets("new_test").Range("C28:e30").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("e24:e27").Copy
Sheets("new_test").Range("e24:e27").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("G13:G30").Copy
Sheets("new_test").Range("G13:G30").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("J13:J30").Copy
Sheets("new_test").Range("J13:J30").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("K13:K21").Copy
Sheets("new_test").Range("K13:K21").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("K22:K23").Copy
Sheets("new_test").Range("K22:K23").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("K24:K30").Copy
Sheets("new_test").Range("K24:K30").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("N13:N27").Copy
Sheets("new_test").Range("N13:N27").PasteSpecial Paste:=xlPasteValues
'Sheets("new_test").Protect Password:="bpe2010"
'deplacer New_test dans un nouveau classeur
Sheets("New_test").Select
Sheets("New_test").Copy
Sheets("New_test").Unprotect Password:="bpe2010"
Dim Link As Variant
For Each Link In ActiveWorkbook.LinkSources
ActiveWorkbook.BreakLink Name:=Link, Type:=1
Next
Application.DisplayAlerts = False
Sheets("New_test").Protect Password:="bpe2010"
Windows("Copie de 005 Formulation Donzére.xlsm").Activate
Sheets("New_test").Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = False
Sheets("Essai").Select
End Sub

 

[Pierrot93]

Re : activer mon fichier d'origine

Re,

comprends pas trop... ton code est bien là :

Windows("Copie de 005 Formulation Donzére.xlsm").Activate

 

[satwaf]

Re : activer mon fichier d'origine

a partir de ce fichier "Copie de 005 Formulation Donzére.xlsm". je génére des fiches d'éssai, seulement des fichiers copie de 005... j'en ai plusieurs avec des noms differents, donc lorsque la macro arrive a cette ligne, Windows("Copie de 005 Formulation Donzére.xlsm").Activate, a la place il faudrait lui indiquer le fichier qui a generer la copie de la feuille new_test

 

[Pierrot93]

Re : activer mon fichier d'origine

Re,

utilise une variable objet, déclaration de la variable :

Dim wb As Workbook

juste après que le nouveau classeur soit créé, quand celui-ci est actif :

Set wb = ActiveWorkbook

ensuite partout dans ton code, quand tu veux faire référence à ce classeur...

wb.Activate

 

[satwaf]

Re : activer mon fichier d'origine

ca fonctionne tres bien, merci Pierrot93, en esperant qu'a présent je n'aurai plus de probleme lorsque je génére un nouveau classeur.

encore merci