Discussion :

[kedmard]

Bonjour,

Ce problème a peut être déja été posée, si c'est le cas je vous serais reconnaissant de bien vouloir m'indiquer le(s) lien(s) de cette discusion.


Je dispose d'une part d'un fichier access (Essai) dans laquelle j'ai une table nommée "Matable" et une requête nommée "Marequete" et dautre part j'ai
un classeur prenant en charge les macros (fichier xlsm) nommée "ficheliee".
Dans "ficheliee" j'ai la feuille "Fiche" qui est liée à la requête "Marequête" c'est-à-dire que "Fiche" affiche les résultats de "Marequête".Lorsqu'on modifie
"Marequete", à l'ouverture de "ficheliee" ces modifications sont prises en compte dans la feuille "Fiche".



J'ai ensuite saisi une macro qui envoie "ficheliee" par mail via des lignes de commandes (fichier .bat) l'envoi s'effectue sans problème mais
le souci c'est que le fichier envoyé ne contient pas les données actualisées de la feuille "Fiche" pourtant ma macro contient l'insruction
Activeworbook.save .


Pour être plus expilicite, voici ce qui se passe:

j'éxcute "Marequete" j'ai ma liste de 10 joueurs, j'enregistre et je ferme access. J'ouvre ensuite "ficheliee" , j'ai la même liste de 10 joueurs dans la feuille
"Fiche" j'enregistre et je ferme .
J'exécute à nouveau "Marequete" en affichant que les joueurs dont le nom commence par R ==> j'ai donc 3 joueurs: Ribery Rooney et Ronaldo (voir PJ) j'enregistre je ferme access
lorsque je lance la ligne de commande qui envoie le fichier "ficheliee" mes destinataires reçoivent un fichier qui contient tous les joueurs au lieu des 3 précités.
La question est donc comment faire en sorte que le fichier envoyée soit actualisée?



Pour plus de détails je vous joints mes deux fichiers .


Merci pour votre aide.

[Daniel.C]

Bonjour,

Tu pourrais faire un copier coller valeurs + Formats dans un nouveau classeur.

[kedmard]

Salut Daniel.C, merci pour l'attention que tu portes à mon problème;

aurais-tu une syntaxe pour m'éclaircir ton idée ?

Merci

A+

[Daniel.C]

Bonjour,

La macro suivante crée un classeur nommé "fichier.xlsx" dans le dossier "c:\temp". Le classeur précédent est supprimé.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
    Dim Ligne As Long
    Workbooks.Add 1
    Ligne = Cells(Rows.Count, 1).End(xlUp).Row
    ThisWorkbook.Sheets("Fiche").Range("A7", Cells(Ligne, 5)).Copy
    ActiveSheet.[A7].PasteSpecial xlPasteValues
    ActiveSheet.[A7].PasteSpecial xlPasteFormats
    On Error Resume Next
    Kill "C:\temp\fichier.xlsx"
    On Error GoTo 0
    ActiveWorkbook.SaveAs "C:\temp\fichier", xlOpenXMLWorkbook
    MsgBox "fichier pour envoi ""fichier.xlsx"" créé dan le dossier ""c:\temp"""
End Sub

[kedmard]

Salut Daniel.C,

Le bouton de commande marche merci, mais il un petit souci j'ai mis une procédure Sub (sub passage) à la place du bouton pour ensuite l'éxécuter depuis ma ligne de commande:

Code :

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

"C:\Program Files\Microsoft Office\Office12\EXCEL.exe" /cmd/passage "D:\PJ\ficheliee.xlsm"

Mais là j'obtien une erreur :'Erreur 1004' impossible d'éxécuter la macro passage. Il est possible qu'elle ne soit pas disponible dans ce classeur ou que toute les macros soient désactivées. alors que mon dossier est un espace approuvé.


et le debogage me renvoit sur cette ligne

Code :

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

  Application.Run Mid(monparam(1), 2, Len(monparam(1)) - 3)

de ma procédure Workbook_open (voir Thisworbook) avec le message :

"Impossible d'éxécuter le code en mode arrêt"


Je suis donc à nouveau coincé car le but final est d'automiser l'envoi par mail la copie créée.

Je continue donc à cherhcer

En tout cas merci pour ton aide

[Daniel.C]

Quel est ton logiciel de messagerie ? Je ne comprends par le pourquoi de tes lignes de commande.

[kedmard]

La tâche sera devra être éxécutée par un serveur de traitement à des heures tardives (heure où je suis absent ) d'où l'intérêt des lignes de commandes.

[Daniel.C]

J'avoue ne pas être un spécialiste des lignes de commande. Deux pistes peut-être :
1. le gestionnaire de tâches Windows
2. Si ton classeur est ouvert, l'utilisation de "OnTime" pour déclencher la macro.

[kedmard]

Salut Daniel.C,


Un ami m'a conseiller de décocher l'option "Activer l'actualisation en arrière plan " dans mon fichier xlsm en de raffraichir les données avec

Thisworkbook.RefreshAll et enregistrer le classeur juste après .

Donc en gros ma macro ressemble à quelque chose du genre:

Code :

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

1
2
3
4
5
6
Sub Mamacro()
Thisworkbook.RefreshAll
Activeworkbook.save
Call EnvoieMail
Application.Quit
End sub

ma ligne de commande exécute ensuite la macro Mamacro ,et ça marche .

Merci en tout cas pour ton aide .

A bientôt.

[Daniel.C]

OK, Merci pour le retour.