Discussion :

[Airthé]

Bonjour,
Pour remplir automatiquement un tableau XL, J'ai besoin d'ouvrir des documents XL directement depuis l'intranet de mon entreprise (via vba XL) afin de faire des des copier coller de colonnes entières
Grâce à la discussion " Automatiser l'ouverture d'un fichier compatible Excel depuis le Web (téléchargement) " de ce forum je peux obtenir le fenêtre windows Ouvrir-Enregistrer-Enregistrer sous.
Ce qui m’intéresse c'est d'ouvrir le doc XL, pas passer par l'enregistrement (accès réseau trop longs)
Mon problème est que tant que ma macro est en cours d'exécution, même si je mets un wait time, l'ouverture du document XL ne peut pas se faire. Concrètement tant que le processus VBA est en fonctionnement, l'ouverture d'un nouveau doc est impossible. En dehors d'enregistrer il n'y a vraiment pas de possibilité ??
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
Sub SID_Dépenses(NumProj, LignErr, feuilleDIS, label, URLdép, IEdép, HTMLdoc, FeuilleSAP_Inter, BaseSAP, FeuilleDepRé, os(), NumOS(), NBOS)
 
    Dim SaisiNumProj As HTMLInputElement
    Dim Generic As HTMLGenericElement
    Dim Image As HTMLGenericElement
    Application.ScreenUpdating = True
    Application.StatusBar = "Ouverture et téléchargement depuis l'intranet des dépenses du projet " & NumProj & " en cours"
    NbXL = Workbooks.Count
    Application.ScreenUpdating = False
    Set feuilleDIS = ThisWorkbook.ActiveSheet
    feuilleDIS.Activate
    With IEdép
        While .Busy Or .readyState <> READYSTATE_COMPLETE: DoEvents: Wend
        Set HTMLdoc = .document
    End With
 
    Set SaisiNumProj = HTMLdoc.all("_paramsProjet")
    SaisiNumProj.Value = NumProj ' on entre le numéro de projet dans le champs dont le nom est _paramsProjet dans le codage HTML
'click sur le bouton valider à vide
    Set Generic = HTMLdoc.all("xdo:parameters")
    Set GenericStop = Generic.getElementsByClassName("button")
    Set anch = HTMLdoc.all("xdo:viewFormatLink")
    Set Image3 = anch.Children
    Set image4 = Image3(2)
    image4.Click 'affiche le menu déroulant
 
    Set HTMLdoc = IEdép.document
    Set menu3 = IEdép.document.getElementsByTagName("div")
    Set menu5 = menu3(76)
    Set Menu6 = menu5.all(0)
 
' click sur image XL
    With Menu6.all(31): .Focus: .Click: End With
    Application.Wait Now + 0.00008
    CreateObject("WScript.Shell").SendKeys "{Tab 2}~"
 
End Sub