comment faire disparaitre automatiquement l'initialisation Activex
bonjour,
mon dernier sujet n'ayant pas trouver de solution je me suis penché sur une solution alternative ^^
les fonctions en commentaire c'est normal je suis en plein test alors je les met en commentaire si ma nouvelle idee est pas mieux
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| 'Exporte la feuille "html" dans un autre fichier au format ".htm"
Nom = "vitesse_ligne"
Filename = Nom
'Application.Workbooks.Add
'ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range("D1:D5")
Application.DisplayAlerts = False
DoEvents
Application.Workbooks.Open ("C:\Documents and Settings\vlemairl\Bureau\modele_plateau.xls")
'ThisWorkbook.Sheets("Base de données").Range("A:H").Copy
'Workbooks("modele_plateau").Paste Destination:=Worksheets("Base de données").Range("A:H")
ThisWorkbook.Sheets("Base de données").Range("A:H").Cells.Copy Workbooks("modele_plateau").Worksheets("Base de données").Range("A:H")
DoEvents
DoEvents
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="C:\" & Filename, FileFormat:=xlHtml
DoEvents
ActiveWorkbook.Close
DoEvents
Application.DisplayAlerts = True
DoEvents |
cependant il me reste un probleme plus simple
comment en vba repondre oui a cette fenetre
Citation:
"cette appication est sur le point d'initialisé les controle activeX potentionellement nonsur.Si la source de fichier est fiable,cliquer ok pour que les controle soit initialisé a l'aide des parametre d'espace de travail en cour"
ou a la limite comment identifier mon fichier en fiable
merci d'avance