Transfert des donnees à partir d'un Userform
Résolu/Fermé
r4944
Messages postés
122
Date d'inscription
vendredi 2 octobre 2015
Statut
Membre
Dernière intervention
3 mars 2017
-
Modifié par r4944 le 14/10/2015 à 17:05
r4944 Messages postés 122 Date d'inscription vendredi 2 octobre 2015 Statut Membre Dernière intervention 3 mars 2017 - 16 oct. 2015 à 15:17
r4944 Messages postés 122 Date d'inscription vendredi 2 octobre 2015 Statut Membre Dernière intervention 3 mars 2017 - 16 oct. 2015 à 15:17
A voir également:
- Transfert des donnees à partir d'un Userform
- Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
- We transfert - Télécharger - Téléchargement & Transfert
- Comment trouver un numéro à partir du nom et prénom ✓ - Forum Mobile
- WeTransfer gratuit : envoyer des fichiers via Internet - Guide
- Trouver un numero de portable a partir d'un nom svp - Forum Internet / Réseaux sociaux
1 réponse
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
14 oct. 2015 à 19:00
14 oct. 2015 à 19:00
Bonjour,
Selection du fichier:
Selection du fichier:
Option Explicit
Option Base 1
'--------
Sub Importdata23()
Dim Source As Workbook, Dercol As Integer
Dim Nbre As Integer, Tablo, Cptr As Integer, Lig As Integer, Col As Integer
Dim CheminFichier
Application.ScreenUpdating = False
'selection fichier source
CheminFichier = Application.GetOpenFilename("Classeur Excel (*.xls*), *.xls*")
If CheminFichier = False Then 'pas de fichier
Exit Sub
Else
Set Source = Workbooks.Open(Filename:=CheminFichier)
With Sheets("Workload - Charge de travail")
Dercol = .Rows(2).Find(what:="*", searchdirection:=xlPrevious).Column
Nbre = Application.CountIf(.Columns("AP"), "XX")
ReDim Tablo(Nbre, Dercol)
Lig = 1
For Cptr = 1 To Nbre
Lig = .Columns("AP").Find("XX", .Cells(Lig, "AP"), xlValues).Row
For Col = 1 To Dercol
Tablo(Cptr, Col) = .Cells(Lig, Col)
Next Col
Next Cptr
End With
Source.Close False
Set Source = Nothing
End If
With ThisWorkbook.Sheets("Sheet1")
.Range("A2").Resize(Cptr, Dercol) = Tablo
.Activate
End With
End Sub
14 oct. 2015 à 19:39
15 oct. 2015 à 08:58
Je n'ai que mis le choix de fichier sur votre code, donc si il y erreur, laquelle et quelle ligne ??
16 oct. 2015 à 15:17
Bonne journee