Coller certaines colonnes d'un tableau dans un autre classeur
Fermé
serpanthere
-
Modifié par pijaku le 25/02/2015 à 15:14
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 25 févr. 2015 à 15:28
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 25 févr. 2015 à 15:28
A voir également:
- Coller certaines colonnes d'un tableau dans un autre classeur
- Tableau croisé dynamique - Guide
- Afficher un tableau en c - Forum C
- Extraire des données d'un tableau excel vers un autre tableau ✓ - Forum Excel
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? - Forum Bureautique
- Tableau croisé dynamique différence entre deux colonnes ✓ - Forum Excel
1 réponse
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
25 févr. 2015 à 15:28
25 févr. 2015 à 15:28
Bonjour,
Pour créer un nouveau classeur :
Dans ce code, le nom est donné en dur... Si tu veux le saisir toi même, tu peux passer par une InputBox, comme ceci :
Pour ouvrir un classeur existant de manière "transparente" :
Pour créer un nouveau classeur :
Dim Wbk As Workbook, Chemin As String, NomFic AS String Set Wbk = Workbooks.Add Chemin = "C:\Users\MonNom\Travail\Excel\" NomFic = "MonFichierSortie" Wbk.SaveAs Chemin & NomFic
Dans ce code, le nom est donné en dur... Si tu veux le saisir toi même, tu peux passer par une InputBox, comme ceci :
Dim Wbk As Workbook, Chemin As String, NomFic AS String
Set Wbk = Workbooks.Add
Chemin = "C:\Users\MonNom\Travail\Excel\"
NomFic = InputBox("Saisie du nom de fichier : ", "NOM DU FICHIER")
'Ici on peut faire des tests sur NomFic genre If NomFic <> ""...
Wbk.SaveAs Chemin & NomFic
Pour ouvrir un classeur existant de manière "transparente" :
Dim Entree As Workbook, Sortie As Workbook Set Entree = Application.Workbooks.Open "d:\Users\MonNom\Travail\monfichierEntree.xls" Set Sortie = Application.Workbooks.Open "d:\Users\MonNom\Travail\monfichierSortie.xls"