Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
j
tu peux aller jeter un oeil sur http://jacxl.free.fr/cours_xl/cours_xl_jac.html#references, § références à un fichier externe qui t'explique comment lire les cellules d'un fichier fermé
"nancy" a écrit dans le message de news: 048601c36a39$5782dce0$ Bonjour à tous. J'ai le code suivant:
par la suite je vais copier des données dans ce fichier pour les coller dans un autre.
j'aimerais faire la même chose sans avoir à ouvrir le fichier.
merci
tu peux aller jeter un oeil sur
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#references, § références à
un fichier externe
qui t'explique comment lire les cellules d'un fichier fermé
J@C
"nancy" <ski553@hotmail.com> a écrit dans le message de news:
048601c36a39$5782dce0$a601280a@phx.gbl...
Bonjour à tous.
J'ai le code suivant:
tu peux aller jeter un oeil sur http://jacxl.free.fr/cours_xl/cours_xl_jac.html#references, § références à un fichier externe qui t'explique comment lire les cellules d'un fichier fermé
"nancy" a écrit dans le message de news: 048601c36a39$5782dce0$ Bonjour à tous. J'ai le code suivant:
par la suite je vais copier des données dans ce fichier pour les coller dans un autre.
j'aimerais faire la même chose sans avoir à ouvrir le fichier.
merci
nancy
Salut FxM
Ne sois pas inquiet je vais continuer à utiliser excel surtout avec ton aide cela devient vraiment passionnant.
Un gros merci pour ton code je l'ai testé et il fonctionne.
Je vais aller sur le site que tu m'as suggéré pour copier une plage dans un fichier sans avoir à l' ouvrir. Dans le code ci-bas, lorsque je cherche un fichier qui est inexistant la macro ouvre le débogueur. Il manque du code pour gérer cette situation. Idem lorsque le fichier demandé est déjà ouvert. C'est pour cela que je veux copier sans avoir à ouvrir le fichier.
Est-ce que tu as quelque lignes de code pour corriger la situation?
Sub test() an = CInt(InputBox("Année ?", "Entrez l'année", Year(Now))) mo = CInt(InputBox("Mois ?", "Entrez le mois", Month(Now))) da = CInt(InputBox("Jour ?", "Entrez le jour", Day(Now))) dat = DateSerial(an, mo, da) chemin = "C:revenue" & Format(dat, "yyyy") & "" & _ Format(dat, "mmmm") chemin = Replace(Replace(chemin, "û", "u"), "é", "e") fic = chemin & "jac" & Format(dat, "mmdd") & ".xls" rep = MsgBox("Vous allez ouvrir le fichier :" & vbNewLine & _ fic, vbYesNo + vbDefaultButton2, "Confirmation") If rep = vbYes Then ChDrive (Left(chemin, 1)) ChDir chemin Workbooks.Open Filename:=fic End If End Sub
par la suite je vais copier des données dans ce fichier pour les coller dans un autre.
j'aimerais faire la même chose sans avoir à ouvrir le fichier.
merci
Bonour Nancy,
En bas de la page : http://www.excelabo.net/xl/fichiers.htm
@+ FxM qui espère que la prochaine étape ne sera pas 'sans Excel' ;o)
.
Salut FxM
Ne sois pas inquiet je vais continuer à utiliser
excel surtout avec ton aide cela devient vraiment
passionnant.
Un gros merci pour ton code je l'ai testé et il
fonctionne.
Je vais aller sur le site que tu m'as suggéré pour
copier une plage dans un fichier sans avoir à l'
ouvrir.
Dans le code ci-bas, lorsque je cherche un fichier
qui est inexistant la macro ouvre le débogueur.
Il manque du code pour gérer cette situation. Idem
lorsque le fichier demandé est déjà ouvert.
C'est pour cela que je veux copier sans avoir
à ouvrir le fichier.
Est-ce que tu as quelque lignes de code pour
corriger la situation?
Sub test()
an = CInt(InputBox("Année ?", "Entrez l'année",
Year(Now)))
mo = CInt(InputBox("Mois ?", "Entrez le mois",
Month(Now)))
da = CInt(InputBox("Jour ?", "Entrez le jour",
Day(Now)))
dat = DateSerial(an, mo, da)
chemin = "C:revenue" & Format(dat, "yyyy") & "" &
_
Format(dat, "mmmm")
chemin = Replace(Replace(chemin, "û", "u"), "é", "e")
fic = chemin & "jac" & Format(dat, "mmdd") & ".xls"
rep = MsgBox("Vous allez ouvrir le fichier :" &
vbNewLine & _
fic, vbYesNo + vbDefaultButton2, "Confirmation")
If rep = vbYes Then
ChDrive (Left(chemin, 1))
ChDir chemin
Workbooks.Open Filename:=fic
End If
End Sub
Ne sois pas inquiet je vais continuer à utiliser excel surtout avec ton aide cela devient vraiment passionnant.
Un gros merci pour ton code je l'ai testé et il fonctionne.
Je vais aller sur le site que tu m'as suggéré pour copier une plage dans un fichier sans avoir à l' ouvrir. Dans le code ci-bas, lorsque je cherche un fichier qui est inexistant la macro ouvre le débogueur. Il manque du code pour gérer cette situation. Idem lorsque le fichier demandé est déjà ouvert. C'est pour cela que je veux copier sans avoir à ouvrir le fichier.
Est-ce que tu as quelque lignes de code pour corriger la situation?
Sub test() an = CInt(InputBox("Année ?", "Entrez l'année", Year(Now))) mo = CInt(InputBox("Mois ?", "Entrez le mois", Month(Now))) da = CInt(InputBox("Jour ?", "Entrez le jour", Day(Now))) dat = DateSerial(an, mo, da) chemin = "C:revenue" & Format(dat, "yyyy") & "" & _ Format(dat, "mmmm") chemin = Replace(Replace(chemin, "û", "u"), "é", "e") fic = chemin & "jac" & Format(dat, "mmdd") & ".xls" rep = MsgBox("Vous allez ouvrir le fichier :" & vbNewLine & _ fic, vbYesNo + vbDefaultButton2, "Confirmation") If rep = vbYes Then ChDrive (Left(chemin, 1)) ChDir chemin Workbooks.Open Filename:=fic End If End Sub
