Basculer sur fichier actif

[Ken Hutchinson]

Hello Forum adoré !!


Voilà un petit code qui fait une copie de données d'un fichier vers un autre.

Dans ce code le "fichier de base.xls" n'a jamais le même nom. Je voudrais le mettre en variable mais je n'y arrive pas... pouvez vous m'aider ?

Sachant que le fichier que j'ouvre est déjà en variable.

Merci de votre aide.

Private Sub CommandButton1_Click()

Dim w As Workbook

    MonFichier = Application.GetOpenFilename
    
     If MonFichier = "Faux" Then
      MsgBox ("Vous n'avez pas choisi de fichier")
      Exit Sub
    Else
      Set w = Workbooks.Open(MonFichier)
    
    End If
    
    Sheets("Résultats").Select
    Range("C1:GY52").Select
    Selection.Copy
    Windows("fichier de base.xls").Activate
    Sheets("Résultats").Select
    Range("C54").Select
    ActiveSheet.Paste
    Range("C54").Select

' vidange du presse papier
    Application.CutCopyMode = False
    Workbooks(w.Name).Close

   
    UserForm3.Hide
    
End Sub

 

[skoobi]

Re : Basculer sur fichier actif

Bonjour,

dans quel fichier ce trouve la macro, "fichier de base.xls", autre?

 

[Ken Hutchinson]

Re : Basculer sur fichier actif

Oui elle est dans le "fichier de base.xls" mais il ne s'appelle jamais pareil. Ca a l'air compliqué mais c'est comme cela.

En fait je veux mettre ce nom en variable pour pouvoir retourner sur le fichier de base...

 

[MJ13]

Re : Basculer sur fichier actif

Bonjour,
Suivant le cas, on peut utiliser

nomf=activeworkbook.name
ou

nomf=Thisworkbook.name

puis pour activer le classeur et la feuil1

Workbooks(nomf).Sheets("feuil1").activate