Probl=E8me de VBA !!
Je dois copier des donn=E9es dans un fichier ferm=E9 et les coller dans un
nouveau. Ces donn=E9es sont sur x colonnes et y lignes. Je veux les
coller dans le nouveau fichier sur une seule colonne (lChaque colonne
de l'ancien fichier l'une en dessous de l'autre). POur cela j'ai essy=E9
de "bidouiller" du code trouver sur ce forum.. Mais ca ne fonctionne
pas et la je ne sais plus..
A l'origine il y avait un CellRange =E0 la place de (Cells (i, 5),
Cells(i, 29)) defini sous le format du style : A2:A25
For i =3D 3 To 34
With ActiveSheet.Range(Cells(i, 5), Cells(i, 29))
.Formula =3D "=3D'" & fPath & "\[" & fName & "]" _
& sName & "'!" & (Cells(i, 5), Cells(i, 29))
.Select
End With
Bonjour. Le plus simple est d'ouvrir le fichier le temps de la copie. Cordialement. Daniel a écrit dans le message de news:
Bonjour le forum,
Problème de VBA !! Je dois copier des données dans un fichier fermé et les coller dans un nouveau. Ces données sont sur x colonnes et y lignes. Je veux les coller dans le nouveau fichier sur une seule colonne (lChaque colonne de l'ancien fichier l'une en dessous de l'autre). POur cela j'ai essyé de "bidouiller" du code trouver sur ce forum.. Mais ca ne fonctionne pas et la je ne sais plus..
A l'origine il y avait un CellRange à la place de (Cells (i, 5), Cells(i, 29)) defini sous le format du style : A2:A25
For i = 3 To 34
With ActiveSheet.Range(Cells(i, 5), Cells(i, 29)) .Formula = "='" & fPath & "[" & fName & "]" _ & sName & "'!" & (Cells(i, 5), Cells(i, 29)) .Select End With
.....
Next i
Merci de votre aide
Nathalie
Bonjour.
Le plus simple est d'ouvrir le fichier le temps de la copie.
Cordialement.
Daniel
<nbredin@hotmail.com> a écrit dans le message de news:
1172238365.090750.226360@p10g2000cwp.googlegroups.com...
Bonjour le forum,
Problème de VBA !!
Je dois copier des données dans un fichier fermé et les coller dans un
nouveau. Ces données sont sur x colonnes et y lignes. Je veux les
coller dans le nouveau fichier sur une seule colonne (lChaque colonne
de l'ancien fichier l'une en dessous de l'autre). POur cela j'ai essyé
de "bidouiller" du code trouver sur ce forum.. Mais ca ne fonctionne
pas et la je ne sais plus..
A l'origine il y avait un CellRange à la place de (Cells (i, 5),
Cells(i, 29)) defini sous le format du style : A2:A25
For i = 3 To 34
With ActiveSheet.Range(Cells(i, 5), Cells(i, 29))
.Formula = "='" & fPath & "[" & fName & "]" _
& sName & "'!" & (Cells(i, 5), Cells(i, 29))
.Select
End With
Bonjour. Le plus simple est d'ouvrir le fichier le temps de la copie. Cordialement. Daniel a écrit dans le message de news:
Bonjour le forum,
Problème de VBA !! Je dois copier des données dans un fichier fermé et les coller dans un nouveau. Ces données sont sur x colonnes et y lignes. Je veux les coller dans le nouveau fichier sur une seule colonne (lChaque colonne de l'ancien fichier l'une en dessous de l'autre). POur cela j'ai essyé de "bidouiller" du code trouver sur ce forum.. Mais ca ne fonctionne pas et la je ne sais plus..
A l'origine il y avait un CellRange à la place de (Cells (i, 5), Cells(i, 29)) defini sous le format du style : A2:A25
For i = 3 To 34
With ActiveSheet.Range(Cells(i, 5), Cells(i, 29)) .Formula = "='" & fPath & "[" & fName & "]" _ & sName & "'!" & (Cells(i, 5), Cells(i, 29)) .Select End With
.....
Next i
Merci de votre aide
Nathalie
nbredin
On 23 fév, 09:08, "Daniel" wrote:
Bonjour. Le plus simple est d'ouvrir le fichier le temps de la copie. Cordialement. Daniel a écrit dans le message de news:
Bonjour le forum,
Problème de VBA !! Je dois copier des données dans un fichier fermé et les coller dans un nouveau. Ces données sont sur x colonnes et y lignes. Je veux les coller dans le nouveau fichier sur une seule colonne (lChaque colonne de l'ancien fichier l'une en dessous de l'autre). POur cela j'ai essyé de "bidouiller" du code trouver sur ce forum.. Mais ca ne fonctionne pas et la je ne sais plus..
A l'origine il y avait un CellRange à la place de (Cells (i, 5), Cells(i, 29)) defini sous le format du style : A2:A25
For i = 3 To 34
With ActiveSheet.Range(Cells(i, 5), Cells(i, 29)) .Formula = "='" & fPath & "[" & fName & "]" _ & sName & "'!" & (Cells(i, 5), Cells(i, 29)) .Select End With
.....
Next i
Merci de votre aide
Nathalie
Merci Daniel de ta réponse. Je vais voir ca..
Nathalie
On 23 fév, 09:08, "Daniel" <dZZZcolarde...@free.fr> wrote:
Bonjour.
Le plus simple est d'ouvrir le fichier le temps de la copie.
Cordialement.
Daniel
<nbre...@hotmail.com> a écrit dans le message de news:
1172238365.090750.226...@p10g2000cwp.googlegroups.com...
Bonjour le forum,
Problème de VBA !!
Je dois copier des données dans un fichier fermé et les coller dans un
nouveau. Ces données sont sur x colonnes et y lignes. Je veux les
coller dans le nouveau fichier sur une seule colonne (lChaque colonne
de l'ancien fichier l'une en dessous de l'autre). POur cela j'ai essyé
de "bidouiller" du code trouver sur ce forum.. Mais ca ne fonctionne
pas et la je ne sais plus..
A l'origine il y avait un CellRange à la place de (Cells (i, 5),
Cells(i, 29)) defini sous le format du style : A2:A25
For i = 3 To 34
With ActiveSheet.Range(Cells(i, 5), Cells(i, 29))
.Formula = "='" & fPath & "[" & fName & "]" _
& sName & "'!" & (Cells(i, 5), Cells(i, 29))
.Select
End With
Bonjour. Le plus simple est d'ouvrir le fichier le temps de la copie. Cordialement. Daniel a écrit dans le message de news:
Bonjour le forum,
Problème de VBA !! Je dois copier des données dans un fichier fermé et les coller dans un nouveau. Ces données sont sur x colonnes et y lignes. Je veux les coller dans le nouveau fichier sur une seule colonne (lChaque colonne de l'ancien fichier l'une en dessous de l'autre). POur cela j'ai essyé de "bidouiller" du code trouver sur ce forum.. Mais ca ne fonctionne pas et la je ne sais plus..
A l'origine il y avait un CellRange à la place de (Cells (i, 5), Cells(i, 29)) defini sous le format du style : A2:A25
For i = 3 To 34
With ActiveSheet.Range(Cells(i, 5), Cells(i, 29)) .Formula = "='" & fPath & "[" & fName & "]" _ & sName & "'!" & (Cells(i, 5), Cells(i, 29)) .Select End With
.....
Next i
Merci de votre aide
Nathalie
Merci Daniel de ta réponse. Je vais voir ca..
Nathalie
nbredin
On 23 fév, 10:12, wrote:
On 23 fév, 09:08, "Daniel" wrote:
Bonjour. Le plus simple est d'ouvrir le fichier le temps de la copie. Cordialement. Daniel a écrit dans le message de news:
Bonjour le forum,
Problème de VBA !! Je dois copier des données dans un fichier fermé et les coller dans un nouveau. Ces données sont sur x colonnes et y lignes. Je veux les coller dans le nouveau fichier sur une seule colonne (lChaque colonne de l'ancien fichier l'une en dessous de l'autre). POur cela j'ai essy é de "bidouiller" du code trouver sur ce forum.. Mais ca ne fonctionne pas et la je ne sais plus..
A l'origine il y avait un CellRange à la place de (Cells (i, 5), Cells(i, 29)) defini sous le format du style : A2:A25
For i = 3 To 34
With ActiveSheet.Range(Cells(i, 5), Cells(i, 29)) .Formula = "='" & fPath & "[" & fName & "]" _ & sName & "'!" & (Cells(i, 5), Cells(i, 29)) .Select End With
.....
Next i
Merci de votre aide
Nathalie
Merci Daniel de ta réponse. Je vais voir ca..
Nathalie- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bon alors même avec le classeur ouvert il y un bug.. Comprends pas.. Extrait
Le 2ieme Range ne passe pas. Message d'erreur: La méthode 'Range' de l'objet '_global' a échoué.
Ce que je ne comprends pas c'est que si je mets "A1" .. tout va bien.. PAs d'erreur.. Merci de votre aide Nathalie
On 23 fév, 10:12, nbre...@hotmail.com wrote:
On 23 fév, 09:08, "Daniel" <dZZZcolarde...@free.fr> wrote:
Bonjour.
Le plus simple est d'ouvrir le fichier le temps de la copie.
Cordialement.
Daniel
<nbre...@hotmail.com> a écrit dans le message de news:
1172238365.090750.226...@p10g2000cwp.googlegroups.com...
Bonjour le forum,
Problème de VBA !!
Je dois copier des données dans un fichier fermé et les coller dans un
nouveau. Ces données sont sur x colonnes et y lignes. Je veux les
coller dans le nouveau fichier sur une seule colonne (lChaque colonne
de l'ancien fichier l'une en dessous de l'autre). POur cela j'ai essy é
de "bidouiller" du code trouver sur ce forum.. Mais ca ne fonctionne
pas et la je ne sais plus..
A l'origine il y avait un CellRange à la place de (Cells (i, 5),
Cells(i, 29)) defini sous le format du style : A2:A25
For i = 3 To 34
With ActiveSheet.Range(Cells(i, 5), Cells(i, 29))
.Formula = "='" & fPath & "[" & fName & "]" _
& sName & "'!" & (Cells(i, 5), Cells(i, 29))
.Select
End With
.....
Next i
Merci de votre aide
Nathalie
Merci Daniel de ta réponse.
Je vais voir ca..
Nathalie- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bon alors même avec le classeur ouvert il y un bug..
Comprends pas..
Extrait
Bonjour. Le plus simple est d'ouvrir le fichier le temps de la copie. Cordialement. Daniel a écrit dans le message de news:
Bonjour le forum,
Problème de VBA !! Je dois copier des données dans un fichier fermé et les coller dans un nouveau. Ces données sont sur x colonnes et y lignes. Je veux les coller dans le nouveau fichier sur une seule colonne (lChaque colonne de l'ancien fichier l'une en dessous de l'autre). POur cela j'ai essy é de "bidouiller" du code trouver sur ce forum.. Mais ca ne fonctionne pas et la je ne sais plus..
A l'origine il y avait un CellRange à la place de (Cells (i, 5), Cells(i, 29)) defini sous le format du style : A2:A25
For i = 3 To 34
With ActiveSheet.Range(Cells(i, 5), Cells(i, 29)) .Formula = "='" & fPath & "[" & fName & "]" _ & sName & "'!" & (Cells(i, 5), Cells(i, 29)) .Select End With
.....
Next i
Merci de votre aide
Nathalie
Merci Daniel de ta réponse. Je vais voir ca..
Nathalie- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bon alors même avec le classeur ouvert il y un bug.. Comprends pas.. Extrait
