Ken Hutchinson
XLDnaute Occasionnel
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.
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.
Code:
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