danilovitch
XLDnaute Nouveau
Bonjour.
Je suis encore un petit nouveau dans le code vba.
Alors dans le cadre de mon stage j'ai ecris une macro me permettant d'importer un fichier excel.
cependant il ne s'execute pas.
Besoin de votre aide.
Voici le code :
Sub ChargementDonneesTel()
'Application.Dialogs(xlDialogOpen).Show
'nomfich = Application.GetOpenFilename
'If nomfich = False Then Exit Sub
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim wbkF As Workbook
Dim wbSource As Workbook
Dim vFichiers As Variant
Dim rg, montantMax As Long
Dim temp, temp1, nbTranche, nColumn As Integer
temp = 0
Set wbkF = ThisWorkbook
vFichiers = Selectionner_Fichiers("Sélectionner les fichiers à compiler")
' --- Vérifier qu'au moins un fichier à été sélectionné
If Not IsArray(vFichiers) Then
' Debug.Print "Aucun fichier sélectionné."
MsgBox "Erreur! Aucun/Mauvais fichier sélectionné."
Exit Sub
End If
On Error Resume Next
' deleteFeuille ("Feuil3")
For k = 1 To UBound(vFichiers)
'Application.StatusBar = ">> Lecture du fichier #" & k & "/" & UBound(vFichiers)
'on ouvre le fichier
Set wbSource = Workbooks.Open(vFichiers(k))
wbkF.Sheets("Feuil1").Activate
Range("A2:L1048576").ClearContents
For Each ws In wbSource.Worksheets
'If ws.Name = "Feuil3" Then
Application.ScreenUpdating = False
ws.Activate
Range("A1:" & [A1].SpecialCells(xlCellTypeLastCell).Address).Copy
wbkF.Sheets("Feuil1").Activate
'Range("A2:L2").ClearContents
Range("A2").End(xlUp).Offset(0, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
' temp = 1
' End If
' If temp = 1 Then
' Exit For
' End If
Next ws
wbSource.Close savechanges:=False 'fermer fichier
Set wbSource = Nothing
Next k
wbkF.Sheets("Feuil1").Activate
ActiveWorkbook.RefreshAll
MsgBox ("Opération Terminée ")
End Sub
Je suis encore un petit nouveau dans le code vba.
Alors dans le cadre de mon stage j'ai ecris une macro me permettant d'importer un fichier excel.
cependant il ne s'execute pas.
Besoin de votre aide.
Voici le code :
Sub ChargementDonneesTel()
'Application.Dialogs(xlDialogOpen).Show
'nomfich = Application.GetOpenFilename
'If nomfich = False Then Exit Sub
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim wbkF As Workbook
Dim wbSource As Workbook
Dim vFichiers As Variant
Dim rg, montantMax As Long
Dim temp, temp1, nbTranche, nColumn As Integer
temp = 0
Set wbkF = ThisWorkbook
vFichiers = Selectionner_Fichiers("Sélectionner les fichiers à compiler")
' --- Vérifier qu'au moins un fichier à été sélectionné
If Not IsArray(vFichiers) Then
' Debug.Print "Aucun fichier sélectionné."
MsgBox "Erreur! Aucun/Mauvais fichier sélectionné."
Exit Sub
End If
On Error Resume Next
' deleteFeuille ("Feuil3")
For k = 1 To UBound(vFichiers)
'Application.StatusBar = ">> Lecture du fichier #" & k & "/" & UBound(vFichiers)
'on ouvre le fichier
Set wbSource = Workbooks.Open(vFichiers(k))
wbkF.Sheets("Feuil1").Activate
Range("A2:L1048576").ClearContents
For Each ws In wbSource.Worksheets
'If ws.Name = "Feuil3" Then
Application.ScreenUpdating = False
ws.Activate
Range("A1:" & [A1].SpecialCells(xlCellTypeLastCell).Address).Copy
wbkF.Sheets("Feuil1").Activate
'Range("A2:L2").ClearContents
Range("A2").End(xlUp).Offset(0, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
' temp = 1
' End If
' If temp = 1 Then
' Exit For
' End If
Next ws
wbSource.Close savechanges:=False 'fermer fichier
Set wbSource = Nothing
Next k
wbkF.Sheets("Feuil1").Activate
ActiveWorkbook.RefreshAll
MsgBox ("Opération Terminée ")
End Sub