Discussion :

[magicbisous-nours]

Bonjour,

je dois écrire une application en VB.Net (windows form) qui, entre autre, doit faire des copier/coller dans des fichier Excel.
Pour l'instant j'ai fait ceci :

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
 
Dim appXlsTarif As xls.Application
Dim sheetXlsTarif As xls.Worksheet
[...]
' Ouverture d'Excel pour le fichier Tarif
appXlsTarif = New xls.Application
' On cache la fenêtre d'Excel
appXlsTarif.Visible = False
' Ouverture du fichier Tarif
appXlsTarif.Workbooks.Open(txtFichierTarif.Text) ' txtFichierTarif.Text est la valeur d'un champ texte saisi par l'utilisateur
[...]
sheetXlsTarif.Activate()
sheetXlsTarif.Rows(35).Copy()
sheetXlsTarif.Range("A" & Convert.ToString(numeroLigneTarif) & ":BK" & Convert.ToString(numeroLigneTarif)).Select() ' numeroLigneTarif est un entier représentant le numéro de la ligne dans laquelle on doit coller les valeur copiées
sheetXlsTarif.Paste()

Cela fonctionne pas trop mal... Sauf que lorsque le programme arrive sur l'instruction sheetXlsTarif.Paste(), j'ai une boîte de dialogue identique à celles qui s'ouvrent lorsque l'on souhaite ouvrir ou enregistrer un fichier. Si j'annule sur cette boîte de dialogue, tout se passe comme je le souhaite.
J'aimerais cependant que l'utilisateur n'ait pas cette boîte de dialogue. Est-ce possible ? Et si oui, comment ?

Merci d'avance.

[magicbisous-nours]

Bon, j'ai contourné le problème en créant une procédure qui affecte à chaque cellule de la ligne la valeur se trouvant dans la cellule de la même colonne sur la ligne à copier.
Exemple pour copier la ligne 35 en ligne 1725 (je ne vais mettre que pour la première colonne, le reste étant du copier/coller) :

Code :

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

xlsSheet.Range("A1725").Value = xlsSheet.Range("A35").Value