Discussion :

[Matrixmax]

Bonjour à tous;
je suis débutant disant tréeees débutant en MACRO excel VBA

Je suis entrain de faire une MACRO qui initialise le contenue d'une plage de cellule de la feuil1 de mon classeur Excel (A3:B5288) ,ensuite ouvre un fichier text séparer en point virgule dans une nouvelle feuil du méme classeur que celui de la macro
ensuite copier un enssemble de cellules ( du fichier text ouvert dans le classeur excel) dans la premiére feuille du classeur ensuite fermé la feuil du fichier text.

Celà me permettra comme vu dans le fichier joint de traçer une courbe dont les élements d'entrée sont celles dans le fichier TEXT ( ASCII )

malheureusement tout mon programme je l'est mis dans le boutton

Or nulle part j'ai rien mis car je ne sais méme coment ni pourquoi ... :-(

Voilà code que j'ai fais mais çà marche pas parceque je l'é fais par enregistrement et quelque modif:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub CommandButton1_Click()
 
Dim A As Variant
 
Application.ScreenUpdating = False
 
MsgBox "Veuillez selectionner le fichier texte  à ouvrir", 0, "Information"
 
A = Application.GetOpenFilename
 
If A = False Then
 
MsgBox " Aucun fichier n'a été selectionné"
 
Exit Sub
 
End If
    Workbooks.OpenText Filename:= _
        A, Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), TrailingMinusNumbers:=True
 
        Sheets(Feuil1).Range(A3, B3).Activate
        ActiveCell.Offset(-3569, -1).Range("A1:B1").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.ClearContents
        ActiveCell.Offset(2, 2).Range("A1:B1").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        ActiveWindow.WindowState = xlMinimized
        Sheets("Feuil1").Select
        ActiveCell.Range("A1:B1").Select
        ActiveSheet.Paste
 
    End Sub

merci bien pour votre aiiiiide

[NVCfrm]

Bonsoir Matrixmax,

Ton code en lecture superficielle révèle d'emblée un problème d'ActiveCell, d'ActiveSheet.

Je t'explique les raisons: Après l'importation, tu es supposé avoir un nouvel classeur qui devient par défaut le classeur actif.

Le programme agit sur Feuil1 du classeuractif ici.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(Feuil1).Range(A3, B3).Activate

est ce ce que tu souhaites?
Dans la continuité de la ligne de code ci-dessus, cette ligne à problème:
ActiveCell.Offset(-3569, -1).Range("A1:B1").Select
ActiveCell est A3. l'Offset negatif possible avec A3 est (-2,0) au maximum.

Conseil pour accéder à tes objets sur un autre classeur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks("FichierTexte").Workseets("Feuil1").Range(...)

accéder au classeur dans lequel le code est exécuté:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkBook.Activate

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkBook.WorkSheets("Mafeuile")...

Accède donc aux objets par leurs références au lieu d'ActiveCell...Selection.

[Matrixmax]

Bonjour,

J'ai essayé mais çà n'as pas marcher puisque le nom de fichier text que j'ai ouvris en excel est varriable et son nom peu prendre plusieur valeurs alors j'ai pas su l'extraire pour fairs l'activation , ni l'ouvrir dans le méme classeur que celui de la macro
ma varriable que j'ai faite appelé ainsi A :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 A = Application.GetOpenFilename

Or le retour de cette varriable est le chemin du fichier text que j'ai voulu ouvrir;
par contre L'instruction workbooks("...").activate devrais avoire entre parenthéses juste le nom du fichier.extension

Merci de me trouvez une solution puisque çà m'énerve d'avoir à chaque petite fois ce message d'erreur :

Erreur d'execution '13"
Incompatibilité de type

[NVCfrm]

Bonjour.
Pourquoi n'essayes tu pas avec une ou deux variable?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim Wb As Workbook, r as Range
Set wb = Workbooks.OpenText(...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set r = Wb.Sheets("Feuil1").Range...