XL 2019 Actualisation d'un fichier excel sans l'ouvrir

[Thomas10m]

Bonjour à tous,

Je cherche à actualiser un fichier excel sans l'ouvrir. Mon but était d'automatiser complètement une campagne de relance par mail. J'ai commencé par prendre des données de mon entreprise par Power Query, que j'ai mise sur un fichier excel. Ensuite j'ai mis des formules et des filtres spécifiques pour mes envoies de mails. Puis j'ai créé un flux sur Power Automate pour que ma campagne de relance soit automatique. La seule chose que je n'ai pas rendu automatique est l'actualisation de mes données excel sans ouvrir un fichier.
Quelqu'un sait comment actualiser un fichier excel sans l'ouvrir?

Dans l'attente d'une réponse.

Cordialement,

Thomas

 

[sylvanu]

Bonjour Thomas, et bienvenu sur XLD,
Regardez ces liens :

Lire et écrire dans les classeurs Excel fermés

Lire et écrire dans les classeurs Excel fermés

silkyroad.developpez.com

VBA Excel mise à jour fichier sans l'ouvrir

Meilleure réponse: Bonjour, Tu peux utiliser une connexion ADO pour lire ou ecrire dans un fichier Excel fermé. Sub ADOcnx_XL_Close() 'Cochez la ligne "Microsoft ActiveX Data Objects x.x Library". 'dans Outils > Références... ...

forums.commentcamarche.net

Le plus simple est de figer l'écran par un "Application.ScreenUpdating = false" d'ouvrir le fichier, le modifier, l'enregistrer et le fermer.
C'est invisible et rapide.

 

[Thomas10m]

Bonjour,
Merci de votre réponse.
J'ai déja vu ces deux forums auparavant mais je n'ai pas réussi à utiliser leurs conseils.
Comment je dois faire pour utiliser votre méthode car je ne maitrise pas trop le VBA.

 

[sylvanu]

car je ne maitrise pas trop le VBA.

Un ex simple en PJ où s'est détaillé, avec en VBA :

Sub ModifierFichier()
    Application.ScreenUpdating = False                      ' Fige l'écran
    NomFichier = [C3] & [C4]                                ' Construction du chemin du fichier concerné
    Feuille = [C5]                                          ' Nom de la feuille à modifier
    Addresse = [C6]                                         ' Adresse de la cellule à modifier
    Valeur = [C7]                                           ' Valeur à écrire
    Workbooks.Open NomFichier                               ' Ouvre le fichier
    ActiveWorkbook.Sheets(Feuille).Range(Addresse) = Valeur ' Ecrit la valeur à l'adresse indiquée
    ActiveWorkbook.Close SaveChanges:=True                  ' Ferme le fichier en enregistrant.
End Sub

Evidemment optimisable suivant votre appli, le nombre d'écriture à effectuer ....

 

[Thomas10m]

Merci de ton aide, j'ai essayé, cela ne marche pas dès la premiere ligne.

 

[sylvanu]

Evidemment, la ligne en rouge est incompréhensible en VBA.
D'abord cela doit être une chaine de caractères, donc commençant et finissant par ".
Ensuite il faut lui dire ce que c'est, par exemple Chemin=" ....... "

Pourquoi, en premier, ne pas tester ma PJ ? Ce serait plus simple, surtout si vous ne maitrisez pas le VBA.
Vous renseignez les cellules C3 à C7 puis appuyez sur le bouton.
Ensuite, si vous voulez que tout se passe en VBA, testez cette PJ. Il faut modifier la première partie

Sub ModifierFichier()
'--------------------------------------------------------------------------------------------------------------------
' Partie à modifier
    NomFichier = "C:\Users\PC_PAPA\OneDrive\Classeur_à_modifier.xlsx"   ' Modifiez chemin et nom fichier
    Feuille = "Feuil1"                                                  ' Modifiez la feuille à modifier
    Addresse = "A1"                                                     ' Modifiez l'Adresse de la cellule à modifier
    Valeur = 123456789                                                  ' Modifiez Valeur à écrire
'--------------------------------------------------------------------------------------------------------------------
    Application.ScreenUpdating = False                                  ' Fige l'écran
    Workbooks.Open NomFichier                                           ' Ouvre le fichier
    ActiveWorkbook.Sheets(Feuille).Range(Addresse) = Valeur             ' Ecrit la valeur à l'adresse indiquée
    ActiveWorkbook.Close SaveChanges:=True                              ' Ferme le fichier en enregistrant.
End Sub

 

[Thomas10m]

Désolé mais je ne comprends pas la différence entre PJ et VBA.

 

[sylvanu]

PJ : Pièce jointe, c'est le fichier que je vous ai fourni. Maudits acronymes. 🙂
VBA : C'est le langage utilisé.

 

[Thomas10m]

D'accord 😄
Merci de ton aide mais je n'y arrive pas. Je vais continuer de le faire manuellement.