Soucis de code pour Windows.Activate

L_S

XLDnaute Nouveau
Bonjour,

Voici ma macro (Elle m'ouvre n'importe quel classeur ayant une extension .csv en .xls et me copie son contenu.

Mon problème est que je n'arrive pas à trouver de code pour englober n'importe quel non de fichier sur la ligne "Windows".

Sub Convertir_csv_xls()

ThisWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ".xls"
'Converti *.csv en *.xls

Range("A1:ZZ10000").Select
Selection.Copy
'Copie toutes les cellules de A1 à ZZ10000

Windows("ILIKO_coulissant_Cosy_melamine.csv.xls").Activate

Range("A1").Select
ActiveSheet.Paste
'Colle en A1

Range("A1").Select
'Le curseur revient en A1

End Sub

Je cherche la meme chose que ce code ci-après " Windows("ILIKO_coulissant_Cosy_melamine.csv.xls").Activate " mais qui s'adapterait à n'importe quel nom de fichier.

Merci d'avance
 

Gorfael

XLDnaute Barbatruc
Re : Soucis de code pour Windows.Activate

Salut L_S et le forum
Utilises les balises de code !
Mon problème est que je n'arrive pas à trouver de code pour englober n'importe quel non de fichier sur la ligne "Windows".
Mon problème : je ne comprends pas ta question !
Vraisemblablement tu veux coller une plage constante A1:ZZ10000 sur un classeur. Pas sur une fenêtre !
Ce qui donnerai un code du style :
Code:
Sub Convertir_csv_xls()
dim F as Worksheet

ThisWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ".xls"
    'Converti *.csv en *.xls
    set F =WorkBooks("ILIKO_coulissant_Cosy_melamine.csv.xls").sheets(1)
'mettre dans la variable F la première feuille du classeur nommé

Range("A1:ZZ10000").Copy F.[A1]
    
WorkBooks("ILIKO_coulissant_Cosy_melamine.csv.xls").activate
    F.[A1].select
End Sub
Mais le défaut de donner un code, c'est qu'il n'explique pas ce qu'on veut en final. Il faudrait peut-être savoir comment tu veux trouver le nom (et la feuille) du fichier à utiliser.

Rappel : ni devin, ni télépathe sur ce site.
A+
 

L_S

XLDnaute Nouveau
Re : Soucis de code pour Windows.Activate

Concrètement, je souhaite sur un classeur déja existant qui as une extension .csv:

l'enregistrer sous .xls (donc que son extension se modifie)

La difficulté est que je n'ai pas qu'un seul fichier mais une centaine, donc je souhaite que la macro s'adapte à n'importe quel nom de fichier.

Merci d'avance.
 

Gorfael

XLDnaute Barbatruc
Re : Soucis de code pour Windows.Activate

Salut L_S et le forum
Petit rappel (outre ma signature) : ni télépathe, ni devin sur ce site (du moins, à ma connaissance) Et comme je n'utilise pas ton fichier, ce qui est tellement évident pour toi et complétement abscons pour moi ! La seule chose que je sais, c'est que tu as beaucoup de fichiers à traiter.
A+
 

L_S

XLDnaute Nouveau
Re : Soucis de code pour Windows.Activate

Mon fichier est en .csv à la base mais je l'ai envoyer en .xls car ce site ne prend pas en charge les fichier en .csv

Il te suffit juste de l'enregistrer sous .csv sur ton PC.

Merci d'avance.
 

Pièces jointes

  • TOTO.xls
    11 KB · Affichages: 73
  • TOTO.xls
    11 KB · Affichages: 77
  • TOTO.xls
    11 KB · Affichages: 77

Discussions similaires

Réponses
13
Affichages
2 K
Réponses
4
Affichages
1 K