Bonjour,
J'ai pour problème:
Je prend un fichier A ou j'ai qu'un onglet avec le nom de cet onglet qui varie.
je prend cet onglet et je le copie/colle dans mon fichier B ( thisworkbook) avant l'onglet ("Data")
Je test avec ça mais ça ne fonctionne pas et je ne sais pas pourquoi. je trouve ça sympa de passer par l'openfiledialog.
Si quel'qu'un à une petite idée... Merci d'avance.
Sub UseFileDialogOpen()
Dim lngCount As Long
Dim Var_Chemin$, Nomfeuille$, appExcel As Excel.Application
' Open the file dialog
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Show
' Display paths of each file selected
For lngCount = 1 To .SelectedItems.Count
Var_Chemin = .SelectedItems(lngCount)
Next lngCount
End With
Set appExcel = CreateObject(“Excel.Application”)
Set wbExcel = appExcel.Workbooks.Open(Filename:=Var_Chemin)
Nomfeuille = appExcel.Sheets(1).Name
appExcel.Sheets(Nomfeuille).Copy Before:=thisWorkbooks.Sheets("Data")
wbExcel.Close
Set wbExcel = Nothing
End Sub