Discussion :

[Michel-philippines]

Bonjour, (code en fin de texte)

J'ai un probleme pour detruire des connexions Excel apres chargement des données dans mon classeur maitre dans des feuilles distinctes.
Les fichiers sources sont des CSV dont j'ai réaliser le chargement par l'enregistreur de macro.

je voudrais :
1 - charger les sources dans des feuilles distinctes (ça fonctionne)
2 - les renommer immédiatement les feuilles (ça fonctionne)
3 - éliminer les connexions pour les rendre disponibles ( LA EST LE PROBLEME, en suivant pas à pas je vois bien que ma boucle fonctionne mais il n'y a aucune déconnection effective !!!!)
4 - faire mes traitements
5 - detruire mes feuilles

Quand je relance mon traitement, Excel me dis des le premier fichier que la connexion est déjà existante ???

Si je regarde la fenetre statut je vois bien les 2 connexions
Si j'ouvre le pop up des connexion existante .... il n'y a rien

Pouvez vous me dire où se trouve mon erreur ?

D'avance merci

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
Sub Transport()
Dim Num_Feuille                 As String
Dim cn                          As WorkbookConnection
' ============================================================== chargement des données sources
'--------------------------------------------------------------- chargement Fournisseur
    ActiveWorkbook.Queries.Add Name:="request_sql_15", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Csv.Document(File.Contents(""E:\OneDrive\Mister-gadgets\000000 Developpement\Fichiers source\Fichiers import site\request_sql_15.csv""),[Delimiter="";"", Columns=5, Encoding=1252, QuoteStyle=QuoteStyle.None])," & Chr(13) & "" & Chr(10) & "    #""En-têtes promus"" = Table.PromoteHeaders(Source, [PromoteAllScalars=true])," & Chr(13) & "" & Chr(10) & "    #""Type modifié"" = Table.TransformColumnTypes(#""E" & _
        "n-têtes promus"",{{""id_supplier"", Int64.Type}, {""name"", type text}, {""date_add"", type datetime}, {""date_upd"", type datetime}, {""active"", Int64.Type}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Type modifié"""
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=request_sql_15;Extended Properties=""""" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [request_sql_15]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "request_sql_15"
        .Refresh BackgroundQuery:=False
    End With
'-------------------------------------------------------------- affectation nom feuille
    Num_Feuille = ActiveSheet.Name
    Sheets(Num_Feuille).Name = "Fournisseur"
'-----------------------------------------------------------------Transporteur
    ActiveWorkbook.Queries.Add Name:="request_sql_16", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Csv.Document(File.Contents(""E:\OneDrive\Mister-gadgets\000000 Developpement\Fichiers source\Fichiers import site\request_sql_16.csv""),[Delimiter="";"", Columns=25, Encoding=1252, QuoteStyle=QuoteStyle.None])," & Chr(13) & "" & Chr(10) & "    #""En-têtes promus"" = Table.PromoteHeaders(Source, [PromoteAllScalars=true])," & Chr(13) & "" & Chr(10) & "    #""Type modifié"" = Table.TransformColumnTypes(#""" & _
        "En-têtes promus"",{{""id_carrier"", Int64.Type}, {""id_reference"", Int64.Type}, {""id_tax_rules_group"", Int64.Type}, {""name"", type text}, {""url"", type text}, {""active"", Int64.Type}, {""deleted"", Int64.Type}, {""shipping_handling"", Int64.Type}, {""range_behavior"", Int64.Type}, {""is_module"", Int64.Type}, {""is_free"", Int64.Type}, {""shipping_external"", " & _
        "Int64.Type}, {""need_range"", Int64.Type}, {""external_module_name"", type text}, {""shipping_method"", Int64.Type}, {""position"", Int64.Type}, {""max_width"", Int64.Type}, {""max_height"", Int64.Type}, {""max_depth"", Int64.Type}, {""max_weight"", type text}, {""grade"", Int64.Type}, {""date_import"", type datetime}, {""id_shop"", Int64.Type}, {""id_lang"", Int64." & _
        "Type}, {""delay"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Type modifié"""
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=request_sql_16;Extended Properties=""""" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [request_sql_16]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "request_sql_16"
        .Refresh BackgroundQuery:=False
    End With
'-------------------------------------------------------------- affectation nom feuille
    Num_Feuille = ActiveSheet.Name
    Sheets(Num_Feuille).Name = "Transporteur"
'----------------------------------------------------------------- destruction des connexions
    For Each cn In ActiveWorkbook.Connections
       cn.Delete
    Next cn
'==============================================Traitement
'----------------------------------------------------------------- destruction des feuilles de travail
    Sheets(F_Fournisseur).Select
    ActiveWindow.SelectedSheets.Delete
    Sheets(F_Transporteur).Select
    ActiveWindow.SelectedSheets.Delete
End Sub

[Alex020181]

et avec ste cn = nothing ?

[Michel-philippines]

et avec ste cn = nothing ?

Désolé mais je ne comprends pas
j ai remplacer cn.Delete par cn = nothing et j'ai une erreur de compilation "utilisation in correct de l'objet"

J ai rajouté un SET cn = nothing la compliation passe mais pas de changement meme resultats les connexions existent toujours

[Pierre Fauconnier]

Salut

Ceci?

Code :

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

1
2
3
  Do While ThisWorkbook.Queries.Count > 0
    ThisWorkbook.Queries(1).Delete
  Loop

Set cn = Nothing est utile pour vider la variable objet en VBA, mais ça n'impacte pas l'objet lui-même. c'est juste une vidange de la mémoire qui n'a aucune incidence sur le classeur et ses objets.

[Michel-philippines]

[...]

désolé de repondre tardivement mais je n'étais pas disponible.

Comme toujours MERCI PIERRE tu es toujours d'une grande aide et la reponse semble tellement évidente.

Je suppose que c'est valable qu'elle que soit la connexion ou le type de fichier, car j'ai des csv mais aussi des xml a gérer les uns apres les autres et des limitations de mémoires disponibles donc je dois faire le nettoyages en cours de route.

Anecdote ça me rajeunit, quand j'étais programmeur il y a +30 ans sur un mini ordinateur Wang 2000 en basic et que je développais une appli pour des ordi de bureau en réseau sur le wang avec une partition de 24 k et que j'ai du charger en overlay les morceaux de programmes et les données , oui les p'tit jeunots 24k de memoire disponible et moi en tant que developpeur j'avais droit a 28 k lollll

[Pierre Fauconnier]

[...]
Je suppose que c'est valable qu'elle que soit la connexion ou le type de fichier, car j'ai des csv mais aussi des xml a gérer les uns apres les autres et des limitations de mémoires disponibles donc je dois faire le nettoyages en cours de route.[...]

Oui, ça fonctionne pour les connexions du classeur, le type de données auxquelles on se connecte n'entre pas en ligne de compte ici.

[Michel-philippines]

Merci beaucoup

[Thumb down]

Bonjour Michel et bonjour Pierre,

Il pourrait être judicieux de rechercher la connexion à supprimer au cas où il y en aurait plusieurs !
Name:="request_sql_15"

[Pierre Fauconnier]

Salut Thumb

Au point 3 de la question initiale, Michel demande de supprimer les connexions, pas une connexion particulière, c'est pourquoi j'ai proposé une boucle (que je viens de modifier dans ma réponse)

[Thumb down]

C'est vrai tu as raison.

[Gluups]

Bonjour,
Quel est l'avantage de Connexion.Delete sur Connexion.Close ?

[Pierre Fauconnier]

Salut.

Connection.Close ferme une connexion ouverte, mais laisse la connexion disponible pour un Refresh.

Connection.Delete supprime la connexion, ne laissant que les données récupérées au dernier Refresh. Ca permet de transmettre le classeur sans connexions, et donc sans laisser de traces de cette connexion (notamment le mot de passe éventuel, la chaine de connexion, etc...)

[Gluups]

OK, merci.
Alors donc, on peut taper Delete sans Close ?

[Pierre Fauconnier]

Les deux ne sont pas liés. Delete supprime la connexion qui est un élément de la collection des connexions. Close ferme le canal entre Excel et les données externes.

Dans une connexion de classeur, la connexion est ouverte le temps du Refresh. Donc dans le code donné initialement, la connexion est fermée au moment de sa suppression, puisque la mise à jour en arrière plan est désactivée. Le code attend donc la fin de mise à jour puis ferme la connexion avant que celle-ci soit supprimée par Delete. On n'est pas ici dans le cas d'une connexion de type ADODB gérée par le code, et dans ce cas, la connexion adodb ne serait pas présente dans la collection des connexions du classeur et on ne saurait donc pas lui appliquer la méthode Delete...

[Gluups]

Merci, en effet c'était bien une expérience sur ADODB qui me faisait poser la question.
Si ça s'appliquait ça aurait été dommage de le louper, bon raté.