Pb quantificateur objet

P

Pascale

Guest

• 29 Avril 2005

• #2

Re bonjour le forum,

En fait c'est fichfin qui est 'string' et non pas un objet. C'est le nom du fichier avec son chemin.Comment en faire un objet.

Bonne journée.

Pascale

 

Vote positif 0 Vote négatif

D

Denis

Guest

• 29 Avril 2005

• #3

Bonjour Pascale et le Forum
je n'ai pas tout saisi (Lol) il est encore trop tôt et les neurones encore endormis, mais essais de déclare fichfin as Workbook
Peut-être ??
Bon courage et à +
Denis

 

Vote positif 0 Vote négatif

P

Pascale

Guest

• 29 Avril 2005

• #4

Bonjour Denis, le forum,

Un petit café et on y va...

Avec 'ouvrirfichiers'; j'ouvre une boite de dialogue pour me permettre de sélectionner DES fichiers Excel et Word.

Ensuite j'ai une boucle : For compteur = 1 To UBound(ouvrirfichiers)
pour copier chaque fichier. ouvrirfichiers(compteur).Copy fichfin

mais fichfin est en 'string' car ouvrirfichiers(compteur) est le nom d'origine complet et je dois changer le chemin pour le copier ailleurs.

Donc 'erreur 424' car fichfin n'est pas un objet !!!

Comment faire?

Pascale

 

Vote positif 0 Vote négatif

D

Denis

Guest

• 29 Avril 2005

• #5

Rebonjour Pascale et le Forum
me revoici un peu + réveillé
à mon avis finfich doit être un tabeau
tu le déclare en début de prcédure comme ceci
Dim finfich()$

ensuite
Redim Preserve finfich(compteur)
ouvrir fichier(compteur).Copy finfich(compteur)

Bon courage et à +
Denis

 

Vote positif 0 Vote négatif

P

Pascale

Guest

• 29 Avril 2005

• #6

Rebonjour Denis,le forum,

Cela n'a rien changer. Voici le code de la boucle:
For compteur = 1 To UBound(ouvrirfichiers)
fit = ouvrirfichiers(compteur)
posi = InStr(1, fit, '\\')
While posi <> 0
fit = Right(fit, Len(fit) - posi)
posi = InStr(1, fit, '\\')
Wend
fichfin = Dossier.SelectedItems(1) & '\\' & fit
Range('a5').Value = fichfin
Range('a6').Value = ouvrirfichiers(compteur)
ouvrirfichiers(compteur).Copy fichfin

Next compteur

en fait j'utilise fichfin comme variable de nouveau chemin et nom de fichier. si cela t'éclaire un peu plus.
A+
Pascale

 

Vote positif 0 Vote négatif

P

Pascale

Guest

• 29 Avril 2005

• #7

Re

une erreur s'est glisser. lire posi = InStr(1, fit, '\\')

sorry, A+

Pascale

 

Vote positif 0 Vote négatif

P

Pascale

Guest

• 29 Avril 2005

• #8

Re

C quoi ce truc ?

ou il y a '' lire antislash

Pascale

 

Vote positif 0 Vote négatif

D

Denis

Guest

• 29 Avril 2005

• #9

Re Pascale et le Forum
je viens d'avoir le même problème sur un autre post (et en plus je le savais), les antislash ne passent pas.

 

Vote positif 0 Vote négatif