pourquoi cela ne fonctionne plus?
je vous ai soumis une procédure qui déconnait.
vous me me l'avez dépannée.
je modifie les n° de cellules et ça ne marche plus.
tout se fait mais au moment de coller sur les fichiers la ligne se colle en
B16.
pourquoi?
qu'est-ce qui produit cela?
Private Sub CommandButton1_Click()
For i = 6 To 15
Range(Cells(i, 9), Cells(i, 13)).Select
' sélectionne les cellules I, i à M,i
Selection.Copy
Set wk = Workbooks.Open(Filename:="C:\Documents and Settings\Eric\Mes
documents\79\d79\" & Range("D" & i) & ".xls")
'ouvre le fichier en D,i
wk.ActiveSheet.Range("B" & Range("B65536").End(xlUp).Row + 1).Select
' et colle en B,i
wk.ActiveSheet.Paste
wk.Application.CutCopyMode = False
wk.Save
wk.Close
Next i
End Sub
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
Antoine
Bonjour,
Est-ce que l'adjonction de .value ne solutionnerait pas ton problème ?
Set wk = Workbooks.Open(Filename:="C:Documents and SettingsEricMes documents79d79" & Range("D" & i).value & ".xls")
"Kic" a écrit dans le message de news: 448f10ad$0$29658$
pourquoi cela ne fonctionne plus? je vous ai soumis une procédure qui déconnait. vous me me l'avez dépannée. je modifie les n° de cellules et ça ne marche plus. tout se fait mais au moment de coller sur les fichiers la ligne se colle en B16. pourquoi? qu'est-ce qui produit cela?
Private Sub CommandButton1_Click() For i = 6 To 15 Range(Cells(i, 9), Cells(i, 13)).Select ' sélectionne les cellules I, i à M,i Selection.Copy Set wk = Workbooks.Open(Filename:="C:Documents and SettingsEricMes documents79d79" & Range("D" & i) & ".xls") 'ouvre le fichier en D,i wk.ActiveSheet.Range("B" & Range("B65536").End(xlUp).Row + 1).Select ' et colle en B,i wk.ActiveSheet.Paste wk.Application.CutCopyMode = False wk.Save wk.Close Next i End Sub
merci a+ kic
Bonjour,
Est-ce que l'adjonction de .value ne solutionnerait pas ton problème ?
Set wk = Workbooks.Open(Filename:="C:Documents and SettingsEricMes
documents79d79" & Range("D" & i).value & ".xls")
"Kic" <nospam@msn.com> a écrit dans le message de news:
448f10ad$0$29658$636a55ce@news.free.fr...
pourquoi cela ne fonctionne plus?
je vous ai soumis une procédure qui déconnait.
vous me me l'avez dépannée.
je modifie les n° de cellules et ça ne marche plus.
tout se fait mais au moment de coller sur les fichiers la ligne se colle
en B16.
pourquoi?
qu'est-ce qui produit cela?
Private Sub CommandButton1_Click()
For i = 6 To 15
Range(Cells(i, 9), Cells(i, 13)).Select
' sélectionne les cellules I, i à M,i
Selection.Copy
Set wk = Workbooks.Open(Filename:="C:Documents and SettingsEricMes
documents79d79" & Range("D" & i) & ".xls")
'ouvre le fichier en D,i
wk.ActiveSheet.Range("B" & Range("B65536").End(xlUp).Row + 1).Select
' et colle en B,i
wk.ActiveSheet.Paste
wk.Application.CutCopyMode = False
wk.Save
wk.Close
Next i
End Sub
Est-ce que l'adjonction de .value ne solutionnerait pas ton problème ?
Set wk = Workbooks.Open(Filename:="C:Documents and SettingsEricMes documents79d79" & Range("D" & i).value & ".xls")
"Kic" a écrit dans le message de news: 448f10ad$0$29658$
pourquoi cela ne fonctionne plus? je vous ai soumis une procédure qui déconnait. vous me me l'avez dépannée. je modifie les n° de cellules et ça ne marche plus. tout se fait mais au moment de coller sur les fichiers la ligne se colle en B16. pourquoi? qu'est-ce qui produit cela?
Private Sub CommandButton1_Click() For i = 6 To 15 Range(Cells(i, 9), Cells(i, 13)).Select ' sélectionne les cellules I, i à M,i Selection.Copy Set wk = Workbooks.Open(Filename:="C:Documents and SettingsEricMes documents79d79" & Range("D" & i) & ".xls") 'ouvre le fichier en D,i wk.ActiveSheet.Range("B" & Range("B65536").End(xlUp).Row + 1).Select ' et colle en B,i wk.ActiveSheet.Paste wk.Application.CutCopyMode = False wk.Save wk.Close Next i End Sub
