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 : 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 '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
ou a la limite comment identifier mon fichier en fiable"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"
merci d'avance
Partager