Importer feuille excel d'un classeur à cibler
Fermé
garf421
Messages postés
3
Date d'inscription
lundi 28 novembre 2011
Statut
Membre
Dernière intervention
29 novembre 2011
-
28 nov. 2011 à 14:15
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 29 nov. 2011 à 11:17
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 29 nov. 2011 à 11:17
A voir également:
- Importer feuille excel dans un autre classeur
- Liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne dans une cellule excel - Guide
2 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
29 nov. 2011 à 09:01
29 nov. 2011 à 09:01
Salut,
Petites précisions complémentaires :
d'importer depuis le classeur 2 toute les données d'une feuille
La plage des donénes est fixe? toujours la même? laquelle?
Petites précisions complémentaires :
d'importer depuis le classeur 2 toute les données d'une feuille
La plage des donénes est fixe? toujours la même? laquelle?
garf421
Messages postés
3
Date d'inscription
lundi 28 novembre 2011
Statut
Membre
Dernière intervention
29 novembre 2011
29 nov. 2011 à 10:03
29 nov. 2011 à 10:03
Dans cette feuille le nombre de colonne est fixe par contre le nombre de ligne dépend du nombre d'élèves par exemple.
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
29 nov. 2011 à 10:16
29 nov. 2011 à 10:16
Alors :
1- Combien de colonnes et à partir de laquelle? (exemple 6 colonnes de A à F)
2- Qu'elle colonne est la plus longue?
1- Combien de colonnes et à partir de laquelle? (exemple 6 colonnes de A à F)
2- Qu'elle colonne est la plus longue?
garf421
Messages postés
3
Date d'inscription
lundi 28 novembre 2011
Statut
Membre
Dernière intervention
29 novembre 2011
29 nov. 2011 à 11:13
29 nov. 2011 à 11:13
Il y a 10 colonnes de A à J
La colonne A et la colonne F ont une largeur de 10
Les colonnes B, C, D, E font 7.29 de largeur
Les colonnes G,H,I et J font 7 de largeur
La première ligne est composé de deux cellules fusionnées prenant respectivement les cellules A,B,C,D,E et les cellules F,G,H,I,J
Les lignes deux et trois sont composées de cellules fusionnés pour formé un titre de chaque colonne: A2 fusionné avec A3; B2 fusionné avec B3 ...... J2 fusionné avec J3
A partir de la ligne 4 commence les valeurs du tableau.
Sachant qu'en colonne A sont listé les nom d'élèves que j'utiliserais pour le classeur "d'éditeur de bulletin" pour effectuer des recherches et accéder aux 9 autres colonnes de valeurs numériques. ( B:J)
La colonne A et la colonne F ont une largeur de 10
Les colonnes B, C, D, E font 7.29 de largeur
Les colonnes G,H,I et J font 7 de largeur
La première ligne est composé de deux cellules fusionnées prenant respectivement les cellules A,B,C,D,E et les cellules F,G,H,I,J
Les lignes deux et trois sont composées de cellules fusionnés pour formé un titre de chaque colonne: A2 fusionné avec A3; B2 fusionné avec B3 ...... J2 fusionné avec J3
A partir de la ligne 4 commence les valeurs du tableau.
Sachant qu'en colonne A sont listé les nom d'élèves que j'utiliserais pour le classeur "d'éditeur de bulletin" pour effectuer des recherches et accéder aux 9 autres colonnes de valeurs numériques. ( B:J)
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
29 nov. 2011 à 11:17
29 nov. 2011 à 11:17
Bon essaye déjà ça et reviens nous dire ce qui ne convient pas :
Le classeur exemple
Le code :
Le classeur exemple
Le code :
Option Explicit Sub ImporterNotes() Dim NomFic Dim Wrk As Workbook Dim DrLig As Long Set Wrk = ActiveWorkbook 'Suppression des données contenues dans le classeur "macro" With Wrk.Sheets("note") DrLig = .Range("A" & Rows.Count).End(xlUp).Row .Range("A4:J" & DrLig).Clear End With 'ouverture du classeur "source" NomFic = Application.GetOpenFilename 'en cas d'annulation évite le plantage If NomFic = False Then Exit Sub Application.ScreenUpdating = False Workbooks.Open NomFic 'copier/coller les données With Sheets("note") DrLig = .Range("A" & Rows.Count).End(xlUp).Row .Range("A4:J" & DrLig).Copy Wrk.Sheets("note").Range("A4") End With 'fermeture du classeur "source" ActiveWorkbook.Close Application.ScreenUpdating = True End Sub