Pb quantificateur objet

[Pascale]

Bonjour à toues et à tous,

Dans mon code j'ai ces lignes:

Dim ouvrirfichiers As Variant
ouvrirfichiers = Application.GetOpenFilename _
(fileFilter:='Fichiers Excel et Word (*.xls;*.doc),*.xls;*.doc', Title:='Choix de fichier(s)', MultiSelect:=True)

Et à cette ligne:

ouvrirfichiers(compteur).Copy fichfin

j'ai une erreur de quantificateur d'objet 'erreur 424' objet requis, pourtant ouvrirfichiers(compteur) est un nom de fichier ???

Merci de votre aide.

Pascale

 

[Pascale]

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

 

[Denis]

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

 

[Pascale]

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

 

[Denis]

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

 

[Pascale]

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

 

[Pascale]

Re

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

sorry, A+

Pascale

 

[Pascale]

Re

C quoi ce truc ?

ou il y a '' lire antislash

Pascale

 

[Denis]

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.