Discussion :

[guestCam]

Bonjour,
J ai un probleme.

J aimerais ouvrir un fichier f2 a partir d une macro vba contenu dans f1. une fois que f2 est modifier, j aimerais le rendre visible et fermer f1. f1 et f2 sont tous des fichiers excel. j ai commence le code suivant, mais je suis un peu bloque:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub openFileUpdateAndMakeItVisible()
 
    Dim oExcel As Excel.Application
    Dim oWB As Workbook
    Set oExcel = New Excel.Application
 
    Dim destination_File As String
 
 
    'the file I want to update with the macro
    destination_Folder = "C:\Test\file2.xls"
 
    Set oWB = oExcel.Workbooks.Open(destination_File)
    oWB.Worksheets("Sheet1").Cells(1, 1) = "Hi"
    'oWB.Close
    'oExcel.Quit
    'Set oExcel = Nothing
 
End Sub

Merci d' avance pour votre aide

[PPz78]

Bonjour,

Peux tu expliquer ce qui ne fonctionne pas?
Comment doit être mis à jour F2 , Macro ? Opérateur ?
Comment sait-on que la modification est terminée ?

PPz

[mercatog]

f1 le fichier actuel à fermer après ouverture de f2 et modification de f2; f2 restera le classeur visible (ou l'inverse ouvrir f2, importer données de f2 vers f1 et fermer f2).
Ton code est fonctionnel sauf pour le nom de ta variable destination_file, ci-joint ton code modifié (en vba pas besoin de déclarer une variable excel, c'est par défaut)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub openFileUpdateAndMakeItVisible()
Dim oWB As Workbook
Dim Sh As Worksheet
Dim Destination_File As String
 
Application.ScreenUpdating = False
Destination_File = "C:\Test\file2.xls"
Set oWB = Workbooks.Open(Destination_File)
    Set Sh = oWB.Worksheets(1)
        Sh.Cells(1, 1) = "Hi"
        'suite des opérations
        ThisWorkbook.Save 'éventuellement
        ThisWorkbook.Close
    Set Sh = Nothing
Set oWB = Nothing
Application.ScreenUpdating = True
End Sub

[guestCam]

Merci beaucoup mercatog. ca c est exactement ce que je voulais. Tu es un sauveur.
Ca fonctionne bien.

A bientot