Discussion :

[bagheria85]

Pour continuer ma réflexion, je veux importer un onglet d'un classeur excel dans mon propre classeur.
J'ai un code VBA ci dessous qui finalement m'autorise juste à aller chercher le classeur et l'onglet désiré. Or il s'agit toujours du même classeur et du même onglet tous les matins. Donc j'aimerais qu'il le fasse automatiquement sans avoir besoin de le sélectionner à chaque fois. Comment faire svp? Quel code intégrer?
Merci

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
22
23
24
25
Sub ImportDatafromcloseworkbook()
'Update 20150707
Dim xWb As Workbook
Dim xAddWb As Workbook
Dim xRng1 As Range
Dim xRng2 As Range
Set xWb = Application.ActiveWorkbook
xTitleId = "KutoolsforExcel"
With Application.FileDialog(msoFileDialogOpen)
    .Filters.Clear
    .Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa"
    .AllowMultiSelect = False
    .Show
    If .SelectedItems.Count > 0 Then
        Application.Workbooks.Open .SelectedItems(1)
        Set xAddWb = Application.ActiveWorkbook
        Set xRng1 = Application.InputBox(prompt:="Select source range", Title:=xTitleId, Default:="A1", Type:=8)
        xWb.Activate
        Set xRng2 = Application.InputBox(prompt:="Select destination cell", Title:=xTitleId, Default:="A1", Type:=8)
        xRng1.Copy xRng2
        xRng2.CurrentRegion.EntireColumn.AutoFit
        xAddWb.Close False
    End If
End With
End Sub

[Menhir]

Tu supprimes la partie qui appelle la boite de dialogue.

Code :

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

1
2
3
4
5
6
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa"
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then

Ainsi que les End If et End With correspondant, bien sûr.

Et dans ton Workbooks.Open tu remplaces item sélectionné par le nom de ton fichier avec son chemin.