activation workbook

[katial]

bonjour,
Voila j'ai fait une macro ki me demande de choisir et d'ouvrir un fichier a l'aide de:
filetoopen = Application.GetOpenFilename(Title:="Select a cable database", FileFilter:=" *.xls (*.xls),")
Workbooks.Open Filename:=filetoopen

Cependant je ne sais pas comment faire pour l'activer et traiter ce fichier ouvert.

 

[tototiti2008]

Re : activation workbook

Bonjour katial,

en principe si tu ouvre un fichier, il devient le classeur actif. Maintenant, si tu veux en être sûr, tu peux faire :

Dim Wkb as Workbook
filetoopen = Application.GetOpenFilename(Title:="Select a cable database", FileFilter:=" *.xls (*.xls),")
Set Wkb=Workbooks.Open (Filename:=filetoopen)
Wkb.Activate

 

[Pierrot93]

Re : activation workbook

Bonjour Katial

utilise une variable comme dans l'exemple ci dessous, te permettras de faire référence à ce classeur, à noter qu'il est rarement utile en vba de sélectionner les objets :

Dim wb As Workbook
Set wb = Workbooks.Open(Filename:=filetoopen)
wb.Select

autre précision, lorsque tu ouvres un classeur, il devient le classeur actif, tu peux également utiliser la propriété "ActiveWorkbook".

bonne journée
@+

Edition : bonjour tototiti

 

[katial]

Re : activation workbook

Merci de votre reponse,
Cependant le reste de la macro ne fonctionne pas.
La macro m'ouvre bien le fichier mais ne fait plus rien apres.
Alors que la seconde partie de la macro isolee fonctionne bien.

 

[Pierrot93]

Re : activation workbook

Re

sans fichier et sans le code complet utilisé, difficile de t'en dire plus...

@+

 

[katial]

Re : activation workbook

je joins le fichier exemple, j'espere que cela sera comprehensible.

 

[tototiti2008]

Re : activation workbook

Re katial, bonjour Pierrot,

un peu indigeste pour moi... tu pourrais me décortiquer étape par étape ce que tu veux que ça fasse et où ça ne marche pas ?

 

[katial]

Re : activation workbook

Oui je sais ce n'est pas facil desole
donc je veux que ma macro affiche une fenetre avec un bouton pour aller chercher un fichier.(sachant que j'aurai differents fichier a traiter.

A partir de ce fichier ouvert je veux dans un premier temps enlever les lignes blanches, ensuite je veux que cela copie des mots.

Je m'explique si j'ai un mot en A2 exemple oiseau et le prochain mot en A6 bateau, je veux qu'entre les deux ou il y a des cases blanche il y ait a la place le mot oiseau et ainsi de suite.

Une fois cette operation effectuee je veux copier et coller des donnees en effectuant d'abords une concatenation de deux colonnes. Tout cela sera copie dans le fichier d'origine (le fichier ouvert initialement).

j'espere que cela sera plus comprehensible.🙄

merci

 

[tototiti2008]

Re : activation workbook

Bon, pour l'ouverture du fichier, je crois que Pierrot et moi t'avons répondu :

Dim Wkb as Workbook
filetoopen = Application.GetOpenFilename(Title:="Select a cable database", FileFilter:=" *.xls (*.xls),")
Set Wkb=Workbooks.Open (Filename:=filetoopen)

'Suppression de lignes vides :

Wkb.activesheet.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

pour la suite ça se complique un peu...
essaye déjà le début et dis-nous si ça marche

 

[katial]

Re : activation workbook

J'ai introduit le code de suppression de ligne dans ma macro mais un message d'erreur de syntaxe est signale.

Wkb.activesheet.Columns("A:A").SpecialCells(xlCell TypeBlanks).EntireRow.Delete

peut etre que j'ai oublie quelque chose