Remplacer nom classeur par variable

camarchepas

XLDnaute Barbatruc

• 5 Juillet 2010

• #2

Re : Remplacer nom classeur par variable

BOnjour Aubelix,

Pas tout compris , mais peut être :

Set WB1 = Workbooks(NOMCLASSEUR)

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Juillet 2010

• #3

Re : Remplacer nom classeur par variable

Bonjour,

A noter :

Code:

Dim WB1 As Workbook
Set WB1 = ThisWorkbook

devrait suffire.

bon après midi
@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Juillet 2010

• #4

Re : Remplacer nom classeur par variable

Re,

Code:

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

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

@+

 

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 5 Juillet 2010

• #5

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Juillet 2010

• #6

Re : Remplacer nom classeur par variable

Re,

essaye ainsi :

Code:

ActiveWorkbook.Close True

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

bonne soirée
@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Juillet 2010

• #7

Re : Remplacer nom classeur par variable

Ou,

Code:

WB1.close True

 

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 5 Juillet 2010

• #8

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Juillet 2010

• #9

Re : Remplacer nom classeur par variable

Re,

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

 

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 5 Juillet 2010

• #10

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Juillet 2010

• #11

Re : Remplacer nom classeur par variable

Re,

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

Code:

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

@+

 

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 5 Juillet 2010

• #12

Re : Remplacer nom classeur par variable

Re,🙂

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

Cordialement.

 

Vote positif 0 Vote négatif