[VBA-E]Fonction GetObject

**tinose** · 06/02/2006, 18h11

Salut,

J'essaie de manipuler un fichier excel à partir d'une macro située dans un autre fichier. J'utilise pour cela la fonction getobject qui va chercher le fichier en question. Les manips que je fais ensuite semblent fonctionner mais quand j'ouvre le fichier qui a dû Être manipulé, les feuilles excel ont disparues. voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
Sub essai2()
Dim Classeur As Excel.Workbook
Set Classeur = GetObject("C:\Documents and Settings\nouveau.xls")
Classeur.Sheets(1).Range("B3").Value = "saluth"
Classeur.Save
Classeur.Close
Set Classeur = Nothing
Excel.Application.Quit
End Sub

Merci de m'indiquer pourquoi les feuilles ecxel n'existent plus quand j'ouvre le fichier nouveau.xls ???
Merci d'avance de votre aide précieuse,

Tinose

**ouskel'n'or** · 06/02/2006, 18h30

As-tu essayé

Code :

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

1
2
3
4
5
6
7
Set Classeur = GetObject("C:\Documents and Settings\nouveau.xls") 
With classeur
    .Sheets(1).Range("B3").Value = "saluth" 
    .Save
    DoEvents
    .Close
End with

A+

**tinose** · 07/02/2006, 10h35

Ca ne marche toujours pas, les feuilles sont toujours désactivées quand j'essaie de rouvrir le fichier excel que je voulais modifier avec la fonction getobject sans ouvrir le fichier.

Rappel: je cherche à modifier un fichier excel fermé à partir d'un autre fichier qui contient du code.

Malheureusement, quand j´écris la macro avec la fonction getobject les modifs doivent se produire mais quand je rouvre le fichier qui est censé être modifié, la session excel apparaît mais plus les feuilles de calcul.
Est que l´on peut réactiver les feuilles ou est ce qu'il faut utiliser la fonction getobject avec d'autres précautions ?

Merci pour vos précisions !

**ouskel'n'or** · 07/02/2006, 10h57

J'ai cette réponse fournie par stormless voici quelques temps.
Pour voir le contexte, cherche dans les réponses qu'il a données sur le forum, elles ne sont pas si nombreuses...

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub TravaillerSurFichierFermé() 'de la part de stormless
'activer la reference Microsoft ActiveX Data Objects x.x Library
'activer la reference Microsoft ADO Ext 2.7 for DLL ans Security
Dim connect As String
Dim Sql As String, onglet As String
Dim données As ADODB.Recordset
Dim Fichier As String, Direction As String, texte_SQL As String
Dim x As Integer, NbFichiers As Integer, Y As Integer, N As Integer, p As Integer, w As Integer
'On Error Resume Next
Dim Tableau() As String
    onglet = "dim$" 'InputBox("Saisissez le nom d'un onglet :")
    If onglet = "" Then Exit Sub
    Direction = Dir(ThisWorkbook.path & "\*.xls")
    Do While Len(Direction) > 0 'liste tous les classeurs du repertoire
        NbFichiers = NbFichiers + 1
        ReDim Preserve Tableau(1 To NbFichiers)
        Tableau(NbFichiers) = Direction
        Direction = Dir()
    Loop
    If NbFichiers > 0 Then
        For x = 1 To NbFichiers 'boucles sur les classeurs
            ' pour ne pas prendre en compte le classeur contenant la macro (synthese)
            If Tableau(x) <> ThisWorkbook.Name Then
            Fichier = ActiveWorkbook.path & "\" & Tableau(x)
            N = 0
            connect = "DRIVER={Microsoft Excel Driver (*.xls)};" & "ReadOnly=1;DBQ=" & Fichier
            Set données = New ADODB.Recordset
            données.Open source:="SELECT * FROM [" & onglet & "Q10:Q56]", ActiveConnection:=connect
                If Not données.EOF Then
                     ' pour etre synchro avec les colonnes
                       p = x
                       Cells(1, 2 + p) = Tableau(x)
                       Cells(2 + N, 2 + p).CopyFromRecordset données
                       p = p + 2
                       N = N + 1
                End If
            End If
        Next x
    End If
    Application.ScreenUpdating = True
    'delete de l'objet recordset
    données.Close
    Set données = Nothing
End Sub

Si ça peut t'aider...

A+

**tinose** · 07/02/2006, 11h58

Effectivement, merci, cette méthode peut marcher mais elle utilise la fonction open qui ouvre le fichier et le modifie ensuite.

Ce que je ne comprends pas c'est que la fonction getobject qui n'ouvre pas à l'écran le fichier marche parfaitement si on modifie un fichier word fermé mais par conrtre je n'arrive pas à l'utiliser avec excel puisque les feuilles ne sont plus affichées.

Si quelqun c'est comment utiliser la fonction getobject sous excel je suis preneur !

**leroissejp** · 07/02/2006, 12h13

Bonjour,
En réalité, la fonction GetObject fonctionne (à moitié), quand tu ouvres le fichier, Excel s'ouvre et tu ne vois pas le fichier ,tu fais Fenêtre/Afficher, et tu verras que ton fichier est bien là, tu l'affiche et tu le ferme en l'enregistrant.
Pourquoi tout ne se fais pas d'un coup avec GetObject, là ???

jpleroisse

**tinose** · 07/02/2006, 13h21

Effectivement Merci beaucoup ![/img]

**sbeaulieu** · 20/12/2020, 11h41

bonjour , voici la solution que j'ai trouvé, avant d'enregistrer votre "GetObject "
ajouter cette ligne, "Stock.xlsx correspond a votre nom de fichier

Code :

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

Windows("Stock.xlsx").Visible = True

Cdt

[VBA-E]Fonction GetObject

Macros et VBA Excel

Discussions similaires

Partager

Partager