[VBA] Problème actualisation des données

Problème actualisation des données [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 17-03-2014 à 10:07:17    

Bonjour à tous,
 
Je souhaite mettre à jour des données en réseau à l'aide d'une macro. L'ensemble de ma macro fonctionne à l'exception de la mise à jour via la commande "activeWorkbook.refreshall".
J'ai un message qui s'affiche : " Cette action va annuler l'actualisation des données. Voulez vous continuer ?"
 
Ma macro consiste à :
 - actualiser les données
 - enregistrer puis convertir fichier xlsm en xlsx
 - envoyer un mail
Tout fonctionne sauf l'actualisation des données... :pt1cable:  
 
Merci de votre aide :)  
 
Nicolas
 
Voici ma commande :

Code :
  1. Sub Macro1()
  3.     Application.DisplayAlerts = False
  4.     ActiveWorkbook.RefreshAll
  5.    ActiveWorkbook.Save
  6.     Dim wb As Workbook
  7.     Dim Fichier As String
  8.    
  9.     Fichier = ThisWorkbook.FullName                     ' fichier comprend le chemin + nom fichier avec .xlsm (FullName)
  10.    Fichier = Left(Fichier, Len(Fichier) - 4) & "xlsx"  ' remplace l'extension par .xlsx exigée dans la fileformat
  11.    With ActiveWorkbook
  12.         .SaveAs Filename:=Fichier, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False  'syntaxe trouvée à partir de l'enregistreur de macro
  13.    End With
  14.     Application.DisplayAlerts = True
  16.     End Sub
  18.     Sub envoi_mail()
  19.     Application.DisplayAlerts = False
  21.      
  22.        Dim OutApp As Object
  23.         Dim OutMail As Object
  25.         Set OutApp = CreateObject("Outlook.Application" )
  26.         Set OutMail = OutApp.CreateItem(0)
  28.         On Error Resume Next
  29.         With OutMail
  30.             .to = "nicolas@xxx.com"
  31.             .CC = ""
  32.             .BCC = ""
  33.             .Subject = "envoi fichier bilan"
  34.             .Body = "voici le fichier bilan"
  35.             .Attachments.Add ActiveWorkbook.FullName
  36.             'You can add other files also like this
  37.           '.Attachments.Add ("C:\test.txt" )
  38.           .Send   'or use .Display
  39.       End With
  40.         On Error GoTo 0
  42.         Set OutMail = Nothing
  43.         Set OutApp = Nothing
  45.    
  46. Application.Quit
  47. End Sub


 

Reply

Marsh Posté le 17-03-2014 à 10:07:17   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed