manipulation de excel depuis vdRésolu

Question

bonjour &#224; tous 

voila je veut imprimer une mshflexgrid et pour &#231;a  je passe par Excel 
jusque  la pas de probl&#232;me.

mais quelles sont les commandes pour :
- d&#233;finir la taille d'une colonne (largeur)
- r&#233;pondre non a la question "voulez vous enregistrer les modification apporte a 'classeur1'"
- que le travaille s'effectue en arri&#232;re plan (ou pas )

merci &#224; tous pour votre aide

FmcVieira

valtrase · Accepted Answer

Re re
Suis fatigu&#233; en ce moment .......LOL
Sheet.Columns(1 + 3)..ColumnWidth = ....... 

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

valtrase · Answer

Salut,

 Pour la largeur des colonne ici la colonne 1 ou A 
Feuil1.Columns( 1 ).Width = 50 


' Et pour &#233;viter les messages d'alertes pour l'enregistrement 


' Le remettre &#224; true en fin d'impression 


Application.DisplayAlerts = False 



Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

fmcvieira · Answer

Merci pour ton aide Jean-paul
mais ca ne marche pas je ne c'est pas pourquoi mais &#231;a ne marche pas 

j'ai tjr le m&#234;me message "Voulez-vous enregistrer les modifications apport&#233;es &#224; 'classeur1'
m&#234;me avec Application.DisplayAlerts = False 

et la commande  : Sheet.Columns(1 + 3).Width = 10
me donne une erreur 1004
"impossible de definnir la propri&#233;t&#233; width de la classe range"

voici mon code 
en bref j'essaie je passe ma grid dans excel et j'imprime

Private Sub Command2_Click()
Dim i, j As Integer


Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel


'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")


'Ajout d'un classeur car &#224; l'ouverture d'Excel il n'y a aucun classeur d'ouvert
appExcel.Workbooks.Add 'Ceci n'est n&#233;cessaire que si vous n'ouvrez pas un fichier existant


'R&#233;cup&#233;ration du classeur par d&#233;faut
Set wbExcel = appExcel.ActiveWorkbook


'R&#233;cup&#233;ration de la feuille par d&#233;faut
Set wsExcel = wbExcel.ActiveSheet
Set Sheet = appExcel.ActiveWorkbook.ActiveSheet


 


Application.DisplayAlerts = True


 


For i = 0 To Text1.Text - 1
 For j = 0 To Text1.Text - 1
  Sheet.Cells(i + 3, j + 3).Value = Grid.TextMatrix(i, j)
  
  
  'mise en forme de la page
  Sheet.Cells(i + 3, j + 3).HorizontalAlignment = xlCenter
  Sheet.Cells(i + 3, j + 3).Borders(xlEdgeTop).LineStyle = xlContinuous
  Sheet.Cells(i + 3, j + 3).Borders(xlEdgeTop).Weight = xlThin
  Sheet.Cells(i + 3, j + 3).Borders(xlEdgeTop).ColorIndex = xlAutomatic
  Sheet.Cells(i + 3, j + 3).Borders(xlEdgeBottom).LineStyle = xlContinuous
  Sheet.Cells(i + 3, j + 3).Borders(xlEdgeBottom).Weight = xlThin
  Sheet.Cells(i + 3, j + 3).Borders(xlEdgeBottom).ColorIndex = xlAutomatic
  Sheet.Cells(i + 3, j + 3).Borders(xlEdgeLeft).LineStyle = xlContinuous
  Sheet.Cells(i + 3, j + 3).Borders(xlEdgeLeft).Weight = xlThin
  Sheet.Cells(i + 3, j + 3).Borders(xlEdgeLeft).ColorIndex = xlAutomatic
  Sheet.Cells(i + 3, j + 3).Borders(xlEdgeRight).LineStyle = xlContinuous
  Sheet.Cells(i + 3, j + 3).Borders(xlEdgeRight).Weight = xlThin
  Sheet.Cells(i + 3, j + 3).Borders(xlEdgeRight).ColorIndex = xlAutomatic


'Sheet.Column(1 + 3).Width = 10


 Next j
Next i


appExcel.ActiveWindow.SelectedSheets.PrintOut Copies:=1



'Private Sub Command1_Click()
'Printer.PaintPicture MSFlexGrid1.Picture, 10, 12
'Printer.EndDoc
'end sub


'Sheet.PrintOut


 


 


 


wbExcel.Close 'Fermeture du classeur Excel
appExcel.Quit 'Fermeture de l'application Excel


'D&#233;sallocation m&#233;moire
Set wsExcel = Nothing
Set wbExcel = Nothing
Set appExcel = Nothing
End Sub

valtrase · Answer

Re,
Autant pour moi, pour excel la commande c'est 
ThisWorkbook.Saved = True
En fait tu dis &#224; excel qu'il n'y a pas eu de changement
L'autre code te sert en cas de prog si tu ne veux pas de message d'alerte

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

fmcvieira · Answer

Voila &#231;a marche 

Encore merci pour ton aide

Manipulation de excel depuis vd

5 réponses

Discussions similaires