Discussion :

[jmde]

Bonjour,

Dans Access j’utilise ces lignes de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
With excl.Sheets(1)
 
'Dernière ligne
     Lig = Range("A" & Rows.Count).End(xlUp).Row + 1
 
    .Cells(Lig + 1, 1) = "Légende :"
    .Cells(Lig + 1, 1).HorizontalAlignment = xlRight
 
    .Cells(Lig + 1, 2) = "Aa"
    .Cells(Lig + 1, 3) = "AAAAAA aaaaaa"

Je voudrai fusionner Cells(Lig + 1, 3) avec la cellule qui se trouve
Juste à droite (Lig + 1, 4), mais je n’arrive pas à trouver la syntaxe.

Pouvez-vous m'aider?

Merci par avance.

Salutations

[unparia]

Bonjour
Aide VBA, rubrique Range.Merge, méthode
Ceci dit : fusionner des cellules n'est jamais, bien au contraire, une bonne idée.

[eriiic]

Bonjour,

dans access, tu es sûr ?
Utilise l'enregistreur de macro et tu auras les éléments qui t'intéressent.
eric

[jmde]

Bonjour,

dans access, tu es sûr ?
Utilise l'enregistreur de macro et tu auras les éléments qui t'intéressent.
eric

Merci pour ta réponse.

Oui je pilote Excel à partir d'Acces.

Code :

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

1
2
3
4
5
6
7
Set rs = CurrentDb.OpenRecordset(StrSQL, dbOpenDynaset)
Set excl = fExportExcel(chemin, rs, True, 1, 1)
 
 With excl.Sheets(1)
 
!!!!!!
!!!!!!

Salutations