Discussion :

[KyartB]

Bonjour à tous,

je souhaite créer une macro, que j'affecterai à un bouton dans un fichier initial (fichier1).

Cette dernière doit:
-laisser le choix à l'utilisateur d'ouvrir un fichier (fichier2) à sélectionner:


-sélectionner le fichier (fichier2) ouvert

-Ajouter une colonne vide à ce fichier en B1 (fichier2) où la commande :=CHOISIR(MOIS(A1);"janvier";"février";"mars";"avril";"mai";"juin";"juillet";"aout";"septembre";"octobre";"novembre";"décembre") est insérée et étendu sur toute la colonne tant que la ligne Oi est VRAI

-Ensuite il copie cette colonne et la colle en A1 dans le fichier initial (fichier1). Seulement la colonne est de taille variable, je souhaiterai copier que les cellules VRAI de cette colonne.

Merci pour votre aide, si cela n'est pas claire merci de me le dire, j’essaierai de reformuler ma demande

Bien cordialement,

[parmi]

Bonjour,

Essaie un peu comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    Dim nbLignes As Long
 
'... début de code
    Workbooks.Open Fichier
    nbLignes = ActiveWorkbook.ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
 
    ActiveWorkbook.ActiveSheet.Columns("B:B").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    ActiveWorkbook.ActiveSheet.Range("B1:B" & nbLignes).Formula = "=CHOOSE(MONTH(A1),""janvier"",""février"",""mars"",""avril"",""mai"",""juin"",""juillet"",""aout"",""septembre"",""octobre"",""novembre"",""décembre"")"
    ActiveWorkbook.Close True  'Ferme le fichier et Sauvegarde

[KyartB]

Merci,

Juste une petite chose, comment je fait pour revenir sur le tableau "Fichier", une fois sortie.

++

[parmi]

J'oubliais la partie copie dans le Fichier1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    ActiveWorkbook.ActiveSheet.Columns("B:B").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    ActiveWorkbook.ActiveSheet.Range("B1:B" & nbLignes).Formula = "=CHOOSE(MONTH(A1),""janvier"",""février"",""mars"",""avril"",""mai"",""juin"",""juillet"",""aout"",""septembre"",""octobre"",""novembre"",""décembre"")"
    ActiveWorkbook.ActiveSheet.Columns("B").Copy 'copie la colonne de formules
    ThisWorkbook.ActiveSheet.Range("A1").PasteSpecial xlPasteValues  'colle cette colonne en valeur en A1
    ActiveWorkbook.Close True  'Ferme le fichier et Sauvegarde

Pour ce qui est de revenir au tableau Fichier, il faudrait que tu expliques un peu plus ...
Qu'est-ce que ce tableau ? une feuille ?

[KyartB]

Le tableau Fichier est le tableau où la colonne a été créé (ouvert avec la boite de dialogue), je m'explique.

Workbooks.Open Fichier ce code ouvre le fichier, je souhaiterai seulement le sélectionner.

Car:
Une fois la colonne de la feuille ouverte avec la boite de dialogue ("Fichier") copié, le code la colle dans la feuille de calcul initial (celle avec le bouton), je souhaiterai simplement revenir sur la feuille de calcul excel ouverte avec la boite de dialogue où la création de la colonne a été faite, afin de recopier certains éléments.

En espérant avoir été un peu plus clair,

Je vous remercie,

[parmi]

Tu me perds avec tes explications...
Quand tu fais Workbooks.Open Fichier, c'est ce fichier qui est à l'écran (ActiveWorkbook)
Le fichier ayant la macro est ThisWorkBook

Ceci étant dit, si tu veux te promener entre ces deux fichiers, utilise des objets Workbook pour bien te situer

ex:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim MacroBook as workbook, OpenBook as workbook
Set MacroBook = Activeworkbook
 
'code...
Workbooks.Open Fichier
Set OpenBook = Activeworkbook
'code...

Là, tu peux te promener d'un à l'autre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
MacroBook.Activate
'code
OpenBook.Activate
'code

[KyartB]

Ma macro marche comme je le souhaite

En te remerciant sincèrement,

+++