Supprimer des colonnes

Le
jacques
Bonjour,

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

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 ExcelBé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.

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


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

Comment la définir ?

Merci pour votre aide.

Salutations
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Péhemme
Le #22299811
Bonjour,

Je ne comprends pas car ceci fonctionne :
Columns("O:Y").Delete Shift:=xlToLeft
As-tu bien frappé la lettre "o" et non pas le chiffre "0" ?

Michel


"jacques" news:
Bonjour,

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

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 ExcelBé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.

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


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

Comment la définir ?

Merci pour votre aide.

Salutations
jacques
Le #22300361
On 26 juin, 14:53, Péhemme
Bonjour,

Je ne comprends pas car ceci fonctionne :
Columns("O:Y").Delete Shift:=xlToLeft
As-tu bien frapp la lettre "o" et non pas le chiffre "0" ?

Michel

"jacques" Bonjour,

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

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 ExcelB 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.

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

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

Comment la d finir ?

Merci pour votre aide.

Salutations



Bonjour Péhemme,

Merci pour ta réponse,

Lorsque je fais une macro dans mon classeur ce code fonctionne,
mais lorsque je l'automatise et que je l'intercale entre
Excl.Sheets(1).Cells(1, 5) ="""""""""
et
Excl.SaveAs path & "" """"""""""""""
j'ai le message d'erreur.

A+

Salutations
Péhemme
Le #22300771
Ne te faut-il pas manipuler le fichier *après* l'utilisation de ta fonction
d'exportation fExportExcel.
Ce serait ainsi le nouveau fichier Excel qu'il faudrait manipuler.
Je ne suis pas un expert de cette fonction qui semble être un export d'un
fichier Access vers Excel et là je suis hors de mes compétences.
Bien amicalement
Michel


"jacques" news:
On 26 juin, 14:53, Péhemme
Bonjour,

Je ne comprends pas car ceci fonctionne :
Columns("O:Y").Delete Shift:=xlToLeft
As-tu bien frapp la lettre "o" et non pas le chiffre "0" ?

Michel

"jacques" denews:
Bonjour,

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

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 ExcelB 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.

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

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

Comment la d finir ?

Merci pour votre aide.

Salutations



Bonjour Péhemme,

Merci pour ta réponse,

Lorsque je fais une macro dans mon classeur ce code fonctionne,
mais lorsque je l'automatise et que je l'intercale entre
Excl.Sheets(1).Cells(1, 5) ="""""""""
et
Excl.SaveAs path & "" """"""""""""""
j'ai le message d'erreur.

A+

Salutations
Publicité
Poster une réponse
Anonyme