activation workbook

tototiti2008

XLDnaute Barbatruc

• 14 Juillet 2008

• #2

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Juillet 2008

• #3

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 :

Code:

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

 

Vote positif 0 Vote négatif

K

katial

Guest

• 14 Juillet 2008

• #4

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Juillet 2008

• #5

Re : activation workbook

Re

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

@+

 

Vote positif 0 Vote négatif

K

katial

Guest

• 14 Juillet 2008

• #6

Re : activation workbook

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

 

Pièces jointes

• exemple_katial.xls

  39 KB · Affichages: 76

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 14 Juillet 2008

• #7

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 ?

 

Vote positif 0 Vote négatif

K

katial

Guest

• 14 Juillet 2008

• #8

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 14 Juillet 2008

• #9

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

 

Vote positif 0 Vote négatif

K

katial

Guest

• 14 Juillet 2008

• #10

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

 

Vote positif 0 Vote négatif