|
|
Bonjour à tous, je commence la programmation en vba dans le cadre de mon apprentissage en entreprise...
J'utilise principalement access, language vba et SQL.
Voici mes lignes de code pour exporter mes 2 requêtes d'un même projet access vers excel mais dans 2 onglets différents, or je voudrais pouvoir les exporter dans un onglet unique.
Private Sub Commande68_Click()
Dim oApp As Excel.Application
Dim oClasseur As Excel.Workbook
Dim oFeuille As Excel.Worksheet
Dim oCell As Excel.Range
Dim i As Integer
'nom par défaut
Application.FileDialog(msoFileDialogFilePicker).InitialFileName = "blabla.xls"
'boite de dialogue sauvegarder
Application.FileDialog(msoFileDialogSaveAs).Show
Dim Chemin01 As String
'chemin d'accès à l'enregistremnt
Chemin01 = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)
'exporter requête_calcul
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "RequêteCalcul", Chemin01, False, "calcul"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Req_totaux", Chemin01, False, "totaux"
'ouvrir le fichier excel
Set oApp = CreateObject("Excel.Application")
Set oClasseur = oApp.Workbooks.Open(Chemin01)
'Sélectionne la première feuille
Set oFeuille = oClasseur.Worksheets(1)
oApp.Visible = True
'Parcours les cellules de la première ligne
i = 1
While oFeuille.Cells(1, i).Value <> ""
Set oCell = oFeuille.Cells(1, i)
i = i + 1
'Ajuster la taille des colonnes au texte
oCell.EntireColumn.AutoFit
Wend
'Selectionne la deuxieme feuille
Set oFeuille = oClasseur.Worksheets(2)
oApp.Visible = True
'Parcours les cellules de la première ligne
i = 1
While oFeuille.Cells(1, i).Value <> ""
Set oCell = oFeuille.Cells(1, i)
i = i + 1
'Ajuster la taille des colonnes au texte
oCell.EntireColumn.AutoFit
Wend
Set oApp = Nothing
Set oClasseur = Nothing
'Only XL 97 supports UserControl Property
On Error Resume Next
oApp.UserControl = True
End Sub
Mon code est fonctionnel mais ne répond pas à ce que je veux faire.
Merci de votre aide
|
1
