poupinet48
-
19 févr. 2013 à 12:37
jordane45
Messages postés38112Date d'inscriptionmercredi 22 octobre 2003StatutModérateurDernière intervention29 mars 2024
-
19 févr. 2013 à 15:43
Bonjour,
Petit PB sur le "With ActiveSheet.QueryTable.Add" qui plante... car débutant, je ne connait pas la syntaxe. Merci pour votre aide.
'On créer l'objet Excel
Set xlApp = CreateObject("Excel.Application")
'On défini le nombre d'onglets (ici 1)
xlApp.SheetsInNewWorkbook = 1
'On ajoute un classeur
Set xlBook = xlApp.Workbooks.Add
'On rend le classeur visible
xlApp.Visible = True
'On créer l'objet onglet dans le nouveau classeur créé
Set xlSheet = xlBook.Worksheets(1)
'On affecte un nom aux l'onglets
xlSheet.Name = Left(nom, 10) + Mid(nom, 16, 4) + "_" + Mid(nom, 20, 2)
xlSheet.Visible = True
xlSheet.Range("A1") = "azerty"