Remplacer nom classeur par variable

[aubelix]

Bonjour à tous les amis du Forum. 🙂

Je reviens vers vous pour de l'aide concernant une variable:
Mon problème est le suivant :

Avec le classeur en cours (NOMCLASSEUR), j'ouvre à l'aide d'une macro du un fichier en cours
et je recopie la feuil1 après la feuille BASE du classeur.
Quel la syntaxe pour mettre une variable à la place du nom du classeur.
Par avance Merci pour votre aide.
Cordialement.

Sub Ouvrir()
'Selection du fichier a ouvrir : fichier où se trouve les données à copier
'On Error Resume Next
Dim WB1 As Workbook
Set WB1 = ThisWorkbook (NOMCLASSEUR)
Fichier = Application.GetOpenFilename("Fichier XLS (*.xls),*.xls")
Workbooks.Open Filename:=Fichier
'Copie la feuille "Feuil1" et la copier dans la feuille "BD" du classeur NOMCLASSEUR.
Sheets("Feuil1").Copy After:=Workbooks(NOMCLASSEUR.xls").Sheets("BASE")

Avec le nom du classeur, qui est changeant cela donctionne...
C'est ça que je voudrais obtenir
Sheets("Feuil").Copy After:=Workbooks("NOMCLASSEUR.xls").Sheets("BASE")

Sheets("Feuil1").Copy After:=Workbooks(WB1 & ".xls").Sheets("BASE")
End Sub

 

[camarchepas]

Re : Remplacer nom classeur par variable

BOnjour Aubelix,

Pas tout compris , mais peut être :

Set WB1 = Workbooks(NOMCLASSEUR)

 

[Pierrot93]

Re : Remplacer nom classeur par variable

Bonjour,

A noter :

Dim WB1 As Workbook
Set WB1 = ThisWorkbook

devrait suffire.

bon après midi
@+

 

[Pierrot93]

Re : Remplacer nom classeur par variable

Re,

Sheets("Feuil1").Copy After:=WB1.Sheets("BASE")

devrait fonctionner, si la variable est bien initialisée...

@+

 

[aubelix]

Re : Remplacer nom classeur par variable

Bonjour camarchepas, Pierrot93 et merci pour réponses respectives. 🙂

Cel fonctionne très bien.
Une autre question:
Quelle est la syntaxe pour activer et fermer le fichier que j'ai ouvert
contenant la "Feuil1". J'ai essayé ce code, mais il ferme mon classeur.

Windows(fichier).Activate
ActiveWindow.Close
Range("A1").Select

Par avance, Merci pour votre aide.
Cordialement.

 

[Pierrot93]

Re : Remplacer nom classeur par variable

Re,

essaye ainsi :

ActiveWorkbook.Close True

le "true" est à remplacer par "False" pour fermer sans enregistrer...

bonne soirée
@+

 

[Pierrot93]

Re : Remplacer nom classeur par variable

Ou,

WB1.close True

 

[aubelix]

Re : Remplacer nom classeur par variable

Re Pierrot93.

Merci pour ta réponse.
J'aurai voulu fermer l'autre classeur. Pas le WB1

Sub Ouvrir()
On Error Resume Next
Dim WB1 As Workbook
Set WB1 = ThisWorkbook
'Selection du fichier a ouvrir : fichier où se trouve les données à copier
fichier = Application.GetOpenFilename("Fichier XLS (*.xls),*.xls")
Workbooks.Open Filename:=fichier
'Copie la feuille "Feuil" et la copier dans la feuille "BD" du classeur2
Sheets("Feuil1").Copy After:=WB1.Sheets("BASE")


ActiveWorkbook.Close True
Range("A1").Select

End Sub
Merci pour ton aide
Cordialement.

 

[Pierrot93]

Re : Remplacer nom classeur par variable

Re,

si pas "wb1", "ActiveWorkbook.Close True" devrait fonctionner... à moins d'avoir un 3ème classeur d'ouvert...

 

[aubelix]

Re : Remplacer nom classeur par variable

Re,

Merci pour ta réponse.
C'est le classeur WB1 qui se ferme.

Comment peut-on lui dire que c'est "fichier".


Sub Ouvrir()
On Error Resume Next
Dim WB1 As Workbook
Set WB1 = ThisWorkbook
'Selection du fichier a ouvrir : fichier où se trouve les données à copier
fichier = Application.GetOpenFilename("Fichier XLS (*.xls),*.xls")
Workbooks.Open Filename:=fichier
'Copie la feuille "Feuil" et la copier dans la feuille "BD" du classeur2
Sheets("Feuil1").Copy After:=WB1.Sheets("BASE")

ActiveWorkbook.Close True

End Sub

Cordialement.

 

[Pierrot93]

Re : Remplacer nom classeur par variable

Re,

initialise une autre variable lors de l'ouverture du fichier :

Dim wb2 As Workbook
fichier = Application.GetOpenFilename("Fichier XLS (*.xls),*.xls")
Set wb2 = Workbooks.Open(Filename:=fichier)
'ton code
wb2.Close True

@+

 

[aubelix]

Re : Remplacer nom classeur par variable

Re,🙂

Merci Pierrot93 pour tes réponses et ta patience.
Cela fonctionne très bien.

Cordialement.