Discussion :

[jmde]

Bonjour,

Ces lignes de codes permettent de mettre un titre et de sauvegarder le dossier.

Code :

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

1
2
3
4
5
6
7
8
9
Set Excl = fExportExcel(Chemin, rs, True, 3, 1)
 
Excl.Sheets(1).Cells(1, 5) = "Liste des Bénévoles Associatifs" & "   " & Year(CDate(DébutSaison)) & " - " & Year(CDate(FinSaison))
 
 
Excl.SaveAs path & "\" & "Dossier Excel\Bénévoles.xls" & "   " & Year(CDate(DébutSaison)) & " - " & Year(CDate(FinSaison))
 
    Excl.Application.Quit
    Set Excl = Nothing

Je voudrais avant la sauvegarde supprimer les colonnes “O:Y”, mais ces lignes ne fonctionne pas.

Code :

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

1
2
Excl.Columns("O:Y").Select
Excl.Selection.Delete Shift:=xlToLeft

Merci pour votre aide.

Salutations

[Antoniom]

Bonjour à tous,

Peut-être simplement comme ceci..

Code :

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

Columns("O:Y").Delete Shift:=xlToLeft

Bon week, Antoniom.

[jmde]

Bonjour Antoniom,

Merci pour ta réponse.

J'ai une erreur de compilation variable non définie sur xlToLeft

Comment la définir ?

A+

Salutations

[Gorfael]

Salut jmde et le forum

Code :

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

Excl.Columns("O:Y").Delete

Juste une question : Où tu a trouvé xlToLeft pour une suppression ? Tu supprimes des colonnes, pas des cellules. Moi je voudrais bien voir ce qu'il advient avec xlToRight
A+

[jmde]

Bonjour Gorfael,

Merci pour ta réponse, mais j’ai une erreur 438 « propriété ou méthode
non gérée par cet objet.

Pour xlToLeft j’ai simplement fait la suppression des colonnes manuellement
tout en enregistrant la macro.

A+

Salutations

[Invité]

Bonjour,

Je n'ai peut-être pas tout compris, mais ne pensez-vous pas que cela fonctionnerait mieux avec :

Code :

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

Sheets(1).Columns("O:Y").Delete

voire en cas d'utilité :

Code :

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

Excl.Sheets(1).Columns("O:Y").Delete

[jmde]

Bonsoir Jacques_Jean,

Merci pour la réponse.

C'est bien la bonne écriture du code que vous avez donnée.

Salutations