Bonjour.

pour des raisons de fonctionnement sous Excel 2010 Je voudrais transformer une Macro XL4 en langage VBA.

J'ai essayé de me plonger dedans avec quelques bouquins mais ce n'est pas évident.

Si une âme charitable pouvait me transcrire en VBA le début de cette Macro ça m'aiderait un peu à comprendre.

Merci d'avance. voici le début de cette Macro.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Edition d'un Groupe du Dimanche - 4 dates / page
 Selectionner les noms de fichier
 
NBLIN=53
 LIN=7
 COL=COLONNE(SELECTION())
 
=POUR("CPTE";1;NBLIN;4)
 
=ECRAN(FAUX)
 
FICH=LIRE.DOCUMENT(1)
 =POSER.NOM("DATE1";FICH&"!L"&LIN+CPTE-1&"C5")
 =POSER.NOM("DATE2";FICH&"!L"&LIN+CPTE-1+1&"C5")
 =POSER.NOM("DATE3";FICH&"!L"&LIN+CPTE-1+2&"C5")
 =POSER.NOM("DATE4";FICH&"!L"&LIN+CPTE-1+3&"C5")
 
=OUVRIR("C:\VCS_1\EDITDIM.XLS")
 =FORMULE(CELLULE("contenu";REFTEXTE(DATE1));'C:\VC S_1\[EDITDIM.XLS]EDITDIM'!L2C2)
 =FORMULE(CELLULE("contenu";REFTEXTE(DATE2));'C:\VC S_1\[EDITDIM.XLS]EDITDIM'!L2C9)
 =FORMULE(CELLULE("contenu";REFTEXTE(DATE3));'C:\VC S_1\[EDITDIM.XLS]EDITDIM'!L23C2)
 =FORMULE(CELLULE("contenu";REFTEXTE(DATE4));'C:\VC S_1\[EDITDIM.XLS]EDITDIM'!L23C9)