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
On 26 juin, 14:53, Péhemme <x...@xx.xx> wrote:
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" <j...@neuf.fr> a crit dans le message denews:e6cf403b-144b-401f -ba1a-2f3f5ba548dc@w31g2000yqb.googlegroups.com...
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))
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.
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
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" a écrit dans le message de news: On 26 juin, 14:53, Péhemme wrote:
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" a crit dans le message 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))
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
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" <jg1@neuf.fr> a écrit dans le message de
news:9edac12c-ed75-4bcc-85ab-708dafd4912c@y4g2000yqy.googlegroups.com...
On 26 juin, 14:53, Péhemme <x...@xx.xx> wrote:
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" <j...@neuf.fr> a crit dans le message
denews:e6cf403b-144b-401f-ba1a-2f3f5ba548dc@w31g2000yqb.googlegroups.com...
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))
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.
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" a écrit dans le message de news: On 26 juin, 14:53, Péhemme wrote:
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" a crit dans le message 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))
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.