Sub OuvreExcel()
Dim a As Variant, nom As String
Dim ws As Worksheet
nom = ActiveWorkbook.Name
ChDrive "C:" ' Choix du lecteur
ChDir "C:" 'Choix du répertoire
a = Application.GetOpenFilename("(*.xlsx), *.xlsx,(*.xls), *.xls", _
, "Sélection de vos fichiers excel", , True)
'active la feuille à importer les données
Sheets("Feuil1").Activate
Select Case TypeName(a)
Case Is = "Boolean"
Exit Sub
Case Else
For b = LBound(a) To UBound(a)
Workbooks.Open a(b)
Next
End Select
Nom2 = ActiveWorkbook.Name
Cells.Select
Selection.Copy
Windows(nom).Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Windows(Nom2).Close
End Sub
MkDir chem_dat & "" & numind_dvaff FileCopy chem_out & "" & repert_aff & "" & fich_aff, chem_dat & "" & numind_dvaff & "" & fich_aff Workbooks.Open Filename:=chem_dat & "" & numind_dvaff & "" & fich_aff
& "" &...
MkDir chem_dat & "\" & numind_dvaff FileCopy chem_out & "\"& repert_aff & "\"& fich_aff, chem_dat & "\"& numind_dvaff & "\"& fich_aff Workbooks.Open Filename:=chem_dat & "\"& numind_dvaff & "\" & fich_aff
Workbooks.Open(myFile)
Workbooks.Open Filename:=myFile
myFile = chem_dat & "\" &numind_dvaff & "\" & fich_aff debug.print myFile If Dir(myFile)="" then MsgBox "Erreur : Le fichier n'existe pas" else 'Workbooks.Open Filename:=myFile Workbooks.Open(myFile) End If
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question